the fiberoptic drawing tools were a response to problem set 9 challenging us to effectively use a larger canvas size of 200X200 pixels interactively.

// a fiberoptics timekeeper and timewriter.

load dbngraphics.dbn
antialias 100
set bck 80
set for 5

paper bck

set h0 125
set v0 100
repeat r 10 5
{
}
Forever
{
   set h1 (/2)
   set v1 (*2)

   // the timekeeper
   pen 100
   line h1 v1 (h1-1) (v1)
   pen (for+50)

   // the timewriter
   line h0 v0 h1 v1
   circle (<mouse 2>+h1) (<mouse 3>+v1) (<mouse 3>/h1) (<mouse 3>/h1)
}