| |
| |
|
funkheld | Hello, good day.
i want The routine FD in XPSE or in a nProc produce.
this Startpaint becomes but in a nProc not recognized.
-------------------
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
-----------------------------------
Note:
this commands functions too outside:
startpaint bpic
LineTo(%hdc,x,y)
EndPaint
Thank you.
greeting
CompileMarkSeparation {$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
|
|
| |
| |
| |
|
|
 | | StartPaint there in nProcs not there it none makes sense there one with APIs traces the ohnehin a DC desires. let StartPaint lane and nimm hDC or whom DC of whatever. |
|
| |
| |
| |
|
(949)
Deutsch
English
Français
Español
Italia