XProfan

Français

funkheld

allô, guten journée.
Ist IF ici encore aktiv?
j'ai la fois une s'il te plaît.
cet plgBlt unten bzw qui données "pts" sommes pour mich pas durchsteigbar.
Kompilieren Marque Séparation

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)

KompilierenMarqueSéparationAP(0).x = xc + (0   - xc) * Cos(theta) - (0   - yc) * Sin(theta)'dessus à gauche
AP(0).y = yc + (0   - xc) * Sin(theta) + (0   - yc) * Cos(theta)
AP(1).x = xc + (199 - xc) * Cos(theta) - (0   - yc) * Sin(theta)'dessus à droite
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)

merci.

Gruss

03.12.2013 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

funkheld

maintenant habe je es la fois so gemacht :

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

mais cet pts# wird de xpse ignoriert ???

Am liebsten serait je es comment dessus faire avec AP(0) usw.

merci.
Gruss
Kompilieren Marque Séparation

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