Макросы для СС2
| Название | Ручная линия 2 |
| Автор | Morgan Olden |
| Команда | sketch2 |
| Описание | Изображает линию, как будто бы нарисованную от руки.
Detail:
|
| Инструкции | Изменяет линию или плавную линию в подобие проштрихованой линии.
В макрос включен файл скрипта с кодом (смотри вложение). Для работы скрипта просто запустите его из СС2.
|
Код
macro sketch2
ecoff
rdoff
gv mcoDense 1
gv mcoDense ^DSketch
density: (i.e. 1 line every x units) (1)
gv mcoLength 10
gv mcoLength
^DSketch line length: (i.e. Each sketch line is x units long) (10)
gv
mcoWidth 1
gv mcoWidth ^DWidth of sketch: (1)
ge mcoentity ^DEntity to
draw along:
iferr mcodone
gdist mcoentitylen % 0 mcoentity % .1
mcoentity
gv mcoentitylen mcoentitylen*1000
gv mcounit
100/mcoentitylen
gv mcoSP 0
gp mcoP1 % 0 mcoentity
:mcoloop
RANDOM
mcoRLS
gv mcoRLS (mcoRLS*mcoDense/2)+(mcoDense/2)
RANDOM mcoRLE
gv
mcoRLE (mcoRLE*mcoLength/2)+(mcoLength/2)
RANDOM mcoROSS
RANDOM
mcoROSE
gv mcoROSS (mcoROSS-.5)*mcoWidth
gv mcoROSE
(mcoROSE-.5)*mcoWidth
gv mcoSP mcoSP+(mcoRLS*mcounit)
gv mcoEP
mcoSP+(mcoRLE*mcounit)
ifp mcoEP-100 mcodoneloop
gp mcoP1 % mcoSP
mcoentity
gp mcoP2 % mcoEP mcoentity
gbrng mcoB12 mcoP1 mcoP2
gp mcoP1
ref mcoP1 <mcoB12+90,mcoROSS
gp mcoP2 ref mcoP2
<mcoB12+90,mcoROSE
line mcoP1 mcoP2;
go mcoloop
:mcodoneloop
line
mcoP1 % 100 mcoentity;
:mcodone
rdon
econ
endm
Copyright © AD&Den`s Lair Все права защищены.
