Ÿwe   ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿			ÚÄÄÄÄÄÄÄÄÄÄÄ¿
ÍÍ͵ Ÿg�Effekt-Spielerei in QBasicŸwe ÆÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͵ Ÿg�by MuffinŸwe ÆÍÍÍ
   ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ			ÀÄÄÄÄÄÄÄÄÄÄÄÙ
Ÿge

Hallo!

Ich m”chte mal  wieder eines meiner  schwachsinnigen Programme in QBasic
vorstellen. Diesmal ist es ein Grafikprogramm, daá �berhaupt keinen Sinn
hat, aber tolle (?) Grafikeffekte erzeugen kann!

Was macht dieses Programm? Es zeichnet K„sten in variierbaren Gr”áen und
verbindet die Ecken dieser mit dem  Mittelpunktes des Bildschirms. Dabei
k”nnen ganz unterschiedliche Effekte entstehen. Dieses Bild wird dann so
oft wie  angegeben mit  unterschiedlichen K„stchengr”áen gezeichnet. Die
Gr”áe des ersten K„stchens steht in k%, die des letzten in l%. Die Farbe
f�r das erste K„stchen steht in m%, die letzte verwendbare  Farbe in n%.

Der Rest  erkl„rt sich wahrschienlich von alleine. Probiert es  mal  mit
den Werten:ŸBL
                  Anfangswert : 40
                  Endwert     : 1
                  Anfangsfarbe: 16
                  Endfarbe    : 31ŸWE

Diese Werte z.B. stellen das Gebilde in schwarz-weiá dar. Eine andere
M”glichkeit w„re:ŸBL

                  Anfangswert : 2
                  Endwert     : 1
                  Anfangsfarbe: 0
                  Endfarbe    : 255ŸWE

Probiert es einfach mal aus! Das Listing folgt.
Ÿg�(Auch als fertige Listingdatei zu finden unter MARS2\BONUS\MALPROG.BAS)Ÿwe

Viel Spaá damit, Muffin!ŸBL

CLS
INPUT "Anfangswert : ", k%
INPUT "Endwert     : ", l%
INPUT "Anfangsfarbe: ", m%
INPUT "Endfarbe    : ", n%
SCREEN 13
col% = m%
marke:
FOR j% = 0 TO 200 STEP k%
FOR i% = 0 TO 320 STEP k%
LINE (160, 100)-(i%, j%), col%
LINE (i%, j%)-(i%, j% + k%), col%
LINE (i%, j%)-(i% + k%, j%), col%
col% = col% + 1
IF col% = n% + 1 THEN col% = m%
NEXT i%
NEXT j%
IF k% <> l% THEN
k% = k% / 2
GOTO marke:
END IF
SLEEP
ŸWE