[tirarex]

ну и сэмплы из хелпа

Пример DrawBlockRect

; Установим графический режим
Graphics 640,480,16

; Создаём пустой рисунок, в котором нарисуем круг
gfxCircle=CreateImage(50,50)

; Нарисуем круг
; предварительные установки перед рисованием
SetBuffer ImageBuffer(gfxCircle)
Color 255,0,0
; Заметьте пустое пространство между кругом и краем рисунка
Oval 10,10,30,30,1
SetBuffer FrontBuffer()

; Сделаем экран белым, чтобы видеть прозрачные участки
ClsColor 255,255,255
Cls

; выводим на экран случайную часть рисунка
While Not KeyHit(1)
; берем случайную часть и выводим в случайные координаты экрана
; и повторяем это в цикле
DrawBlockRect gfxCircle,Rnd(640),Rnd(480),0,0,Rnd(50),Rnd(50),0
Delay 100
Wend

Пример DrawImageRect

; Установим графический режим
Graphics 640,480,16

; Создаём пустой рисунок, в котором нарисуем круг
gfxCircle=CreateImage(50,50)

; Нарисуем круг
; предварительные установки перед рисованием
SetBuffer ImageBuffer(gfxCircle)
Color 255,0,0
; Заметьте пустое пространство между кругом и краем рисунка
Oval 10,10,30,30,1
SetBuffer FrontBuffer()


; выводим на экран случайную часть рисунка
While Not KeyHit(1)
; берем случайную часть и выводим в случайные координаты экрана
; и повторяем это в цикле
DrawImageRect gfxCircle,Rnd(640),Rnd(480),0,0,Rnd(50),Rnd(50),0
Delay 100
Wend

Wend