mirror of
https://github.com/forth-ev/VolksForth.git
synced 2024-06-04 12:29:30 +00:00
1 line
15 KiB
Plaintext
1 line
15 KiB
Plaintext
|
\\ *** Graphic - Demonstrationen *** 26may86we Dieses File enth<74>lt einige Graphic-Demos, die von den Line-A Routinen Gebrauch machen. Hier bietet sich auch dem Anf<6E>nger ein weites Feld f<>r eigene Versuche. Mit CHECKING ON kann man die gr<67>bsten Fehler abfan- gen, alledings auf Kosten der Geschwindigkeit. \ Demo Loadscreen 21sep86we \needs Graphics include line_a.scr Onlyforth Graphics also definitions 1 &11 +thru moire kaleidos lines boxes rechtecke rechtecke1 \ patterns 18sep86we 1 ?head ! : !pattern ( d -- ) Create , , ; $C000.C000 !pattern p1 $CCCC.3333 !pattern p2 $C0C0.3030 !pattern p3 $0303.0C0C !pattern p4 $C003.300C !pattern p5 $C3C3.3C3C !pattern p6 $FFFF.8001 !pattern p7 $40A0.8040 !pattern p8 $4444.0000 !pattern p9 $FFFF.2222 !pattern p10 $4444.8282 !pattern p11 $8080.8888 !pattern p12 $0000.1010 !pattern p13 $0101.8080 !pattern p14 $7777.8888 !pattern p15 $7E7E.8181 !pattern p16 $E640.FFFF !pattern p17 $3838.C6C6 !pattern p18 0 ?head ! \ patterns 21may86we Create patterns p1 , p2 , p3 , p4 , p5 , p6 , p7 , p8 , p9 , p10 , p11 , p12 , p13 , p14 , p15 , p16 , p17 , p18 ,
|