nProcs

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)

}