VolksForth/8080/AmstradCPC/GRAFDEMO.SCR

\ Grafik Demo                                         UH 03Dec86Dieses File enthaelt im Wesentlichen die Definitionen           der Grafikdemo vom C64 und vom Atari.                                                                                           Start mit INCLUDE GRAFDEMO.SCR                                                                                                  An diesem Beispiel zeigt sich, dass sich mit volksFORTH relativ leicht Programme von einem auf den anderen Rechner uebertragen  lassen, auch wenn die Basis (hier das Grafik-Paket) unterschied-lich ist.                                                       Natuerlich muss auf spezielle Eigenschaften des LINE-A-Grafic   Pakets des Atari verzichtet werden.                             (z.B. gestrichelte Linien zeichen)                              Ist die Basis dagegen gleich, wie z.B der Kern aller volksFORTH Systeme, ist eine Uebernahme von Programmen gar kein Problem    mehr.                                                           \ Demo Loadscreen                                        05Sep86                                                                \needs Graphics     include grafik.scr                          Onlyforth   Graphics also definitions                           \needs exorwrite    include atari.scr \ Atari Grafic-Name Layer \needs 2over        include double.scr                           1 $0A +thru                                                                                                                    \ clear                                                                                                                         moire                                                           \ muster                                                        kaleidos                                                        boxes                                                           \ poly                                                          lines                                                           \ tri.up tri.dn                                          25feb86                                                                | : yscale   [ decimal ] 400 640 */  [ hex ] ;                                                                                  : tri.dn  ( dim --  )                                            >r   cur.x @  cur.y @                                           2dup  r@ yscale  - swap r@ - swap   2swap 2over set             2dup  r@ yscale  - swap r@ + swap  draw                         2dup  r> yscale  +  draw  2swap  draw  set ;                                                                                   : tri.up  ( dim -- )                                             >r   cur.x @   cur.y @                                          2dup  r@  yscale -  2swap  2over  set                           2dup  r@  yscale +  swap  r@ +  swap  draw                      2dup  r@  yscale +  swap  r> -  swap  draw                      2swap  draw  set ;                                             \ diamond                                             UH 05Sep86                                                                : diamond   ( size -- )                                          >r  cur.x @   cur.y @                                           2dup  swap  r@ -  swap   2swap 2over     set                    2dup  r@ yscale -  draw                                         2dup  swap r@ + swap  draw                                      2dup  r> yscale + draw                                          2swap draw   set ;                                                                                                             | : big.diamond                                                    exorwrite  &319 0  &639 &200  &319 &399  0 &200  4  polygon ;