PS5C: interactive decagon    
     

 

// Relate a 10 point polygon to the position of the mouse.

# a pyramid of 10 connected points attached to mouse position

g.antialias(100)

while 1:
  mx = g.getMouse(1)
  my = g.getMouse(2)
  g.paper(30)
  g.pen(0)
   
  g.pen(60)
  g.line(my,mx,90,90-mx)
  g.line(my,mx,80,90-mx)
  g.line(my,mx,70,90-mx)
  g.line(my,mx,55,90-mx)
  g.line(my,mx,45,90-mx)
  g.line(my,mx,30,90-mx)
  g.line(my,mx,20,90-mx)
  g.line(my,mx,10,90-mx)
  g.line (10,90-mx,90,90-mx)
  
  g.pen(0)
  g.line(90,90-mx,mx,my)
  g.line(80,90-mx,mx,my)
  g.line(70,90-mx,mx,my)
  g.line(55,90-mx,mx,my)
  g.line(45,90-mx,mx,my)
  g.line(30,90-mx,mx,my)
  g.line(20,90-mx,mx,my)
  g.line(10,90-mx,mx,my)
  g.line (90-mx,10,90-mx,10)
  
  g.pen(90)
  g.line(mx,my,my,mx)