Hallo, guten Tag.
Ich möchte die Routine FD in XPSE bzw in einer nProc herstellen.
Dieses Startpaint wird aber in einer nProc nicht erkannt.
-------------------
nProc fd(long r,w,bpic)
Long x,y
x=getcircp(r,w)
y=getcircp(r,w+90000)
startpaint bpic&
LineTo(%hdc,x,y)
EndPaint
EndProc
-----------------------------------
Anmerkung:
Dieser Befehl funktioniert auch außerhalb:
startpaint bpic
LineTo(%hdc,x,y)
EndPaint
Danke.
Gruss
Code
{$cleq}
declare bpic&,ende&
Declare x&,y&,r&
ende&=1
Window 20,20-500,500
Cls RGB(220,220,220)
bpic& = create("hNewPic", 400,400,rgb(255,255,0))
While Ende&
fd(100,45000)
drawpic bpic&,30,30;0
EndWhile
End
nProc getCircP(long r,w)
return long(sin(0.0174532925199433*float(w)/1000.0)*float(r))
endproc
Proc fd
Parameters r&,w&
Long x,y
x=getcircp(r&,w&)
y=getcircp(r&,w&+90000)
startpaint bpic&
LineTo x&,y&
EndPaint
EndProc
Alles anzeigen