XProfan

Español

Julian
Schmidt

Kleines Incluir para Dibujar.

Descargar

Lo besteht en el wesentlichen de zwei Befehlen una vez Go y una vez Turn.
Mit Go se se una Linie vom zuletzt gezeichneten (oder con Goto gesetzten) Punkt en el con Turn gesetze Richtung suscrito.
Lo dejar se así simplemente komplexe Figuren dibujar.

Demo
Kompilieren Marca Separación

 $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 Dibujar

Julian

paint.png

22 kB

Hochgeladen:

13.04.2013

Ladeanzahl:

Descargar

draw.inc

2 kB

Hochgeladen:

14.04.2013

Ladeanzahl:

Descargar

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

13.04.2013 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Auf cada Fall muy fresco.

Tal vez todavía como Tip, dass si uno Globale en uno Incluir verwendet,
esta vlt. a benenen después de includename.turn! en lugar de turn!, simplemente en Kollisionen
a vermeiden.

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

14.04.2013 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Julian
Schmidt

Gracias, voluntad el Variables igual umbenennen y updaten.

Apéndice: Actualización!

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

14.04.2013 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Julian
Schmidt

Was malt ihr así?
Kompilieren Marca Separación

 $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