MACRO ZOUT2
ZOUT;2
ENDM

MACRO ZIN2
ZIN;2
ENDM

MACRO SEME
SELSAVE
SAVESETTINGS
GP BX1 ^DSelect First Point of Box Area
IFERR MACRODONE
GP BX2 ^DSelect First Point of Box Area
IFERR MACRODONE
ASKBOX DEFAULT PARAMETERS ?
DENSITY : 0.01
MAX#    : 100
SCALE   : 1
TYPE    : PINE (1)
(2) DECIDEOUS 
(3) MIXED 
(4) SNOW
(5) JUNGLE
Symbols must be in Symbol Manager

IFERR Choose
GV DENS 0.01
GN MOXT 100
GV SCALT 1
GN TIPE 1
GO EndChoose
:Choose
GV DENS 0.01
GV DENS ^D Tree density: (0.01)
GN MOXT 100
GN MOXT ^DENter max. tree#: (100)
GV SCALT 1
GV SCALT ^DEnter symbol scale: (1)
GN TIPE 1
GN TIPE ^DEnter forest type(1-5): (1)
IFZ TIPE MacroDone
IFN TIPE MacroDone
IFP TIPE-5 MacroDone
:EndChoose
GOLAYER JFOREST
SHEET SYMBOL FOREST
:Calcul
GETX X1 BX1
GETY Y1 BX1
GETX X2 BX2
GETY Y2 BX2
GV DX X2-X1
GV DY Y2-Y1
GV ARIA DX*DY
IFP ARIA Follaw
GV ARIA -ARIA
:Follaw
GN TREEN ARIA*DENS
GV PRCV 10
GN Arbre 0
:SemeT
IFZ (Arbre-TREEN) Fina
IFZ (Arbre-MOXT) Fina
Random XR
GV XR (X1+XR*DX)
Random YR
GV YR (Y1+YR*DY)
GP SYP XR,YR
Random NUMB
GN NUMB (NUMB*6+1)
IFZ TIPE-2 Decidus
IFZ TIPE-3 Mixaid
IFZ TIPE-4 Snaw
IFZ TIPE-5 Jingle
:Pyne
IFZ NUMB-2 P2
IFZ NUMB-3 P3
IFZ NUMB-4 P4
IFZ NUMB-5 P5
IFZ NUMB-6 P6
INSSYM Pine Tree 1;SCALT;SCALT;0;SYP;
GO Placed
:P2
INSSYM Pine Tree 2;SCALT;SCALT;0;SYP;
GO Placed
:P3
INSSYM Pine Tree 3;SCALT;SCALT;0;SYP;
GO Placed
:P4
INSSYM Pine Tree 4;SCALT;SCALT;0;SYP;
GO Placed
:P5
INSSYM Pine Tree 5;SCALT;SCALT;0;SYP;
GO Placed
:P6
INSSYM Pine Tree 6;SCALT;SCALT;0;SYP;
GO Placed
:Snaw
IFZ NUMB-2 S2
IFZ NUMB-3 S3
IFZ NUMB-4 S4
IFZ NUMB-5 S5
IFZ NUMB-6 S6
INSSYM Pine Tree s 1;SCALT;SCALT;0;SYP;
GO Placed
:S2
INSSYM Pine Tree s 2;SCALT;SCALT;0;SYP;
GO Placed
:S3
INSSYM Pine Tree s 3;SCALT;SCALT;0;SYP;
GO Placed
:S4
INSSYM Pine Tree s 4;SCALT;SCALT;0;SYP;
GO Placed
:S5
INSSYM Pine Tree s 5;SCALT;SCALT;0;SYP;
GO Placed
:S6
INSSYM Pine Tree s 6;SCALT;SCALT;0;SYP;
GO Placed
:Jingle
IFZ NUMB-2 J2
IFZ NUMB-3 J3
IFZ NUMB-4 J4
IFZ NUMB-5 J5
IFZ NUMB-6 J6
INSSYM Jungle Tree 1;SCALT;SCALT;0;SYP;
GO Placed
:J2
INSSYM Jungle Tree 2;SCALT;SCALT;0;SYP;
GO Placed
:J3
INSSYM Jungle Tree 3;SCALT;SCALT;0;SYP;
GO Placed
:J4
INSSYM Jungle Tree 4;SCALT;SCALT;0;SYP;
GO Placed
:J5
INSSYM Jungle Tree 5;SCALT;SCALT;0;SYP;
GO Placed
:J6
INSSYM Jungle Tree 6;SCALT;SCALT;0;SYP;
GO Placed
:Decidus
IFZ NUMB-2 D2
IFZ NUMB-3 D3
IFZ NUMB-4 D4
IFZ NUMB-5 D5
IFZ NUMB-6 D6
INSSYM Decid Tree 1;SCALT;SCALT;0;SYP;
GO Placed
:D2
INSSYM Decid Tree 2;SCALT;SCALT;0;SYP;
GO Placed
:D3
INSSYM Decid Tree 3;SCALT;SCALT;0;SYP;
GO Placed
:D4
INSSYM Decid Tree 4;SCALT;SCALT;0;SYP;
GO Placed
:D5
INSSYM Decid Tree 5;SCALT;SCALT;0;SYP;
GO Placed
:D6
INSSYM Decid Tree 6;SCALT;SCALT;0;SYP;
GO Placed
:Mixaid
RANDOM DP
IFN DP-0.5 Decidus
GO Pyne
:Placed
GN Arbre Arbre+1
GO SemeT
:Fina
HIDEA
SELBYA
sYMSORT
SHOWA
:MacroDone
SELREST
GETSETTINGS
REDRAW
ECON
ENDM


