D im X % , Y%, x S iz e % , y S iz e & , C o l o r s , p l% , p2%
C o n s t P x l = 4
P r i v a t e S u b C m d _ C lic k ()
P ic l. S c a le M o d e = 3
P ic 2 . S c a le M o d e = 3
x S iz e = I n t ( S c a l e X ( P i c l . P i c t u r e . W i d t h , v b H im e t r ic ,
v b P i x e l s ) )
y S iz e = I n t ( S c a l e Y ( p i c l . P i c t u r e .
H e ig h t ,
v b H i m e t r ic , v b P i x e l s ) )
P ic 2 . W id t h = S c a le X ( x s iz e ,
v b P ix e ls , v b T w ip s )
P ic 2 . H e ig h t = S c a le Y ( y S iz e , v b P i x -
e l s , v b T w ip s )
P i c 2 . C ls
F o r X = 0 To x S iz e S t e p P x l
F o r Y = 0 T o y S iz e S t e p P x l
C o l o r = P i c l . P o i n t ( X , Y )
F o r p i = 0 T o P x l / 2
F o r p 2 = 0 T o P x l / 2
P i c 2 . P S e t (X + p i , Y + p 2 )
P ic 2 . P S e t (X - p i , Y + p 2 )
P i c 2 . P S e t (X + p i , Y - p 2 ),
P i c 2 . P S e t (X - p i , Y - p 2 )
N e x t p 2
^
N e x t p i
N e x t Y
N e x t X
E n d S u b
В п ри нц ип е, н а м н о го б ы ст р е е р и со в а т ь кво д р о ты так:
P ic 2 . L in e (X - P x l / 2 , Y - P x l / 2 ) - ( X + P x l / 2 , Y + P x l
/ 2 ) , C o lo r , B F
П о м е с т и в э то т м е т о д в м е ст о p -ц и кл о в, мы в ы и гр а е м в
с к о р о с т и р а б о т ы — н о , к с о ж а л е н и ю , н е н а в се х язы ках
п р о г р а м м и р о в а н и я м о ж н о р е а л и з о в а т ь з а р и с о в к у т а к и м
с п о с о б о м .
К о н ста н та p x l м о ж е т п р и н и м а ть л ю б ы е зн ач ен и я (и ц е -
лы е, и вещ естве н н ы е) о т о д н о го д о величины и зо б р а ж е н и я
(при к о н ста н те б о л ь ш е 10 р а з о б р а т ь , что п е р в о н а ч а л ь н о б ы -
л о н а и з о б р а ж е н и и , почти н евозм о ж н о).
Д у м а ю , п р о в и л ь н е й б ы л о бы вы сч иты вать « ср е д н и й цвет»
н а к в а д р а т е — в п р о ч е м , н е т а к а я уж и б о л ь ш а я э т о п р о -
б л е м а .
Эффект №13. Диффузия
Для диф ф узии б у д е м и сп о л ьзо вать ге н е р а т о р сл учай ны х чи-
сел и п о п и ксел ьн о е к о п и р о в а н и е н а п о д о б и е эф ф ектов № 8
(см. п ер вую часть статьи) и № 9 -1 1 .
К он стан та D f z оп редел и т степень диф -
ф узии, а к о м а н д а R a n d o m iz e T im e r —
с б р о с и т ге н е р а т о р сл учай ны х чисел
(Rnd):
D im Х% , Y%, x S iz e % , y S iz e S ,
C o lo r s
C o n s t D f z = 6
P r i v a t e S u b C m d _ C lic k ()
P ic l. S c a le M o d e = 3
P i c 2 . S c a le M o d e = 3
x s i z e = I n t (S c a le X (P i c l .
P i c t u r e .
W id t h , v b H im e t r ic ,
v b P i x e l s ) )
y S iz e = I n t ( S c a l e Y ( P i c l .
P i c t u r e . H e ig h t , v b H im e t r ic , v b P i x e l s ) )
P ic 2 . W id t h = S c a le X ( x s iz e , v b P i x e l s , v b T w ip s )
P ic 2 . H e ig h t = S c a le Y ( y S iz e , v b P i x e l s , v b T w ip s )
P i c 2 . C ls
F o r X = 0 T o x s iz e
F o r Y = 0 T o y S iz e
R a n d o m iz e T im e r
C o lo r = P i c 1 . P o in t (X + I n t (R n d * D f z ) , Y + I n t
(R n d * D f z ))
P i c 2 . P S e t (X , Y ) , C o lo r
N e x t Y
N e x t X
E n d S u b
Особливі умови для
Подолу, Оболоні, Куренівки, Академмістечка
W
1
' w i Л
*
Я Й
ж іх к а .
предыдущая страница 38 Мой Компьютер 2005 04 читать онлайн следующая страница 40 Мой Компьютер 2005 04 читать онлайн Домой Выключить/включить текст