we   Ŀ			Ŀ
͵ gEffekt-Spielerei in QBasicwe ͵ gby Muffinwe 
   			
ge

Hallo!

Ich mchte 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 Ksten in variierbaren Gren und
verbindet die Ecken dieser mit dem  Mittelpunktes des Bildschirms. Dabei
knnen ganz unterschiedliche Effekte entstehen. Dieses Bild wird dann so
oft wie  angegeben mit  unterschiedlichen Kstchengren gezeichnet. Die
Gre des ersten Kstchens steht in k%, die des letzten in l%. Die Farbe
fr das erste Kstchen steht in m%, die letzte verwendbare  Farbe in n%.

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

Diese Werte z.B. stellen das Gebilde in schwarz-wei dar. Eine andere
Mglichkeit wre:BL

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

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
