atari-home.de - Foren
Software => Coding => Thema gestartet von: guest4546 am Sa 18.11.2023, 23:11:41
-
REM **********************************************************
REM * Grafikanpassung Atari ST -- Schneider Amstrad CPC 464 *
REM **********************************************************
REM * GFA Basic 2.0 *
REM **********************************************************
LET cpc=400
LET atari=-1
CLS
FOR i=0 TO 640
PLOT i,atari+400
NEXT i
REM *****************************
REM * Amstrad Schneider CPC 464 *
REM *****************************
REM 10 MODE 2
REM 20 LET cpc=400
REM 30 LET atari=-1
REM 40 CLS
REM 50 FOR i=0 to 640
REM 60 PLOT i,cpc-400
REM 70 NEXT i
REM ******************************
REM * PLOT Befehl
REM * Atari zählt von oben nach unten
REM * CPC464 zählt von unten nach oben
REM * 640x400 Pixel identisch
REM * beim Atari muß man die Pixel dazuadieren
REM * beim CPC464 muß man die Pixel abziehen
REM ******************************
Liebe Grüße von Siegfried
-
Kreis Routine (ATARI ST --- Amstrad Schneider CPC)
Amstrad Schneider CPC
--------------------
10 MODE 2
20 ORIGIN 320,200
30 DEG
100 FOR i=1 TO 360
110 PLOT SIN(i)*75,COS(i)*75
120 NEXT i
ATARI ST in GFA Basic
---------------------
FOR i=1 TO 360
PLOT 320+SIN(i)*75,200+COS(i)*75
NEXT i
ATARI ST in GFA Basic
---------------------
CIRCLE 320,200,75
Liebe Grüße von Siegfried