
Если будет возможность Вам подсказать-это будет здорово... Именно по кнопке ГОТОВО
Я понял - я смотрю... Если что найду - обязательно сообщу.Фант wrote:Если будет возможность Вам подсказать-это будет здорово... Именно по кнопке ГОТОВО
Ок! Спасибо!Mr. Kibernetik wrote:Я понял - я смотрю... Если что найду - обязательно сообщу.Фант wrote:Если будет возможность Вам подсказать-это будет здорово... Именно по кнопке ГОТОВО
Code: Select all
GRAPHICS
w=SCREEN_WIDTH()
h=SCREEN_HEIGHT()
'колличество пикселей kof^2
kof=100
'шаг выбранных пикселей
kofw=w/kof
kofh=h/kof
'имя изображения
nm$="1.png"
'масштаб
k=.7
DRAW IMAGE nm$ AT 0,0 SCALE k
DRAW ALPHA .05
FILL ALPHA .05
x=0
y=x
'выбор пиксейлей и нахождение среднего цвета
FOR q=1 TO kof
FOR e=1 TO kof
GET PIXEL x,y COLOR r1,g1,b1
r+=r1
g+=g1
b+=b1
x+=kofw
NEXT e
x=0
y+=kofh
NEXT q
FILL COLOR r/(kof^2),g/(kof^2),b/(kof^2)
x=0
y=0
'размытие изображения
FOR q=1 TO 10 STEP 2
FOR e=1 TO 10 STEP 2
REFRESH OFF
FILL RECT 0,0 TO w,h
DRAW IMAGE nm$ AT x,y SCALE k
x+=5
REFRESH ON
NEXT e
y+=5
x=0
NEXT q