XProfan

Français

Julian
Schmidt

Kleines Include zum Zeichnen.

Télécharger

Es besteht im wesentlichen aus deux Befehlen einmal Go et einmal Turn.
avec Go wird wird une ligne number vom zuletzt gezeichneten (ou bien avec Goto gesetzten) Punkt dans qui avec Turn gesetze direction gezeichnet.
Es laisser sich so simple komplexe Figuren zeichnen.

Demo
Kompilieren Marque Séparation

 $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 Amusement beim Zeichnen

Julian

paint.png

22 kB

Hochgeladen:

13.04.2013

Downloadcounter:

Download

draw.inc

2 kB

Hochgeladen:

14.04.2013

Downloadcounter:

Download

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

13.04.2013 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

sur jeden le cas très cool.

peut-être encore comme Tip, dass si on Globale dans einer Include verwendet,
cet vlt. trop benenen pour includename.turn! statt turn!, simple um Kollisionen
trop vermeiden.

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

14.04.2013 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Julian
Schmidt

merci, werde qui Variablen juste débaptiser et updaten.

Nachtrag: Update!

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

14.04.2013 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Julian
Schmidt

quoi malt son so?
Kompilieren Marque Séparation

 $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