VolksForth/8080/AmstradCPC/TURTDEMO.SCR

\ Turtle-Demo                                         UH 03Dec86                                                                Dieses File enthaelt einige Demonstrationen der Turtle-Grafik.                                                                  Starten mit:  INCLUDE TURTDEMO.SCR                                                                                              Einige Definitionen sind im Original in LOGO geschrieben,       ihre Uebertragung konnte quasi 1 zu 1 geschehen.                (Umsetzung von Prefix- in Postfix-Notation)                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     \ Turtle-Demo                                         UH 10Oct86                                                                \needs Graphics  include grafik.scr   include turtle.scr                                                                        1 4 +thru                                                                                                                       : weiter   key drop ;                                                                                                           rosette         weiter                                                                                                          dreiecke        weiter                                                                                                          siedlung        weiter                                                                                                          $40 6 hilbert   weiter                                                                                                          \ n-eck                                               UH 10Oct86                                                                : eck ( seitenlaenge n -- )                                        &360 over /  swap                                               0 DO  over fd dup lt  LOOP 2drop ;                                                                                                                                                           : quadrat  4 eck ;                                                                                                              : rosette   page home  &36 0 DO &700 quadrat  &10 lt LOOP ;                                                                                                                                                                                                                                                                                                                                                                                                     \ Rekursives Drei-eck-muster                          UH 10Oct86                                                                                                                                : muster ( groesse -- ) recursive                                   dup &220 < IF pd 3 eck pu exit THEN                             2/  dup muster dup fd  dup muster  &120 lt dup fd &120 rt           dup muster  &120 rt  fd &120 lt ;                                                                                                                                                       : dreiecke ( -- )                                                  page &300 0 setxy  &60 seth  pu   &3500 muster pd   ;