^3旼컴컴컴컴컴컴컴컴컴컴컴컴컴컴� ^3�^0The Real Adok's Way to QBASIC^3� ^3�^0 A new Method Step by Step ^3� ^3� � ^3�^4 賽� ^3� ^3�^4 幡 ^3� ^3�^4 � ^3� ^3읕컴컴컴컴컴컴컴컴컴컴컴컴컴컴� Willkommen zum siebten Teil von The Real Adok's Way to QBASIC! Heute geht es um die Grafikprogrammierung. Uff, das wird umfangreich sein! Fangen wir also am besten gleich an. Wenn wir die Grafikfunktionen n걎zen wollen, m걌sen wir zun꼊hst mit dem ^4SCREEN^5-Befehl in den Grafikmodus umschalten. Da es verschiedene Grafikmodi gibt, mu� als Parameter die Nummer des gew걆schten Modi angegeben werden. Die gebr꼞chlichsten Grafikmodi sind: ^40�8..........^0Textmodus, 16 Farben, acht Bildschirmseiten, keine Grafik. ^49�8..........^0EGA-Grafik, Grafikaufl봲ung 640x350 Pixel, 16 Farben, zwei Bild- ^0schirmseiten, eingebaute Farbpalette nicht so sch봭 wie in Mode 12. ^412�8.........^0VGA-Grafik, Grafikaufl봲ung 640x480 Pixel, 16 Farben, eine Bild- ^0schirmseite. ^413�8.........^0VGA-Grafik, Grafikaufl봲ung 320x200 Pixel, 256 Farben, eine Bild- ^0schirmseite, in Power Basic nicht anw꼑lbar! Dazu bedarf es einiger Kl꼛ung. Obwohl der Text auch in den Grafikmodi an- gezeigt werden kann, wird trotzdem oft auch weiterhin der reine Textmodus (0) verwendet. Dies kann verschiedene Gr걆de haben, etwa die Geschwindigkeit der Textausgabe, Textaufl봲ung oder die Anzahl der Bildschirmseiten (wie es auch bei diesem Viewer der Fall ist!). In Basic l꾞t sich au�erdem in den VGA- Modi die Hintergrundfarbe nicht ausw꼑len; der Text wird immer in Farbe 0 (normalerweise schwarz) hinterlegt, der alte Hintergrund gnadenlos 갶er- schrieben. Wie sich das verhindern l꾞t, kann ja in Hugi #3 nachgelesen werden (dort isses aber ein C-Listing). Die Grafikaufl봲ung gibt an, aus wievielen Punkten der Bildschirm aufgebaut ist. Ein Wert von 640x350 gibt beispielsweise an, da� sich in der horizontalen Richtung pro Zeile 640 Bildpunkte ansprechen lassen und es 350 Zeilen gibt. Der Wert bei den Farben gibt die Anzahl der verschiedenen Farben an, die sich gleichzeitig darstellen lassen. Der Begriff 'Bildschirmseiten' mag schlie�lich etwas ungew봦nlich klingen, aber: Nomen est Omen! Es lassen sich sozusagen mehrere 'logische' Bildschirme im Speicher der Grafikkarte anlegen, von der immer eine auf den 'physikalischen' Bildschirm kopiert wird. Syntax des Screen-Befehls: ^0SCREEN Modus, Farbe, ASeite, VSeite^5 . Der Parameter ^1Modus^5 steht hierbei f걊 die Nummer der Bildschirmseite. ^1Farbe^5 ist nur in den Modi 0 und 1 von Bedeutung, deshalb geben wir diesen Parameter entweder gar nicht an oder setzen ihn auf 0. ^1ASeite^5 schlie�lich ist die Nummer der Bild- schirmseite von 0 bis zur Anzahl der Bildschirmseiten minus 1, auf die geschrieben werden soll, und ^1VSeite^5 die Nummer der Seite, die gerade auf dem Bildschirm dargestellt werden soll. Im Normalfall will man sowieso nur den Modus wechseln und braucht sich um die zus꼝zlichen Parameter nicht zu k걅mern. So, genug mit dem Gelaber. Ich ver봣fentliche nun ein Beispielprogramm, damit das Ganze verst꼗dlicher wird. Es wird der Grafikbefehl ^4PSET^5 verwendet. Mit seiner Hilfe lassen sich Bildpunkte in einer beliebigen Farbe "setzen". Die Farbe kann entweder direkt als Parameter angegeben, oder sie mu� vorher durch COLOR festgelegt werden. Die genaue Syntax lautet: ^0PSET (XKoordinateDesBildpunkts, YKoordinateDesBildpunkts), Farbe Damit keine Probleme auftauchen: Bei ALLEN Grafikbefehlen mu� immer zuerst die X-Koordinate angegeben werden. Bei LOCATE war das ja genau umgekehrt, wie wir es (hoffentlich) noch bestens wissen. ^0'PSET-Demo ^0SCREEN 12 'VGA-Grafikmodus 640x480 gew꼑lt ^0COLOR 13 'Pink ^0PSET (100, 100) 'Farbe vorher gew꼑lt ^0PSET (320, 200), 14 'Farbe direkt angegeben Wir werden in unseren Beispielprogrammen immer im Grafikmodus 12 arbeiten. Falls ihr nur eine EGA-Grafikkarte besitzt, benutzt einfach den 꼑nlichen Grafikmodus 9. Es gibt dann noch den Befehl ^4PRESET^5. Er funktioniert genauso wie PSET, nur wird, wenn die Farbe nicht direkt angegeben wird, die aktuelle Hintergrund- farbe verwendet. In den VGA-Modi ist diese, wie bereits gesagt, immer Schwarz. Der n꼊hste wichtige Grafikbefehl ist ^4LINE^5. Mit seiner Hilfe lassen sich, wie der Name sagt, Linien zeichnen. Das ist 갶rigens nur eine seiner vielen Anwendungsm봥lichkeiten, wie wir gleich sehen werden. Die Syntax entspricht der von PSET, nur m걌sen zwei Koordinaten angegeben werden. Gleich ein Beispielprogramm: ^0'LINE-Demo ^0SCREEN 12 'VGA-Grafikmodus 640x480 gew꼑lt ^0COLOR 13 'Pink ^0LINE (100, 100)-(320, 200) 'Farbe vorher gew꼑lt ^0LINE (80, 400)-(420, 400), 14 'Farbe direkt angegeben Experimentiert ein wenig mit den Koordinaten, um die Anwendung dieses Befehls zu erlernen. Kommen wir nun zur anderen Anwendung von LINE. Mit LINE lassen sich auch ^4Rechtecke^5 zeichnen. Man kann sogar angeben, ob die Rechtecke ausgef걄lt werden sollen oder nicht. Falls sie ausgef걄lt werden sollen, mu� man nach Angabe der Farbe ^0, BF^5 schreiben. Falls nicht, gen갾t ^0, B^5. Wenn ihr die Farbe nicht direkt angeben wollt, sondern die in COLOR angegebene 갶ernehmen wollt, so la�t sie einfach weg! Der Beistrich mu� aber schon geschrieben werden. Dazu gleich ein Beispiel. ^0'LINE-Demo mit B- und BF-Option ^0SCREEN 12 'VGA-Grafikmodus 640x480 gew꼑lt ^0COLOR 13 'Pink ^0LINE (10, 200)-(600, 400), , B 'Nicht ausgef걄ltes Rechteck ^0COLOR 15 'Leuchtend-Wei� ^0LOCATE 24, 1 'Meldung ausgeben ^0PRINT "Nicht ausgef걄ltes Rechteck" ^0PRINT "Beliebige Taste dr갷ken..." ^0a$ = INPUT$(1) ^0CLS 'Bildschirm l봲chen ^0COLOR 13 'Pink ^0LINE (10, 200)-(600, 400), , BF 'Ausgef걄ltes Rechteck ^0COLOR 15 'Leuchtend-Wei� ^0LOCATE 24, 1 'Meldung ausgeben ^0PRINT "Ausgef걄ltes Rechteck" ^0PRINT "Beliebige Taste dr갷ken..." ^0a$ = INPUT$(1) Wie ihr seht, wird in unserem Beispielprogramm zwischen den Grafik- und den Textausgaben immer die Farbe umgeschaltet. Da w걊de eine direkte Farbanwahl doch Sinn machen! Ich habe das deshalb gleich realisiert. Das Ergebnis lautet: ^0'LINE-Demo mit B- und BF-Option ^0SCREEN 12 'VGA-Grafikmodus 640x480 gew꼑lt ^0COLOR 15 'Leuchtend-Wei� ^0LINE (10, 200)-(600, 400), 13, B 'Nicht ausgef걄ltes Rechteck ^0LOCATE 24, 1 'Meldung ausgeben ^0PRINT "Nicht ausgef걄ltes Rechteck" ^0PRINT "Beliebige Taste dr갷ken..." ^0a$ = INPUT$(1) ^0CLS 'Bildschirm l봲chen ^0LINE (10, 200)-(600, 400), 13, BF 'Ausgef걄ltes Rechteck ^0LOCATE 24, 1 'Meldung ausgeben ^0PRINT "Ausgef걄ltes Rechteck" ^0PRINT "Beliebige Taste dr갷ken..." ^0a$ = INPUT$(1) Nun m곢te euch klar sein, wozu eine direkte Farbanwahl gut ist: Wenn in einem Programm der Text in einer anderen Farbe als die Grafik ausgegeben werden soll, so ist es praktisch, die Textfarbe mit COLOR festzulegen und die Grafik- farbe immer direkt anzugeben. Der n꼊hste Befehl ist ^4CIRCLE^5. Mit ihm lassen sich Kreise zeichnen. Als Parameter m걌sen der Mittelpunkt, der Radius und bei direkter Farbanwahl die Farbe angegeben werden. Zu dem Resultat sei nur gesagt, da� QBasic automatisch die Werte "nachkorrigiert", so da� der Kreis auch wie ein Kreis aussieht. Die Koordinaten stimmen deshalb nicht immer mit den Werten, die ihr durch den Mittelpunkt und den Radius errechnen k봭nt, 갶erein. Wie immer, hier ein Beispiel. ^0'CIRCLE-Demo ^0'Variablen ^0MPunktX = 320 ^0MPunktY = 200 ^0Radius = 100 ^0'Hauptprogramm ^0SCREEN 9 'EGA-Grafikmodus 640x350 ^0CIRCLE (MPunktX, MPunktY), Radius, 15 'Kreis zeichnen ^0'Beweis, da� die von Hand errechneten Koordinaten nicht mit den ^0'tats꼊hlichen 갶ereinstimmen: ^0LINE (MPunktX - Radius, MPunktY)-(MPunktX + Radius, MPunktY), 14 ^0LINE (MPunktX, MPunktY - Radius)-(MPunktX, MPunktY + Radius), 14 Bei dem Befehl CIRCLE gibt es keinen Fill-Parameter. Trotzdem lassen sich Kreise und andere Gebilde ausf걄len, und zwar mit dem Befehl ^4PAINT^5. Das Ganze funktioniert so 꼑nlich wie die F걄loptionen in diversen Grafikprogrammen. Es m걌sen ein Startpunkt, bei dem das F걄len begonnen werden soll, die Ausf걄l- farbe und die Randfarbe angegeben werden. Die Randfarbe gibt an, wo das Aus- f걄len gestoppt werden soll. Man mu� also eine Art "K꼎ig" in dieser Randfarbe zeichnen, bevor man PAINT verwendet. Sonst wird der ganze Bildschirm aus- gef걄lt. Beim Ausf걄len eines Kreises sind diese Parameter sonnenklar: Start- punkt entspricht dem Mittelpunkt, Ausf걄lfarbe und Randfarbe der Farbe des Kreises. Dazu gleich ein Beispiel. ^0'PAINT-Demo ^0SCREEN 12 ^0LOCATE 2, 32 ^0PRINT "Das ist PFLAUMI!" ^0CIRCLE (320, 200), 100, 9 'Kopf ^0PAINT (320, 200), 9, 9 ^0CIRCLE (280, 166), 30, 14 'Linkes Auge ^0PAINT (280, 166), 14, 14 ^0CIRCLE (360, 166), 30, 14 'Rechtes Auge ^0PAINT (360, 166), 14, 14 ^0CIRCLE (280, 166), 10, 2 'Linke Pupille ^0PAINT (280, 166), 2, 2 ^0CIRCLE (360, 166), 10, 2 'Rechte Pupille ^0PAINT (360, 166), 2, 2 ^0LINE (320, 180)-(320, 240), 15 'Nase ^0LINE (260, 220)-(320, 280), 4 'Mund ^0LINE (320, 280)-(380, 220), 4 Lustiges Gesicht, nicht wahr? Eine weitere Option, die man bei ALLEN bisher besprochenen Grafiken einsetzen kann, hei�t ^4STEP^5 und gibt an, da� die n꼊hsten Bildschirmkoordinaten nicht absolut, sondern relativ zur letzten Bildschirmkoordinaten sind. Positive Koordinaten bedeuten, da� sich der Bildpunkt um die angegebene Zahl von Punkten rechts unten vom letzten Bildpunkt befindet. Negative Koordinaten dagegen geben an, da� sich der neue Bildpunkt links oben von dem alten befindet. Dadurch lassen sich Polygone (Vielecke) sehr einfach mit dem LINE- Befehl zeichnen, denn wenn STEP verwendet wird, kann der Startpunkt, von dem die Linie ausgeht, weggelassen werden. Da der umfangreiche ^4DRAW^5-Befehl schon in Hugi #5 von Karma Sutra ausf갿rlich besprochen wurde, w꼛e es beinahe eine reine Wiederholung, wenn wir ihn auch im Rahmen dieses Kurses besprechen sollten. Vielleicht noch eine Erg꼗zung von LeidPen, wie man sich einige Draw-Kommandos leichter merken kann: ^4U ^5up ^4L ^5left ^4H ^5home, Holland ^4G ^5Gibraltar ^4D ^5down ^4R ^5right ^4E ^5Estland ^4F ^5finis Somit sind wir also fertig mit den grundlegenden GFX-Befehlen. Wie man eine eigene Farbpalette definiert, k봭nt ihr im Hugi #2 im Artikel "Fading in Basic" nachlesen.