XProfan

Deutsch

Julian
Schmidt

Kleines Include zum Zeichnen.

Download

Es besteht im wesentlichen aus zwei Befehlen einmal Go und einmal Turn.
Mit Go wird wird eine Linie vom zuletzt gezeichneten (oder mit Goto gesetzten) Punkt in die mit Turn gesetze Richtung gezeichnet.
Es lassen sich so einfach komplexe Figuren zeichnen.

Demo
Kompilieren Markieren Separieren

 $I Draw.inc
Declare loop&
Randomize
WindowTitle "Einfaches Zeichnen per Kommando"
CLS
Paint(%hwnd)
Center()

whileloop 3,5'Polygone

    UsePen 0,2,RND(256^3)
    loop&=&loop

    whileloop loop&

        Go(150)
        Turn(360/loop&)

    EndWhile

EndWhile

Turn(-60)
PenUp()
Go(150)
PenDown()

whileloop 360/60'Kreise

    UsePen 0,2,RND(256^3)

    whileloop 36

        Go(10)
        Turn(10)

    EndWhile

    Turn(60)

EndWhile

Waitinput

Viel Spaß beim Zeichnen

Julian

paint.png

22 kB

Hochgeladen:

13.04.2013

Ladeanzahl:

Herunterladen

draw.inc

2 kB

Hochgeladen:

14.04.2013

Ladeanzahl:

Herunterladen

XProfan X2
˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗
Webseite [...]

13.04.2013 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Auf jeden Fall sehr cool.

Vielleicht noch als Tip, dass wenn man Globale in einer Include verwendet,
diese vlt. zu benenen nach includename.turn! statt turn!, einfach um Kollisionen
zu vermeiden.

XProfan X2
WinXP, SP3, Core(TM) i7-3770 @ 3.40GHz

14.04.2013 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Julian
Schmidt

Danke, werde die Variablen gleich umbenennen und updaten.

Nachtrag: Update!

XProfan X2
Win7 Professional, SP1, AMD FX(tm)-8350 Eight-Core Processor
˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗
Webseite [...]

14.04.2013 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Julian
Schmidt

Was malt ihr so?
Kompilieren Markieren Separieren

 $I Draw.inc
Declare a&
Randomize
WindowTitle "Einfaches Zeichnen per Kommando"
CLS
ShowMax
Paint(%hwnd)
Goto(500,300)

whileloop 8'Stern

    UsePen 0,2,RND(256^3)
    Go(150)

    whileloop 9'Kreise

        whileloop 36

            Turn(10)
            Go(10)

        EndWhile

        Turn(40)

    EndWhile

    Turn(180)
    Go(400)
    Turn(360/8)

EndWhile

Waitinput