unmaintained/lsys/tortoise/tortoise.factor

   1
   2 USING: kernel generic math arrays
   3        math.matrices generic.lib pos ori self turtle ;
   4
   5 IN: lsys.tortoise
   6
   7 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
   8
   9 TUPLE: tortoise angle len thickness color ;
  10
  11 : <tortoise> ( -- tortoise )
  12     <turtle> tortoise construct-delegate ;
  13
  14 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  15
  16 : angle> ( -- val ) self> tortoise-angle ;
  17
  18 : >angle ( val -- ) self> set-tortoise-angle ;
  19
  20 : len> ( -- val ) self> tortoise-len ;
  21
  22 : >len ( val -- ) self> set-tortoise-len ;
  23
  24 : thickness> ( -- val ) self> tortoise-thickness ;
  25
  26 : >thickness ( val -- ) self> set-tortoise-thickness ;
  27
  28 : color> ( -- val ) self> tortoise-color ;
  29
  30 : >color ( val -- ) self> set-tortoise-color ;
  31