VolksForth/8080/AmstradCPC/ATARI.SCR

\ Anpassung an C64 und Atari-Graphic                  UH 03Dec86                                                                Dieses File enthaelt im wesentlichen Umbenennungen der Grafik-  routinen, da die Grafikpakete auf dem C64 und dem Atari zum     Teil andere Namen verwenden, als die AMSTRAD Programmierer sie  sich ausgedacht haben.                                                                                                          Um die Atari und C64 Grafik-Demos weitgehend uebernehmen zu     koennen wird also dieses Schicht zusaetzlich vom File           GRAFDEMO.SCR geladen.                                                                                                                                                                                                                                                                                                                                                                                                                                           \ Anpassung an C64 und Atari-Graphic                  UH 05Sep86                                                                ' move  Alias set   ' line  Alias draw                          ' mover Alias rset  ' liner Alias rdraw                         : line ( x1 y1 x2 y2 -- )  set draw ;                                                                                           | Create cur 4 allot                                            : cur.x ( -- addr )  cursor@ cur 2!  cur 2+ ;                   : cur.y ( -- addr )  cursor@ cur 2!  cur    ;                                                                                   : home ( -- )   0 0 move ;                                                                                                      : exorwrite  1 access ;                                         : overwrite  3 access ;       -->                                                                                                                                                               \ Anpassung an C64 und Atari-Graphic                  UH 05Sep86                                                                ' test Alias get.pixel ( x y -- p )                             : put.pixel ( x y p -- )   pen plot ;                                                                                                                                                           : clip.window ( x1 y1 x2 y2 -- )                                   rot heigth  width ;                                                                                                                                                                          : unplot ( x y -- )  paper@ put.pixel ;                                                                                                                                                                                                                                                                                                                                                                                                                  05Sep86                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         05Sep86