XProfan

English

funkheld

Hello, good day.
is IF here yet active?
I have time a Please.
These plgBlt under or The data "pts" are for me not durchsteigbar.
Compile Mark Separation

nProc drawhPicRotated(long hPic,dc,x,y,xx,yy,w,r)

    long hDCBits=createCompatibleDC(hDC)
    selectObject(hDCBits, hPic)
    long pts=dim(24)
    long 	w1=angleByLine(xx,yy,0,0),w2=abs(w1-360000),w3=abs(w1-540000)
    casenot r : r=long(sqrt(float(xx*xx+yy*yy)))\2
    long pts&,0=x+getcircp(r,w1+w),y+getcircp(r,w1-90000+w),x+getcircp(r,w2+w),y+getcircp(r,w2-90000+w),x+getcircp(r,w3+w),y+getcircp(r,w3-90000+w)
    plgBlt(dc,pts,hDCBits,0,0,xx,yy,0,0,0)
    deleteDC(hDCBits)
    dispose(pts)

CompileMarkSeparationAP(0).x = xc + (0   - xc) * Cos(theta) - (0   - yc) * Sin(theta)'supra left
AP(0).y = yc + (0   - xc) * Sin(theta) + (0   - yc) * Cos(theta)
AP(1).x = xc + (199 - xc) * Cos(theta) - (0   - yc) * Sin(theta)'supra right
AP(1).y = yc + (199 - xc) * Sin(theta) + (0   - yc) * Cos(theta)
AP(2).x = xc + (0   - xc) * Cos(theta) - (199 - yc) * Sin(theta)'under linkst
AP(2).y = yc + (0   - xc) * Sin(theta) + (199 - yc) * Cos(theta)
plgBlt(dc,AP(0),hDCBits,0,0,xx,yy,0,0,0)

Thank you.

greeting

12/03/13 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

funkheld

now have I it time so made :

declare pts#
dim pts#,(24)
long pts#,0=x+getcircp(r,w1+w)

but these pts# becomes of xpse ignoring ???

on the dearest would I it How supra make with AP(0) etc.

Thank you.
greeting
Compile Mark Separation

nProc drawhPicRotated(long hPic,dc,x,y,xx,yy,w,r)

    long hDCBits=createCompatibleDC(hDC)
    selectObject(hDCBits, hPic)
    declare pts#
    dim pts#,(24)
    long 	w1=angleByLine(xx,yy,0,0),w2=abs(w1-360000),w3=abs(w1-540000)
    casenot r : r=long(sqrt(float(xx*xx+yy*yy)))\2
    long pts#,0=x+getcircp(r,w1+w)
    long pts#,4=y+getcircp(r,w1-90000+w)
    long pts#,8=x+getcircp(r,w2+w)
    long pts#,12=y+getcircp(r,w2-90000+w)
    long pts#,16=x+getcircp(r,w3+w)
    long pts#,20=y+getcircp(r,w3-90000+w)
    plgBlt(dc,pts,hDCBits,0,0,xx,yy,0,0,0)
    deleteDC(hDCBits)
    dispose(pts)

endproc