Das deutsche QBasic- und FreeBASIC-Forum

[REZK]

hallo,

ich bin gerade dabei ein einfaches 2d Spiel zu programmieren. Nun will ich einen Kreis mit Farbe ausfüllen. Da der Hintergrund nicht gleichmäßig ist, kann ich nicht PAINT verwenden.

Also habe ich folgende Konstruktion verwandt


screen 12
for a= 1 to 50
circle (100,100),a
next a

Leider ist der Kreis jetzt durch viele "Störpunkte" verunstaltet, die ich zeitaufwändig entfernen muss.


Gibt es eine einfachere Lösung, die einfach einen Kreis erzeugt, der mit der gleichen Farbe ausgefüllt ist, die auch die "äußere" Umrahmung des Kreises hat. Irgendwie mit der Sinus Funktion und Line?

Danke im voraus,

REZK
_________________
Meine sämtlichen QB Projekte findet ihr hier

[jb]

Lass doch eine Linie um den Mittelpunkt rotieren.

[Thomas Antoni]

Dazu habe ich mir Folgendes für die MonsterFAQ vorgemerkt:

---------------------------------------------------------------------------------

Frage deutsch
~~~~~~~~~~~~~~~~
Wie fülle ich ein Dreieck oder einen Kreis mit Farbe?


Question English
~~~~~~~~~~~~~~~~
How to fill a triangle or a circle with a color?


Antwort
~~~~~~~~~~~~~~~~
[ von verschiedenen Teilnehmern im QB-Forum, 5.2005 - 10.2005 ]

*** Mit PAINT

Das folgende Programm zeichent ein Dreieck mit den Punkten (10 | 10). (100 | 10)
und (10 |100). Wichtig ist, dass die im PAINT-Befehl angegebenen Koordinaten im Dreieck liegen

SCREEN 12
LINE(10,10)-(100,10)
LINE (10,10)-(10,100)
LINE (10,100)-(100,10)
PAINT(15,15)

Und dieses Programm füllt einen Kreis mit der Randfarbe rot aus:

SCREEN 12
CIRCLE (100, 100), 50, 4
'Kreis mit den Mittelpunkt (100), Radius 50 und Randfarbe rot (=4)
PAINT (100, 100), 4
'Flaeche ausgehend vom Mittelpunkt rot ausmalen bis die
'Randlinie erreicht wird




*** Mit DRAW

Mann kann statt PAINT auch den DRAW-Befehl verwenden:

Beispiel für das Ausfüllen eines Dreiecks

SCREEN 12
Color 14
Line (200,200)-(100,100)
Line (100,100)-(300,200)
Line (200,200)-(300,200) 'zeichnet das Dreieck
Draw "BM 150,150" ' rückt den Cursor der Draw-Anweisung an die Position 150, 150.
Draw "P 9, 14" ' Befehl zum Ausfüllen des Dreiecks

P = Anweisung zum Ausfüllen
9 = die Farbe, mit der das Dreieck ausgefüllt werden soll, also dunkelblau
14 = die Umrandungsfarbe des Dreiecks, also die Farbe, bis zu der die Figur von innen heraus ausgefüllt werden soll.


*** Mit Einzellinien

Auf Dreaels Webseite gibt es ein Funktionsplotterprogramm unter

www.hofen.ch/~andreas/Deutsch/Download/Funktionsdarstellung.html

Dort ist sonst eine spezielle SUB-Routine ZeiDreieck() für gefüllte Dreiecke enthalten,
welche auf horizontale Linien basiert


--------------------------------------------------------------------------------
_________________
+++ Die beliebte QBasic CD-ROM von QBasic.de - 670 MB QBasic-Stuff mit komfortabler HTML-Oberfläche. Für nur 5 EUR bestellbar auf www.antonis.de/qbcdueb.htm +++

[helium]

Probiers mal hiermit:
Kreis von oben nach unten durchlaufen und jeweils berechnen, von wo bis wo in der Zeile ne Linie gezogen werden muss.

[dreael]

Mathematik ist hier das Zauberwort, Basis Kreisgleichung und Satz des Pythagoras. Dazu das Beispiel Billardsimulation unter

http://www.dreael.ch/Deutsch/Download/Billard-Simulation.html

genauer anschauen - dort habe ich das Problem des gefüllten Kreises mit horizontalen Linien gelöst.
_________________
Teste die PC-Sicherheit mit www.sec-check.net

[REZK]

danke!
_________________
Meine sämtlichen QB Projekte findet ihr hier

[Triton]

for x = 1 to 50
for y = 1 to 50
abstand zu 25,25 ermitteln
if abstand < r-kreis plot x,y
next
next

Zum Thema mit den Dreiecken:
http://www.silizium-net.de/bbcodeb5.htm

Ist zwar bb, lässt sich aber leicht portieren.
_________________
Coding: silizium-net.de | Portfolio: Triton.ch.vu

[helium]

[dreael]

Der Algorithmus in meiner Billard-Simulation beruht mathematisch auf dem selben Prinzip wie Tritons Variante, ausser dass ich die Ungleichung (Liegt der Pixel in der Kreisfläche oder nicht?) in eine Funktion überführt habe. Ist in diesem speziellen Fall eine Wurzelfunktion (fehlende Kathete in einem rechtwinkligen Dreieck berechnen).

Codeausschnitt aus BILL_SI2.BAS: