XProfan

Español

funkheld

¡Hola, guten Tag.
Ist IF hier todavía aktiv?
Yo habe veces una Bitte.
Diese plgBlt unten o el Daten "pts" son para mich no durchsteigbar.
Kompilieren Marca Separación

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)

KompilierenMarcaSeparaciónAP(0).x = xc + (0   - xc) * Cos(theta) - (0   - yc) * Sin(theta)'oben links
AP(0).y = yc + (0   - xc) * Sin(theta) + (0   - yc) * Cos(theta)
AP(1).x = xc + (199 - xc) * Cos(theta) - (0   - yc) * Sin(theta)'oben rechts
AP(1).y = yc + (199 - xc) * Sin(theta) + (0   - yc) * Cos(theta)
AP(2).x = xc + (0   - xc) * Cos(theta) - (199 - yc) * Sin(theta)'unten 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)

Gracias.

Gruss

03.12.2013 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

funkheld

Jetzt Yo lo veces así gemacht :

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

aber esta pts# se de xpse ignoriert ???

Am liebsten sería Yo como oben hacer con AP(0) usw.

Gracias.
Gruss
Kompilieren Marca Separación

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