Макросы для СС2
| Название | Расширяющаяся Река 1 |
| Автор | Morgan Olden |
| Команда | iriver1 |
| Описание | Изображение плавной, постепенно расширяющейся реки.
 |
| Инструкции | Я признаю, что этот макрос немного темпераментный, конфликтует с другими объектами, иногда включая их в себя. По этой причине попытайтесь не рисовать реку поверх других объектов, или используйте временный слой, закрепляя другие командой freeze.
Макрос запрашивает стартовую ширину реки, и размер увеличения этой ширины на каждой точке. Далее рисуйте реку, помня, что форма будет приглажена в конце, так что углы будут закруглены. Только поэкспериментируйте немного сначала. |
Код
macro iriver1
ecoff
selbyp
lstyle solid
lwidth 0
color 0
gv w 0
gv wi 1
gv w ^DStarting width (0):
ifz w setwidthtomin
ifn w setwidthtomin
go control1
:setwidthtomin
gv w .01
:control1
gv wi ^DIncrease width per node (1):
ifn wi setincreasetomin
go control2
:setincreasetomin
gv wi 0
:control2
gp p1 ^DPoint 1:
iferr abort
gp p2 ^DPoint 2:
iferr abort
color 16
line p1 p2;
color 0
GBRNG b12 p1 p2
gp r1 ref p1
gp l1 ref p1
gp p3 ^DNext point:
erase;
iferr abort
gp sl l1
gp sr r1
gv w w+wi
:loop
GBRNG b12 p1 p2
GBRNG b23 p2 p3
gcos wcs 90-((b12-b23-180)/2)
gv aw 1/wcs*(w/2)
gp r2 ref p2 <(b12+b23)/2+90,aw
gp l2 ref p2 <(b12+b23)/2-90,aw
color 16
line p2 p3;
color 0
gp p4 ^DNext point:
iferr done
erase;
line l1 l2;
line r1 r2;
gv w w+wi
gp p1 p2
gp p2 p3
gp p3 p4
gp l1 l2
gp l2 l3
gp r1 r2
gp r2 r3
goto loop
:done
erase;
line l1 l2;
line r1 r2;
GBRNG b23 p2 p3
gp r3 ref p3
gp l3 ref p3
line l2 l3;
line r2 r3;
selby1
ltp sl p1
stc sl
ltp sr p1
stc sr
line sl sr;
line l3 r3;
selbye
fstyle solid
mpoly2 l3 sr;
selby1
changec l3 3
:abort
selbyd
econ
endm
| Название | Расширение Реки |
| Автор | ProFantasy |
| Команда | QR |
| Описание | Создание реки: синей плавной полосы увеличивающейся ширины. |
| Инструкции | Макрос Расширение Реки - напечатайте QR, чтобы начать макрос - это устанавливает ширину линии в 2.00. Начните рисовать вашу реку - три точки в продолжение (это изменяетт ширину линии и вы может начинать следующую секцию в конечной точке первой секции) и рисуйте дальше - три точки для изображения новой секции.
Если вы хотите изменить речную ширину с 2, то вручную установите ширину в 4, но макрос после запуска снова начнется с 2. |
Код
MACRO RW
LAYER WATER/RIVERS
COLOR 69
FSTYLE SOLID
LSTYLE SOLID
APND rwftime -1
GV rwftime rwftime
IFZ rwftime+1 rwfirsttime
IFZ rww-2 1rw
IFZ rww-2.5 2rw
IFZ rww-3 3rw
IFZ rww-3.5 4rw
GV rww 2
GO erw
:1rw
GV rww 2.5
GO erw
:2rw
GV rww 3
GO erw
:3rw
GV rww 3.5
GO erw
:4rw
GV rww 4
GO erw
:rwfirsttime
GV rwftime rwftime-1
GN rww 2
:erw
LWIDTH rww
SELBYD
ENDM
MACRO QR
RW
GP rsp @0,0
GP rsp ^D 1st point[@0,0]:
SPLINE rsp
ENDM
Copyright © AD&Den`s Lair Все права защищены.
