Grafikanpassung Atari ST -- Schneider Amstrad CPC 464

[guest4546]

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

[guest4546]

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