FSR - QBasic Seite 31

AG Informatik

Der Grafikbildschirm im Modus 12 besteht aus 640 Spalten und 480 Zeilen. An jedem Kreuzungspunkt einer Spalte mit einer Zeile kann ein Punkt in einer von 16 Farben gesetzt werden (=Pixel).

Das folgende Programm zeichnet ein beschriftetes Achsenkreuz in der Farbe gelb im Bereich von -5

5 und -4

       REM Achsenkreuz
       SCREEN 12
       CLS
       farbe = 14 : REM Farbe gelb

       REM x-Achse
       LINE (0, 232)-(639, 232), farbe
       LINE (639, 232)-(635, 228), farbe
       LINE (639, 232)-(635, 236), farbe
       FOR i = -8 TO 8
         LINE (320 + i * 40, 230)-(320 + i * 40, 234), farbe
       NEXT i
       FOR i = -7 TO 7
         IF i <> 0 THEN
           LOCATE 16, (i + 8) * 5: PRINT i
         END IF
       NEXT i

       REM y-Achse
       LINE (320, 0)-(320, 479), farbe
       LINE (320, 0)-(316, 4), farbe
       LINE (320, 0)-(324, 3), farbe
       FOR i = -5 TO 5
         LINE (318, 232 + i * 48)-(322, 232 + i * 48), farbe
       NEXT i
       FOR i = -4 TO 4
         IF i <> 0 THEN
           LOCATE 30 - (i + 5) * 3, 42: PRINT i
         END IF
       NEXT i

Eine Einheit in Richtung der x-Achse umfasst 40 Pixel, die y-Achse selbst wird bei x=320 gezeichnet. In Richtung der y-Achse werden für eine Einheit 48 Pixel verwendet, die x-Achse wird bei y=232 gezeichnet.
Füge an das obige Programm die Zeile
PSET (320+(-2)*40,232-(+3)*48),farbe
an. Welche Koordinaten (in Einheiten des Achsenkreuzes) hat der gezeichnete Punkt?
Zeichne auch die Punkte P(4/3), Q(-2/-1), R(3/-1) und S(-4/2). Verwende dazu verschiedene Farben (von Farb-Nummer 1 bis 15). Füge dazu vier neue Zeilen an das Programm an und ersetze die Variable farbe durch die entsprechende Farbnummer.