Unterschiede

Hier werden die Unterschiede zwischen zwei Versionen angezeigt.

Link zu dieser Vergleichsansicht

Beide Seiten der vorigen Revision Vorhergehende Überarbeitung
Nächste Überarbeitung		 Vorhergehende Überarbeitung
tiny:software:baserw40 [2022/08/04 06:40] – ↷ Links angepasst, weil Seiten im Wiki verschoben wurden volkerptiny:software:baserw40 [2024/02/02 14:08] (aktuell) – [Beispiele] volkerp
Zeile 156: Zeile 156:
  
 ===== ES 2k ===== ===== ES 2k =====
 +
 +{{:tiny:software:spirale.png|}}
  
 Die Erweiterung **baserw2k** liegt als Binärdatei vor und muss vorab in den Speicher geladen werden ( nach 8000h ) Die Erweiterung **baserw2k** liegt als Binärdatei vor und muss vorab in den Speicher geladen werden ( nach 8000h )
Zeile 191: Zeile 193:
  
 <code> <code>
 +
 +64x64 Bildpunkte, (0,0) ist links unten
 +
 +       (0,63)           (63,63)
 +       +-----------------+
 +       |                 |
 +       |        (X,Y)    |
 +       |                 |
 + ^     |                 |
 + |     +-----------------+
 + y     (0,0)            (63,0)
 +   x ->     
 +
 +
 Test Grafik Test Grafik
  
Zeile 227: Zeile 243:
  
 Test Data s.o. Test Data s.o.
 +
 +-- Quadrat-Spirale
 +
 +1 PROC SETRR[8,%1C00]
 +5 REM SPIRALE
 +10 PROC CLS
 +15 REM A=X LINKS, B=X RECHTS, C=Y UNTEN, D=Y OBEN
 +20 LET A=0,B=63,C=0,D=63
 +25 REM OBEN (0,63) -> (63,63), X=A->B
 +30 LET X=A,A=A+2
 +40 PROC PSET[X,D]
 +50 LET X=X+1; IF X<=B THEN GOTO 40
 +55 REM RECHTS (63,63) -> (63,0), Y=D->C
 +60 LET Y=D,D=D-2
 +70 PROC PSET[B,Y]
 +80 LET Y=Y-1; IF Y>=C THEN GOTO 70
 +85 REM UNTEN (63,0) -> (0,0), X= B->A
 +90 LET I=B,B=B-2
 +100 PROC PSET[X,C]
 +110 LET X=X-1; IF X>=A THEN GOTO 100
 +115 REM LINKS (0,0) -> (0,63), Y= C->D
 +120 LET Y=C,C=C+2
 +130 PROC PSET[A,Y]
 +140 LET Y=Y+1; IF Y<=D THEN GOTO 130
 +150 IF A<B THEN IF C<D THEN GOTO 30
 +9998 X=GTC
 +9999 END
 </code> </code>
 +
 +
 +===== ES 2.3 =====
 +
 +Im ES2.3 lässt sich die baserw4.0 direkt bzw. mit kleinen Abstrichen direkt nutzen. Beispiel: Testbild
  
 {{:tiny:es23_testbild.png|}} {{:tiny:es23_testbild.png|}}
  
  • tiny/software/baserw40.1659595258.txt.gz
  • Zuletzt geändert: 2022/08/04 06:40
  • von volkerp