1 line
6.0 KiB
Plaintext
1 line
6.0 KiB
Plaintext
\ 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 |