GR.OPEN 255,0,0,0,0,0
GR.SCREEN xk,yk
DIM dron[360]

!Загрузка звезды
GR.BITMAP.LOAD star,"star.png"          %Загрузка фона
GR.BITMAP.SCALE star2,star,xk/30,xk/30,1%Ресайз картинки
GR.BITMAP.SIZE star2,xs,ys

GR.COLOR 255,255,255,255,1
GR.TEXT.SIZE 10
GR.TEXT.DRAW txt,100,300,"QWE"


FOR q=1 TO 360
	GR.ROTATE.START q,xs/2,ys/2
	GR.BITMAP.DRAW dron[q],star2,1,1
	GR.ROTATE.END
	GR.RENDER
	GR.HIDE dron[q]
NEXT

DO
	FOR q=1 TO 360
		GR.MODIFY dron[q],"x",100,"y",100
		GR.SHOW dron[q]
!!		GR.MODIFY dron[q],"x",100,"y",100
		GR.RENDER
		GR.HIDE dron[q]
	NEXT
UNTIL 0