AMOS Pro101v%R R3D Terain Creator RRichard Wheeldon 1996 R>+> !@> \> @t> |\>R RPlanet Constants!dist\zom\ xmid\ymid\yfactxf\$yf\*zfdist>Tzom> xmid>Tymid>xf>2T$yf>2T*zf> yfact>R0rivers\6lsize\<thresh\Brivmark 0rivers>P 6lsize>P <thresh> Brivmark>RHxsize>(TNysize>(@T@maptHxsize\Nysize|Hxsize\Nysize\@mapt|v& Please Wait. Setting up Islands.genmap >\>@\>\> \ FT 4T>T *RLPalette $9,$9,$9,$50,$50,$50,$50,$50,$50,$A80,$A80,$A80,$444,$666,$888,$FFF & 6\6 \6 \6 \6 \6 \6\6\6  >\6mainR vH main~4  _showlandP8 i sb \if& 1i&6 Xxmid\> %3i&4 Xxmid\> %3i&8 Xymid\> %1i&2 Xymid\> %3i&7 Xdist\> %1i&9 Xdist\> %3i&1 Xzom\> %1i&3 Xzom\> %)i&5 vrotmap%&iRt>| pR v shwmap<x>xsize<y>ysize D@maptx\y|thresh. x>\y>x>>\y>>FF vngenmap<c>>t>|) genislandtxsize|\tysize|\tlsize|F<x>xsize<| y>ysize* @maptx\ y|@maptx\ y|yfactFF R_ADD_MOUNTAINS R _ADD_RIVERS v genislandx\y\ rx><xxsize<y><yysize<X@maptx\y|\ r1@maptx\y|t@maptx\y|\thresh>|  r> dt>| ]d>"  genislandx\y>\ r> %]d>"  genislandx>\y\ r> %\d>"  genislandx\y>\ r>N"  genislandx>\y\ r>vn0 _add_rivers<Rc1>riversxtxsize| ytysize|1h@maptx\ y|>X@maptx\ y|frivmark m@maptx\ y| @maptx\ y|rivmark R) %m1@maptx\ y>|T)bm1>) %m2@maptx\ y>|T)bm2>) %$m3@maptx>\ y|T)b$m3>) %*m4@maptx>\ y|T)b*m4> R+ mm1Xmm2Xm$m3Xm*m4 @maptx\ y|>! %Qm1zm2Xm1z$m3Xm1z*m4 D y! %Qm2zm1Xm2z$m3Xm2z*m4 N y! %Q$m3zm2X$m3zm1X$m3z*m4 Dx! %R*m4zm2X*m4z$m3X*m4zm1 Nx tFv  _showland <yysize>>V><x>xsize>g @maptx\y|>X@maptx>\y|>X@maptx\y>|>X@maptx>\y>|> D>  fcalccolxxf\yf@maptx\y|\>yzf\xftx>|\yf@maptx>\y|\yzf>\xftx>|\yf@maptx>\y>|\ty>|zf>\xfx\yf@maptx\y>|\ty>|zf> D  _bar3dxxf\yf@maptx\y|\>yzf\xftx>|\yf@maptx>\y|\yzf>\xftx>|\yf@maptx>\y>|\ty>|zf>\xfx\yf@maptx\y>|\ty>|zf>FF R Y=YSIZER For X=0 To XSIZE-1 R Ink Rnd(6)+16Rd _BAR3D[X*F,-F*MAP(X,Y),700+Y*F,F*(X+1),-F*MAP(X+1,Y),Y*F+700,F*(X+1),0,Y*F+700,X*F,0,700+Y*F] R Next R X=XSIZER For Y=0 To YSIZE-1 R Ink Rnd(6)+16Rd _BAR3D[X*F,-F*MAP(X,Y),700+Y*F,F*X,-F*MAP(X,Y+1),(Y+1)*F+700,X*F,0,700+(Y+1)*F,F*X,0,Y*F+700] R Next -v<_line3dx1\y1\ z1\x2\y2\z2'$xp1xmidtx1zom|tdist z1|'*yp1ymidty1zom|tdist z1|'0xp2xmidtx2zom|tdistz2|'6yp2ymidty2zom|tdistz2|t$xp1\*yp10xp2\6yp2Jvx_bar3dx1\y1\ z1\x2\y2\z2\$x3\*y3\0z3\6x4\<y4\Bz4y1y1>Ty2y2>*y3*y3>T<y4<y4>Rx1x1>Tx2x2>$x3$x3>T6x46x4>R  z1 z1Tz2z20z30z3TBz4Bz4R'Hxp1xmidtx1zom|tdist z1|'Nyp1ymidty1zom|tdist z1|R'Txp2xmidtx2zom|tdistz2|'Zyp2ymidty2zom|tdistz2|R'`xp3xmidt$x3zom|tdist0z3|'fyp3ymidt*y3zom|tdist0z3|R'lxp4xmidt6x4zom|tdistBz4|'ryp4ymidt<y4zom|tdistBz4|R2Hxp1\Nyp1Txp2\Zyp2`xp3\fyp3lxp4\ryp4R Print At(0,0);XP4;" ";YP4;" " vrotmap@@map2txsize\xsize|<x1>xsize<| y1>xsize* @map2tx1\ y1|@mapt y1\xsizex1|FF<x1>xsize<n y1>xsize# @maptx1\ y1|@map2tx1\ y1|FFRKvƀcalccolx1\y1\ z1\x2\y2\z2\$x3\*y3\0z3\6x4\<y4\Bz4\e Hlx> Nly> Tlz>R2Zg1FAty1y2*y3<y4|tt0z3 z1|>|2`g2FAty2*y3<y4y1|ttx2x1|>|Rfig1FAZg1lig2FA`g2Rrcxtx1x2|FB xcyty1y2*y3<y4|FC~czt z10z3|FBRk1xcytfig1~cz|k2xcytfig1rcx|RvxtNlyk2|lig2 vyNlyvztNlyk1|fig1R6a2tHlxvx|>tNlyvy|>tNlyvy|>6b2tHlxrcx|>tNlyxcy|>tNlyxcy|>6c2trcxvx|>txcyvy|>txcyvy|>Rbhtb2|Tchtc2|R(cta2b2c2|tFBbc|Rc>t>c|R <cR eAmBs