VolksForth/8080/AmstradCPC/TURTDEMO.SCR

1 line
7.0 KiB
Plaintext
Raw Normal View History

2022-08-18 11:29:55 +00:00
\ 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 ;