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

// a fiberoptics drawing tool

// to draw lit fibers, just move mouse
// to draw unlit fibers, mousedown and move
// to see something strange, mousedown
// outside of paper area in the left margin,
// bottom corner.


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

paper bck

set h0 75
set v0 50
repeat r 5 5
{
}
forever
{
   set h1 <mouse 1>
   set v1 <mouse 2>

   // fiberoptic light
   pen 100

   line h1 v1 (h1-1) (v1)

   // fiberoptic cable
   pen (for+50)
   circle <mouse 1> <mouse 2> <mouse 1> 50

   line h0 v0 h1 v1
   }