Т >BBCScape Т By David Lawrence Т For BBC B/B+/M/C/E/A (!Т (C) BBC Acorn User Sep 1989 2: <%К 135:Г ⌠-▓<&5000:п=&1100:в $&600 F К 129:Рinit:О 23;8202;0;0;0; PРfaults(faults) ZРlevels d Рdraw nЮ x: ┌ щРinit ▄6Г ⌠>&FFFF:size%=40 ▀ Г ⌠>&7FFF:size%=20 ▀ size%=12 √ zscale%=4 ═yscale%=(160/size%)*2 ╙xscale%=yscale%*2 Є:Х "Circular faults? "A$:circular=ї"Yy",юA$+"y",1))<>0 Ў8Х "Linear faults? "A$:linear=ї"Yy",юA$+"y",1))<>0 х5Х "Number of faults: "faults:Г faults=0:faults=50 рdelta=3 э: Фч land(size%,size%) П!ч s%(2),x%(2),y%(2),height(3) ЗО 19,3,4;0;12 black=0 blue=3 А ": ,щРfaults(num%) 6Ц i%=1 ╦ num% @&Я ┼0,0);"Faults left:";num%-i%;" " JГ circular Рcircle TГ linear Рline ^М hА r: |щРcircle ├x%=Ё(size%)-1 ░y%=Ё(size%)-1 r%=(Ё(size%)-1)^2 єadd=ЄЁ*Ё(1)*delta ўЦ X%=0 ╦ size% ╦dx=(X%-x%)^2 бГ dx=size% y2=size%-1 &Ц Y%=y1 ╦ y2 0land(X%,Y%)=land(X%,Y%)+add :М DА N: X щРline bУ ls%(1)=Ё(4):s%(2)=Ё(4) vЩ s%(1)<>s%(2) ─У ┼Ц J%=1 ╦ 2 ■)Г s%(J%)=1 x%(J%)=0:y%(J%)=Ё(size%)-1 ·-Г s%(J%)=2 x%(J%)=Ё(size%)-1:y%(J%)=size% ╗-Г s%(J%)=3 x%(J%)=size%:y%(J%)=Ё(size%)-1 ╡)Г s%(J%)=4 x%(J%)=Ё(size%)-1:y%(J%)=0 ╪М ф!Щ x%(1)<>x%(2) ─ y%(1)<>y%(2) п!M=(y%(2)-y%(1))/(x%(2)-x%(1)) зC=y%(1)-M*x%(1) Дadd=ЄЁ*Ё(1)*delta НЦ X%=0 ╦ size% Ь Y%=M*X%+C Г Y%<0 Y%=0 Г Y%<=size% Рdoline М А *: 4щРdoline >Ц y%=Y% ╦ size% Hland(X%,y%)=land(X%,y%)+add RМ \А f: pщРlevels z base=0 └ peak=0 ▌ aver=0 ≤+land(size%,size%)=land(size%-1,size%-1) ╒Ц X%=0 ╦ size%-1 ╛$land(X%, size%)=land(X%,size%-1) І#land(size%,X%)=land(size%-1,X%) ю+aver=aver+land(X%,size%)+land(size%,X%) йЦ Y%=0 ╦ size%-1 тaver=aver+land(X%,Y%) чBav=(land(X%,Y%)+land(X%+1,Y%)+land(X%,Y%+1)+land(X%+1,Y%+1))/4 ХГ avpeak peak=av ЭМ М water=aver/(size%*size%) А $: . щРdraw 8ш B col%=1 LЦ I%=0 ╦ size%-1 VЦ J%=0 ╦ size%-1 `Рpatch(I%,J%) jГ I%=size%-1 Рside(col%) tcol%=3-col% ~М ┬col%=3-col% ▓Рedge(col%) °М і Ф 0,0 ╟Р3d(4,size%,size%,water) ╨Р3d(5,size%,size%,base) дР3dd(5,size%,size%) нА ь: БщРpatch(X%,Y%) Лheight(0)=land(X%,Y%)-water Ж!height(1)=land(X%+1,Y%)-water #height(2)=land(X%+1,Y%+1)-water !height(3)=land(X%,Y%+1)-water F$="FN" Ц i%=0 ╦ 3 ((Г height(i%)<0 F$=F$+"b" ▀ F$=F$+"a" 2М <Рsea FФ 0,col% Pnull=═(F$) ZА d: nщРedge(col%) xФ 0,blue ┌Р3d(4,I%,size%,base) ▄Р3d(4,I%+1,size%,base) √Р3d(85,I%,size%,water) ═Р3d(85,I%+1,size%,water) ╙ Ф 0,black ЄР3d(5,I%,size%,water) ЎФ 0,col% хР3d(4,I%,size%,base) рР3d(4,I%+1,size%,base) эР3dd(85,I%,size%) ФР3dd(85,I%+1,size%) П Ф 0,0 ЗР3dd(5,I%,size%) А : щРside(col%) "Ф 0,blue ,Р3d(4,size%,J%,base) 6Р3d(4,size%,J%+1, base) @Р3d(85,size%,J%,water) JР3d(85,size%,J%+1,water) T Ф 0,0 ^Р3d(5,size%,J%,water) hФ 0,col% rР3d(4,size%,J%,base) |Р3d(4,size%,J%+1,base) ├Р3dd(85,size%,J%) ░Р3dd(85,size%,J%+1) Ф 0,0 єР3dd(5,size%,J%) ўА ╦: б щРsea лФ 0,blue жР3d(4,X%,Y%,water) ЮР3d(4,X%+1,Y%,water) ЙР3d(85,X%,Y%+1,water) ТР3d(85,X%+1,Y%+1,water) ЧА : щєaaaa Р3dd(4,X%,Y%) &Р3dd(4,X%+1,Y%) 0Р3dd(85,X%,Y%+1) :Р3dd(85,X%+1,Y%+1) D Ф 0,black NР3dd(5,X%+1,Y%) XР3dd(5,X%,Y%) bР3dd(5,X%,Y%+1) lР3dd(5,X%+1,Y%+1) v=0 ─: ┼ щєaaab ■Р3dd(4,X%,Y%) ·Р3dd(4,X%+1,Y%) ╗Р3dm(85,3) ╡Р3dd(85,X%+1,Y%+1) ╪Р3dm(85,2) ф Ф 0,black п Р3dm(5,3) зР3dd(5,X%,Y%) ДР3dd(5,X%+1,Y%) НР3dd(5,X%+1,Y%+1) Ь Р3dm(5,2) =0 : щєaaba Р3dd(4,X%,Y%) *Р3dd(4,X%,Y%+1) 4Р3dd(85,X%+1,Y%) >Р3dm(85,2) HР3dm(85,1) R Ф 0,black \ Р3dm(5,2) fР3dd(5,X%,Y%+1) pР3dd(5,X%,Y%) zР3dd(5,X%+1,Y%) └ Р3dm(5,1) ▌=0 ≤: ╒ щєaabb ╛Р3dd(4,X%,Y%) ІР3dd(4,X%+1,Y%) юР3dm(85,3) йР3dm(85,1) т Ф 0,black ч Р3dm(5,3) ХР3dd(5,X%,Y%) РР3dd(5,X%+1,Y%) Э Р3dm(5,1) =0 : щєabaa $Р3dd(4,X%,Y%+1) .Р3dd(4,X%+1,Y%+1) 8Р3dd(85,X%,Y%) BР3dm(85,1) LР3dm(85,0) V Ф 0,black ` Р3dm(5,1) jР3dd(5,X%+1,Y%+1) tР3dd(5,X%,Y%+1) ~Р3dd(5,X%,Y%) ┬ Р3dm(5,0) ▓=0 °: і щєabab ╟Рtri(0) ╨Ф 0,col% дРtri(2) н=0 ь: Б щєabba ЛР3dd(4,X%,Y%) ЖР3dd(4,X%,Y%+1) Р3dm(85,0) Р3dm(85,2) Ф 0,black Р3dd(5,X%,Y%+1) (Р3dd(5,X%,Y%) 2 Р3dm(5,0) < Р3dm(5,2) F=0 P: Z щєabbb dРtri(0) n=0 x: ┌ щєbaaa ▄ Р3dm(4,3) √ Р3dm(4,0) ═Р3dd(85,X%,Y%+1) ╙Р3dd(85,X%+1,Y%) ЄР3dd(85,X%+1,Y%+1) Ў Ф 0,black хР3dd(5,X%,Y%+1) р Р3dm(5,3) э Р3dm(5,0) ФР3dd(5,X%+1,Y%) ПР3dd(5,X%+1,Y%+1) З=0 : щєbaab Р3dd(4,X%+1,Y%+1) "Р3dd(4,X%+1,Y%) ,Р3dm(85,2) 6Р3dm(85,0) @ Ф 0,black J Р3dm(5,2) TР3dd(5,X%+1,Y%+1) ^Р3dd(5,X%+1,Y%) h Р3dm(5,0) r=0 |: ├ щєbaba ░Рtri(1) Ф 0,col% єРtri(3) ў=0 ╦: б щєbabb лРtri(1) ж=0 Ю: Й щєbbaa ТР3dd(4,X%+1,Y%+1) ЧР3dd(4,X%,Y%+1) Р3dm(85,1) Р3dm(85,3) Ф 0,black & Р3dm(5,1) 0Р3dd(5,X%+1,Y%+1) :Р3dd(5,X%,Y%+1) D Р3dm(5,3) N=0 X: b щєbbab lРtri(2) v=0 ─: ┼ щєbbba ■Рtri(3) ·=0 ╗: ╡ щєbbbb ╪=0 ф: пщРtat(x%,y%,s1%,s2%) зР3dd(4,x%,y%) ДР3dm(4,s1%) НР3dm(85,s2%) Ь Ф 0,black Р3dm(5,s1%) Р3dd(5,x%,y%) Р3dm(5,s2%) А *: 4 щРtri(t%) >Г t%=0 Рtat(X%,Y%,3,0) HГ t%=1 Рtat(X%+1,Y%,0,1) RГ t%=2 Рtat(X%+1,Y%+1,1,2) \Г t%=3 Рtat(X%,Y%+1,2,3) fА p: zщР3dm(o%,s%) └!Г s%=0 Рmid(o%,X%,Y%,1,0,0,1) ▌#Г s%=1 Рmid(o%,X%+1,Y%,0,1,1,2) ≤#Г s%=2 Рmid(o%,X%,Y%+1,1,0,3,2) ╒!Г s%=3 Рmid(o%,X%,Y%,0,1,0,3) ╛А І: ющРmid(o%,xs,ys,xa,ya,zs,ze) й(d=height(zs)/(height(zs)-height(ze)) т<Г xa Р3d(o%,xs+d*xa,ys,water) ▀ Р3d(o%,xs,ys+d*ya,water) чА Х: РщР3dd(o%,X,Y) ЭР3d(o%,X,Y,land(X,Y)) А : щР3d(o%,X,Y,Z) $6П o%,640+(X-Y)*xscale%,850-(X+Y)*yscale%+Z*zscale% .А Ъ