Макросы для СС2
| Название | Чернильная линия 1 |
| Автор | Morgan Olden |
| Команда | inkyline1 |
| Описание | Рисует линию с эффектом "ручного изображения".
 |
| Инструкции | Макрос изображает серию коротких линий различной толщины. |
Код
MACRO inkyline1
ecoff
gv mcoLW 1
gv mcoLW ^DLine thickness?
(1)
gv mcoSmooth .5
gv mcoSmooth ^DSmoothness from 0 to 1 (0=smooth,
1=rough, .5=default)
gv mcoSmooth mcoSmooth*2
gv mcoVari .5
gv mcoVari
^DVariation from 0 to 1 (0=fine, 1=course, .5=default)
gv mcoVari
mcoVari+.5
gp mcoP1 ^DPoint 1:
iferr mcodone
lwidth
0
:mcodoagain
line mcoP1 ^DPoint 2:;
undo
gp mcoP2 @0,0
gp mcoCP
mcoP1
gp mcoPP mcoP1
gbrng mcoB12 mcoP1 mcoP2
gdist mcoD12 mcoP1
mcoP2
ifz mcoD12 mcodone
:mcoloop
RANDOM mcoR1
gv mcoR1
mcoR1*mcoVari*mcoLW*10
RANDOM mcoR2
gv mcoR2 mcoR2*mcoSmooth*mcoLW
gp
mcoCP ref mcoCP gdist mcoD1C mcoP1 mcoCP
ifn
mcoD12-mcoD1C mcodoneloop
lwidth mcoR2
line mcoPP mcoCP;
gp mcoPP
mcoCP
go mcoloop
:mcodoneloop
line ref mcoCP gp mcoP1 mcoP2
go
mcodoagain
:mcodone
econ
endm
| Название | Чернильная линия 2 |
| Автор | Morgan Olden |
| Команда | inkyline2 |
| Описание | Преобразовывает имеющуюся линию или плавную линию в линию с эффектом "ручного изображения".
 |
| Инструкции | Макрос изображает серию коротких линий различной толщины вместо существующей линии или ломаной линии. |
Код
MACRO inkyline2
ecoff
gv mcoLW 1
gv mcoLW ^DLine thickness?
(1)
gv mcoSmooth .5
gv mcoSmooth ^DSmoothness from 0 to 1 (0=smooth,
1=rough, .5=default)
gv mcoSmooth mcoSmooth*2
gv mcoVari .5
gv mcoVari
^DVariation from 0 to 1 (0=fine, 1=course, .5=default)
gv mcoVari
mcoVari+.5
ge mcoentity ^DEntity to draw along:
iferr mcodone
gdist
mcoentitylen % 0 mcoentity % .1 mcoentity
gv mcoentitylen
mcoentitylen*1000
gv mcounit 100/mcoentitylen
gv mcoCP 0
gp mcoP1 % 0
mcoentity
:mcoloop
RANDOM mcoR1
gv mcoR1
mcoR1*mcoVari*mcoLW*10
RANDOM mcoR2
gv mcoR2 mcoR2*mcoSmooth*mcoLW
gv
mcoCP mcoCP+(mcoR1*mcounit)
ifp mcoCP-100 mcodoneloop
gp mcoP2 % mcoCP
mcoentity
lwidth mcoR2
line mcoP1 mcoP2;
gp mcoP1 mcoP2
go
mcoloop
:mcodoneloop
line mcoP1 % 100 mcoentity;
:mcodone
lwidth
0
econ
endm
Copyright © AD&Den`s Lair Все права защищены.
