num = Spritenummer
drehungs_step = fortschritt der Drehung pro Durchlauf
start_num = Mit welchen Sprite die Drehung anfängt
FUNCTION ROTOCOPY: num, drehungs_step, start_num
GLOBAL Winkel
LOCAL XX, YY, Spitzenmass
GETSPRITESIZE num, XX, YY
Spitzenmass = SQR( POW(XX,2) + POW(YY,2) )
FOR Winkel = 0 TO 359 STEP drehungs_step
FILLRECT 0,0,Spitzenmass,Spitzenmass, RGB(0xff, 0x00, 0x80)
ROTOSPRITE num,(Spitzenmass-XX)/2, (Spitzenmass-YY)/2, Winkel
GRABSPRITE start_num + Winkel / drehungs_step, 0, 0, Spitzenmass, Spitzenmass
BLACKSCREEN
NEXT
ENDFUNCTION
Würde gehen, wenn Grabsprite auch Transparenz setzen würde, und nicht nur schwarz....
EDIT:
soll ichs unter Codeschnipsel auch reinmachen?