MACRO MTSY
ECOFF
SELSAVE
SAVESETTINGS
GE FL ^DSelect smooth line
IFERR MacroDone
LWIDTH 0;LSTYLE solid;FSTYLE solid
GOLAYER TMPMOUNTAINS
GOLAYER MOUNTAINS
SHEET SYMBOLS
ASKBOX DEFAULT VALUES ?
Step 10
Symbol X Size 1
Symbol Y Size 1
Symbol rotate 0
Color 81

IFERR Choose
GO NoChoose
:Choose
GV RV 10
GV RV ^DEnter step: (10)
GV XS 1
GV XS ^DEnter X size: (1)
GV YS 1
GV YS ^DEnter Y size: (1)
GV SR 0
GV SR ^DEnter rotation angle: (0)
GN CL 81
GN CL ^DEnter color: (81)
GO Begin
:NoChoose
GV RV 10
GV XS 1
GV YS 1
GV SR 0
GN CL 81
:Begin
GV LXS XS*1.25
GV LYS YS*1.25
GV SXS XS*0.75
GV SYS YS*0.75
COLOR CL
SELBY1
CHANGEL FL TMPMOUNTAINS
GLEN LV FL
GN LN LV/RV
GV PSTEP 100/LN
GV PRCV 0
:Placing
IFN 100-PRCV MacroDone
GP P1 % PRCV FL
GV TST (PRCV-50)*(PRCV-50)
IFN (TST-9) Large
IFP (TST-1600) Small
RANDOM RD1
GN NUMB (9*RD1+1)
:Mountains
IFZ (NUMB-1) M1
IFZ (NUMB-2) M2
IFZ (NUMB-3) M3
IFZ (NUMB-4) M4
IFZ (NUMB-5) M5
IFZ (NUMB-6) M6
IFZ (NUMB-7) M7
IFZ (NUMB-8) M8
:M9
INSSYM Mtns 09;XS;YS;SR;P1;
GO Placed
:M1
INSSYM Mtns 01;XS;YS;SR;P1;
GO Placed
:M2
INSSYM Mtns 02;XS;YS;SR;P1;
GO Placed
:M3
INSSYM Mtns 03;XS;YS;SR;P1;
GO Placed
:M4
INSSYM Mtns 04;XS;YS;SR;P1;
GO Placed
:M5
INSSYM Mtns 05;XS;YS;SR;P1;
GO Placed
:M6
INSSYM Mtns 06;XS;YS;SR;P1;
GO Placed
:M7
INSSYM Mtns 07;XS;YS;SR;P1;
GO Placed
:M8
INSSYM Mtns 08;XS;YS;SR;P1;
GO Placed
:Small
RANDOM RD1
GN NUMB (8*RD1+1)
IFZ (NUMB-1) S1
IFZ (NUMB-2) S2
IFZ (NUMB-3) S3
IFZ (NUMB-4) S4
IFZ (NUMB-5) S5
IFZ (NUMB-6) S6
IFZ (NUMB-7) S7
:S8
INSSYM Mtns Small 08;SXS;SYS;SR;P1;
GO Placed
:S8
INSSYM Mtns Small 08;SXS;SYS;SR;P1;
GO Placed
:S1
INSSYM Mtns Small 01;SXS;SYS;SR;P1;
GO Placed
:S2
INSSYM Mtns Small 02;SXS;SYS;SR;P1;
GO Placed
:S3
INSSYM Mtns Small 03;SXS;SYS;SR;P1;
GO Placed
:S4
INSSYM Mtns Small 04;SXS;SYS;SR;P1;
GO Placed
:S5
INSSYM Mtns Small 05;SXS;SYS;SR;P1;
GO Placed
:S6
INSSYM Mtns Small 06;SXS;SYS;SR;P1;
GO Placed
:S7
INSSYM Mtns Small 07;SXS;SYS;SR;P1;
GO Placed
:Large
RANDOM RD1
GN NUMB (3*RD1+1)
IFZ (NUMB-1) L1
IFZ (NUMB-2) L2
:L3
INSSYM Mtns Large 01;LXS;LYS;SR;P1;
GO Placed
:L1
INSSYM Mtns Large 01;LXS;LYS;SR;P1;
GO Placed
:L2
INSSYM Mtns Large 02;LXS;LYS;SR;P1;
:Placed
GV PRCV PRCV+PSTEP
GO Placing
:MacroDone
GOLAYER TMPMOUNTAINS
HIDE MOUNTAINS
ERA FL
SHOWA
GOLAYER MOUNTAINS
HIDEA
SELBYA
SYMSORT
SHOWA
GETSETTINGS
SELREST
ECON
ENDM