XProfan

Italia

funkheld

Hallo, guten Tag.
Ist IF hier noch aktiv?
Ich habe mal eine Bitte.
Diese plgBlt unten bzw die Daten "pts" sind per mich nicht durchsteigbar.
Kompilieren Markieren Separieren

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)

KompilierenMarkierenSeparierenAP(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)

Danke.

Gruss

03.12.2013 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

funkheld

Jetzt habe ich es mal so gemacht :

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

aber diese pts# wird von xpse ignoriert ???

Am liebsten würde ich es wie oben machen mit AP(0) usw.

Danke.
Gruss
Kompilieren Markieren Separieren

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