hübsche Grafikroutine für BBC Basic

Hier mal eine hübsche kleine Grafikspielerei, die auf Anregung entstanden ist. Es geht um Quadrate, die übereinandergelegt und gegeneinander verdreht werden. Dabei weicht jeder Layer um eine bestimmte Gradzahl vom vorhergehenden Quadratlayer ab, oder wie hier, ändert sich dieser Winkel noch in Abhängigkeit von "irgendwas" (hier eine weitere Sinuskurve), was den Effekt noch netter macht.

Hintergrund des Ganzen sind sogenannte "Verfolgerprobleme" bzw. "Verfolgungskurven" oder in einfacher Form "Hundekurven" und auf schlau: "Radiodrome (WikiP DE)" .

Lauffähig auf BBC Basic.

Auf zu schnellen Geräten (z.B. RPi) muß wohl noch eine kleine Warteschleife vor das CLG Kommando.

 REM BBC BASIC Code , rotating squares - filled with fancy colours
 REM uses triangles to fill the squares, allows overlapping

 ON ERROR REPORT : PRINT " ERROR IN ";ERL : END

 DIM STB(720) : REM STB sinustable
 R=0
 FOR I=0 TO 719 : STB(I)=SIN(R) : R=R+(4*PI /720) : NEXT I

 MODE 1280,1024,16
 MODE 1280,1024,8
 SCREENBANK%=2

 ORIGIN 1024,1024

WHILE R<>-1

 FOR R=0 TO 360 STEP 3

  REM Double-Buffering
  WAIT
  SYS "OS_Byte",113,SCREENBANK%
  SCREENBANK% = SCREENBANK% MOD 2 +1
  SYS "OS_Byte",112,SCREENBANK%

  CLG

  REM Startwerte, rücken jede Runde (R) um 3 Grad weiter vor
  ANGLESIN=R
  ANGLECOS=R+90

 FOR F=900 TO 50 STEP -85
  GCOL ( F MOD 32 )
  REM Eckpunkte des Quadrats berechnen, auf einem Kreis liegend
  X0=STB(ANGLESIN)*F : Y0=STB(ANGLECOS)*F
  X1=STB(ANGLESIN+90)*F : Y1=STB(ANGLECOS+90)*F
  X2=STB(ANGLESIN+180)*F : Y2=STB(ANGLECOS+180)*F
  X3=STB(ANGLESIN+270)*F : Y3=STB(ANGLECOS+270)*F
  REM zwei Dreiecke zeichnen, die zusammen ein Quadrat ergeben
  MOVE X0,Y0 : MOVE X2,Y2 : SYS "OS_Plot",85,X1,Y1
  MOVE X0,Y0 : MOVE X2,Y2 : SYS "OS_Plot",85,X3,Y3

  REM Position in der Sinustabelle auf neuen Wert setzen
  REM der Cosinus liegt einfach immer bei 90 Grad weiter vorn
  ANGLESIN=ANGLESIN+( STB(ANGLESIN)*14 )
  ANGLECOS=ANGLESIN+90

 NEXT F
 NEXT R

ENDWHILE
END

Das Buch ist wirklich ganz brauchbar. Hab' das auch, allerdings die alte Version. Die kennt z.B. die neuen MODE Kommandos noch nicht und auch so einiges andere fehlt, was die Neuauflage sicher hat. Sehr schönes Übersichtsbuch.

Die meisten hatten wohl das und dazu das "WIMP Programming for All", was eine Einführung in die GUI Programmierung ist.

Zusammen mit der Referenz bei http://riscos.com/support/index.htm ist das eigentlich auch super dokumentiert.

Das BASIC selbst ist wirklich eines von den Besten, die es so gibt. Das fühlt sich teils eher wie ein PASCAL an und sieht teils auch so aus. Nur mit dem Unterschied, daß man keine Typdeklarationen für Variablen machen muß und es im Gegenzug einen extrem einfach zu bedienenden Assembler gibt, der quasi "seit immer schon" dazugehört. Auch so Sachen wie Fehlerbehandlung auf Procedure-Ebene und jede Art strukturierter Schleifen sind möglich. Zzgl. solcher Sachen, wie, daß bestimmte Sachen sehr maschinennah weitergereicht werden können, z.B. die Shift Kommandos, die der ARM ja zusätzlich im gleichen Takt mit erledigen kann. Und dazu der Zugriff auf alle Systembefehle und -aufrufe, was das Ganze extrem flexibel macht.

Sehr hübsch. Vor allem auch das WEBinterface ist irgendwie sehr gelungen - wobei man sich natürlich fragen kann, wofür das gut ist, aber schick ist das schon - fast wie eine echte Kassette !

Das Kartenspiel

http://www.8bitkick.cc/home-computers.html

würde wahrscheinlich auch generell für manchen hier ein sehr interessantes kleines "Gadget" abgeben.

Jetzt mal noch die kompletten Kurven, so wie es geometrisch auch mit Zirkel und Lineal konstruiert werden würde. Dabei unterteilt man eine jede Seite nach einem bestimmten Verhältnis und erhält so die Eckpunkte des kleineren Quadrates.

Die Variante hier läuft im RPCEmu ganz gut wenn man in der 1280x1024er Desktopauflösung startet. Bei anderen vereißt es noch irgendwas bei der Mausabfrage, wobei ich vermute, daß das eher am Emulator liegt. Für kleinere Auflösung müßte manuell noch der Startparameter "F" angepaßt werden.

Mausbewegungen (hoch/runter) ändern den Winkel, um den die Quadrate zueinander versetzt werden.

REM pursuit curves (2019Nov)
REM move the mouse up/down to change the rotation angle

ON ERROR REPORT : PRINT " ERROR IN ";ERL : END
MODE 1280,1024,32
MODE 1280,1024,8  : OFF
ORIGIN 1024,1024
SCREENBANK%=1


REM --------  Sine table (STB)  --------
DIM STB(720)
R=0
FOR I%=0 TO 719 : STB(I%)=SIN(R) : R=R+(4*PI /720) : NEXT I%


REM --------  variables  --------
S=3 : SLAST=S              : REM angle (STEP)
MSZ=0                      : REM mousebuttons

WHILE MSZ<>%010

  WHILE SLAST=S
    MOUSE MSX,MSY,MSZ
    S= ( 45 * MSY ) DIV 2048 +1
  ENDWHILE
  SLAST=S

  F=1000 : REM startsize
  col=1  : REM startcolor

  REM --------  double-buffering  --------
  SCREENBANK%=SCREENBANK% MOD 2 +1
  SYS "OS_Byte",112,SCREENBANK%
  CLG

  PRINT TAB(8,1)"DEGREE : ";S

FOR R=0 TO 359 STEP S

  B = ( F*TAN(RAD(S)) ) / ( 1+TAN(RAD(S)) )
  A = F - B
  F = SQR( A*A + B*B )

  IF col MOD 2 THEN GCOL 15 ELSE GCOL 48
  REM --------  Create rectangle  ---------
  X0=STB(R)*F : Y0=STB(R+90)*F
  X1=STB(R+90)*F : Y1=STB(R+180)*F
  X2=STB(R+180)*F : Y2=STB(R+270)*F
  X3=STB(R+270)*F : Y3=STB(R+360)*F
  MOVE X0,Y0
  MOVE X2,Y2
  PLOT 85,X1,Y1
  MOVE X0,Y0
  MOVE X2,Y2
  PLOT 85,X3,Y3
  col+=1

NEXT R

  REM --------  show the buffered pic --------
  SYS "OS_Byte",113,SCREENBANK%

ENDWHILE

END

.