Макросы для СС2
| Название | Россыпь точек 1 |
| Автор | Morgan Olden |
| Команда | Pointillism1 |
| Описание | Изображает линию с эффектом изменяющейся тени по одной стороне линии или плавной линии? сделаной с помощью россыпи точек.
 |
| Инструкции | Выбирайте настройки очень аккуратно! Макрос рисует множество точек для создания эффекта. Проверьте сначала на маленькой зоне. Макрос создает свой временный слой. Но удалять каждую точку отдельно очень сложно! |
Код
MACRO pointillism1
ecoff
gv mcoWIDTH 10
gv mcoDM 1
gv mcoWIDTH
^DWidth of shading (10):
gv mcoDM ^DDensity modifier (1=normal, .5=half
density, 2=double density) (1):
gv mcoSPACING mcoWIDTH/30*(1/mcoDM)
ge
mcoentity ^DSelect object to draw shading along:
iferr mcodone
gp mcoP1 %
0 mcoentity
line mcoP1 ^DWhich side to shade?;
selbyp
erase
gp mcoP2
@0,0
gbrng mcoTEST1 mcoP1 % 1 mcoentity
gbrng mcoTEST2 mcoP1 mcoP2
ifn
mcoTEST1-mcoTEST2 mcoCONTROL1
gv mcoSIDE -1
go
mcoCONTROL2
:mcoCONTROL1
gv mcoSIDE -1
ifn mcoTEST1-mcoTEST2+180
mcoCONTROL2
gv mcoSIDE 1
:mcoCONTROL2
gdist mcoentitylen % 0 mcoentity
% 1 mcoentity
gv mcoentitylen mcoentitylen*100
gv mcounit
100/mcoentitylen
gv mcoD1Cur 0
:mcoloop
gp mcoP1 % mcoD1Cur*mcounit
mcoentity
gbrng mcoB1 mcoP1 % (mcoD1Cur*mcounit)+.01 mcoentity
RANDOM
mcoRAND1
RANDOM mcoRAND2
RANDOM mcoRAND3
RANDOM mcoRAND4
point ref
mcoP1 point ref mcoP1
point ref mcoP1
gv mcoD1Cur
mcoD1Cur+(mcoSPACING*mcoRAND4)
ifp mcoD1Cur-mcoentitylen mcodoneloop
go
mcoloop
:mcodoneloop
:mcodone
selbyd
econ
endm
Copyright © AD&Den`s Lair Все права защищены.
