% Example -1-
%
% A trivial BTOL program. We let the Btol code do all the work.

/win framebuffer /new BtolAppWin send def
{
   /PaintClient
   {
      0 fillcanvas
      0 1 random 100 mul { 
        random mul random 144 mul 
        random random random setrgbcolor
        moveto 240 100 lineto stroke 
      } for
   } def
   reshapefromuser
   totop
   map
} win send