XProfan

English

Julian
Schmidt

small Include to that draw.

Download

it exists in the integral from two command once Go and once Turn.
with Go becomes becomes a line of lastly drew (or with Goto gesetzten) point into with Turn laws direction drawn.
it can so simply complex figures draw.

demonstration
Compile Mark Separation

 $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

plenty Fun at draw

Julian

paint.png

22 kB

Hochgeladen:

04/13/13

Downloadcounter:

Download

draw.inc

2 kB

Hochgeladen:

04/14/13

Downloadcounter:

Download

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

04/13/13 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

On each drop very calm.

Perhaps yet as hint, that if one Globale in a Include uses,
these vlt. To benenen to includename.turn! instead of turn!, simply circa Kollisionen
To avoid.

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

04/14/13 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Julian
Schmidt

thanks, will be The variables same rename and updaten.

Nachtrag: Update!

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

04/14/13 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Julian
Schmidt

what malt your so?
Compile Mark Separation

 $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