XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Polygone zeichnen
Lauffähig ab Profan-Version 5.0
Andreas Miethe * Bielefeld * 1999
##################################
DEF @APolygon(3) ! GDI32,Polygon
Declare Polygon&,Point#
Dim point#,104 13 Punkte
---------------------------------
ARRAY aufbauen
Punkt 1
Long Point#,0=10
Long Point#,4=10
Punkt 2
Long Point#,8=300
Long Point#,12=10
Punkt 3
Long Point#,16=300
Long Point#,20=100
Punkt 4
Long Point#,24=250
Long Point#,28=100
Punkt 5
Long Point#,32=250
Long Point#,36=150
Punkt 6
Long Point#,40=200
Long Point#,44=150
Punkt 7
Long Point#,48=200
Long Point#,52=100
Punkt 8
Long Point#,56=150
Long Point#,60=100
Punkt 9
Long Point#,64=100
Long Point#,68=100
Punkt 10
Long Point#,72=100
Long Point#,76=150
Punkt 11
Long Point#,80=50
Long Point#,84=150
Punkt 12
Long Point#,88=50
Long Point#,92=100
Punkt 13
Long Point#,96=10
Long Point#,100=100
---------------------------------
SetTrueColor 1
cls @RGB(192,192,192)
UsePen 0,1,@RGB(255,0,0)Pinselfarbe
UseBrush 1,@RGB(255,255,0)Pinsel - Fuellfarbe
@APolygon(%HDC,Point#,13)Polygon mit 13 Punkten
@APolygon(%HDC2,Point#,13)Sicherung in HDC2 fuer Neuzeichnen
TextColor @RGB(0,0,255),-1
Drawtext 80,40,Polygon mit 13 Punkten
Waitinput
Dispose Point#
End