XProfan

Deutsch

funkheld

Hallo, guten Tag.
Ist IF hier noch aktiv?
Ich habe mal eine Bitte.
Diese plgBlt unten bzw die Daten "pts" sind für 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)

endproc

Vielleicht kann man mir die Daten für die plgBlt für den 2. Paramter mal übersichtlich gestalten für Profan , so in etwa:
Kompilieren Markieren Separieren

AP(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 zitieren Zeilenweise zitieren

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