Home » Archimedes archive » Archimedes World » AW-1994-09-Disc1.adf » Disk1Sep94 » !AWSept94/Goodies/Ray3D/!RayShade/!Runimage
!AWSept94/Goodies/Ray3D/!RayShade/!Runimage
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » Archimedes archive » Archimedes World » AW-1994-09-Disc1.adf » Disk1Sep94 |
| Filename: | !AWSept94/Goodies/Ray3D/!RayShade/!Runimage |
| Read OK: | ✔ |
| File size: | 2BFE bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
1
2g$="v1.00 (2 April 1994)":aa%=180:SYS"Hourglass_On"::ONERRORCLS:REPORT:PRINT" at line ";ERL:G=GET:END
5PROCj:SYS"Hourglass_Off":ONERRORPROCk(ERR,REPORT$,ERL)
8REPEAT:SYS"Wimp_Poll",1,b%TOc:CASE(c)OF
11WHEN1:PROCl(!b%)
13WHEN2:PROCm
14WHEN3:PROCf(!b%)
15WHEN6:PROCn(b%)
16WHEN7:PROCo
17WHEN8:PROCp(!b%,b%!4,b%!24)
18WHEN9:IF!b%=3THENE%=TRUE
18WHEN17,18:PROCq(b%!16)
20ENDCASE
20UNTILE%:PROCc:END
23DEFPROCl(W%):LOCALN:!b%=W%:SYS"Wimp_RedrawWindow",,b%TO_%:ba%=b%!4-b%!20:F%=(b%!16-b%!24)+4:WHILE_%:CASEW%OF
30WHEN`%:SYS"Wimp_SetColour",7:ca%=(F%-b%!40)DIV40:G%=(F%-b%!32)DIV40:IFG%>da%-1G%=da%-1
35FORN=ca%TOG%+1:MOVEba%+16,F%-(N*40)-12:PRINT$(!(ea%+N*4)):NEXT
40ENDCASE
40SYS"Wimp_GetRectangle",,b%TO_%:ENDWHILE:ENDPROC
43DEFPROCn(b%):LOCALI%,A$,W%,m%:I%=b%!16:W%=b%!12:m%=b%!8:CASEm%OF
50WHEN2:fa%=1:IFW%=-2THENy%=284ELSEy%=b%!4
53PROCr(" !RayShade ","Info,Image size,Options,Quit,",!b%,y%)
55WHEN1,4:IFI%<>-1THENPROCg(W%,I%,4)
56WHEN16,64:IFW%=g%ANDI%=1THENPROCs:ga%=3
58ENDCASE
59ENDPROC
60DEFPROCp(W%,I%,C%):CASEC%OF
65WHEN13:CASEW%OF
67WHENg%:IFI%=2THENPROCg(W%,0,4):ha%=0
69ENDCASE
70ENDCASE
71SYS"Wimp_ProcessKey",C%:ENDPROC
73DEFFNf(A):LOCALS$,N:WHILE(A!NMOD256)<>13AND(A!NMOD256)<>0:S$+=CHR$(A!N):N+=1:ENDWHILE:=S$
80DEFFNj(b$):LOCALF$,N:N=LEN(b$):WHILEMID$(b$,N,1)<>"."ANDN>0:F$=MID$(b$,N,1)+F$:N-=1:ENDWHILE:=F$
87DEFFNg(b$):C=OPENIN(b$):CLOSE#C:IFC=0THEN=0ELSE=-1
88DEFPROCk(b,d$,e)
93*CLOSE
93SYS"Hourglass_Smash":SYS"Wimp_CreateMenu",-1:CASEbOF
96WHEN1:d$=a$(3):!b%=b:$(b%+4)=d$:SYS"Wimp_ReportError",b%,1,"!Rayshade"TO,m%:PROCc
102OTHERWISE:d$+=" ("+STR$(e)+"). "+a$(4):!b%=b:$(b%+4)=d$:SYS"Wimp_ReportError",b%,3,"!Rayshade"TO,m%:IFm%=2THENPROCc
106ENDCASE
107ENDPROC
108DEFPROCg(W%,I%,ia%):LOCALja%,A,ka%,f$,Q%,la%:CASEW%OF
114WHENh%:IFI%=25THENma%=-1-ma%
116WHENg%:IFI%=0THEN
118c$=FNa(g%,2):IFINSTR(c$,"$.")=0THENERROR17,a$(1)
120IFFNg(c$)THENPROCd(q%)ELSEPROCe
121ENDIF
122WHENq%:IFI%>3THENPROCf(q%)
124IFI%=5THENSYS"XOS_File",7,c$+CHR$0
125IFI%>4THENPROCe
126WHENr%:IFI%>3THENH%=I%
128ENDCASE
129ENDPROC
130DEFPROCr(e$,m$,X%,Y%):PROCt(J%,e$,m$):SYS"Wimp_CreateMenu",,J%,X%-J%!16/2,Y%:ENDPROC
137DEFPROCt(M%,e$,m$):LOCALI%,u%,na%,ea%,oa%,N:oa%=128:$M%=e$:M%!12=459271:M%!20=44:M%!24=0:I%=M%+28:u%=LEN(e$)-2:REPEAT:A%=INSTR(m$,","):$(I%+12)=LEFT$(m$,A%-1):m$=MID$(m$,A%+1):IFA%>u%u%=A%
145!I%=0:I%!4=0::CASE$(I%+12)OF
148WHEN"Info":I%!4=pa%
150WHEN"Image size":I%!4=r%
151WHEN"Options":I%!4=h%
152ENDCASE
152:I%!8=&7000021:I%+=24:UNTILm$="":!(I%-24)=oa%:M%!16=u%*16:ENDPROC
157DEFPROCe:LOCALa$,R%,h$,i$:SYS"Wimp_Poll",,b%TOc:a$="":R%=h%:PROCu("<Wimp$Scrap>"):IFFNb(0,R%)a$+=" -c"ELSEa$+=" -n"
166IFFNb(4,R%)a$+=" -F 1"
167IFFNb(1,R%)a$+=" -j -S "+FNa(R%,2)
168IFFNb(9,R%)a$+=" -L "+FNa(R%,10)
169IFFNb(3,R%)a$+=" -T "+FNa(R%,7)
170a$+=" -R "+STR$(VAL(FNa(r%,1))/2^(H%-4))+" ":a$+=STR$(VAL(FNa(r%,3))/2^(H%-4)):a$="<Trace01$Dir>.RayShade"+a$+" -O "+c$+" ":a$+="<Wimp$Scrap>":SYS"Wimp_StartTask",a$:SYS"XOS_File",18,c$+CHR$0,1689:!b%=g%:SYS"Wimp_CloseWindow",,b%:R%=FNd(K%)
178R%=FNd(w%):R%=FNd(e%):ENDPROC
181DEFPROCv:LOCALt%:SYS"OS_ReadMemMapInfo"TOx%:j%=x%:SYS"Wimp_SlotSize",-1,-1TOt%:d%=t%+32768:SYS"Wimp_SlotSize",d%+j%-32768,-1:SYS"OS_Heap",0,d%,,j%:ENDPROC
192DEFFNe(o%):LOCALa%:SYS"XOS_Heap",2,d%,,o%TO,,a%:IFa%<>0THEN=a%
197IFFNh(o%)=FALSETHEN=0
198SYS"XOS_Heap",2,d%,,o%TO,,a%:PROCh:IFa%=0THENERROR1,"Cannot claim enough free memory."
201=a%
204DEFFNl(p%,O%):LOCALn%,f%,t%:SYS"XOS_Heap",4,d%,p%,O%TO,,n%;f%:IF(f%AND1)=0THEN=n%
207SYS"OS_Heap",6,d%,p%TO,,,t%:IFFNh(t%+O%)=FALSETHEN=0
209SYS"XOS_Heap",4,d%,p%,O%TO,,n%;f%:IF(f%AND1)=0THEN=n%
211=0
214DEFFNd(p%):SYS"OS_Heap",3,d%,p%:PROCh:=0
219DEFFNh(o%):LOCALs%,f%:s%=FNi(j%+o%):SYS"XWimp_SlotSize",d%+s%-32768,-1TO;f%:IF(f%AND1)=1THEN=FALSE
223SYS"OS_Heap",5,d%,,s%-j%:j%=s%:=TRUE
228DEFPROCh:LOCALs%,t%:s%=j%:SYS"XOS_Heap",5,d%,,-s%TO,,,t%:IFt%=-s%THENt%=s%
232j%=FNi(j%-t%):SYS"XOS_Heap",5,d%,,j%-(s%-t%):SYS"Wimp_SlotSize",d%+j%-32768,-1:ENDPROC
236DEFFNi(s%):LOCALt%:IF(s%MODx%)<>0THEN
240t%=x%-(s%MODx%):s%+=t%
243ENDIF
243=s%
246DEFFNm:LOCALt%:SYS"OS_Heap",1,d%TO,,t%:=t%
253DEFPROCj
254*KEY 1 EDIT|M
254DIMb% 1536,J% 4000:DIMS% 4608:qa%=S%+4608:DIMd%(2),c%(3),b%(3):DIMb$(10),a%(10,8):DIMa$(25):DIMea% 4000::a=-1:da%=0:H%=6:E%=0:ga%=0:l%=0:z%=0:SYS"Wimp_Initialise",200,&4B534154,"Rayshade (Parser)"TO,ra%:PROCv:PROCw:PROCx:PROCi(pa%,6,g$):PROCy:ENDPROC
275DEFPROCy:LOCALM$,C,N:N=0:M$="":C=OPENIN("<Trace01$Dir>.Messages"):WHILEM$<>"End":N+=1:M$=FNk(C):IFM$<>"End"THENa$(N)=M$
283ENDWHILE:CLOSE#C:ENDPROC
286DEFFNk(c%):LOCALs$,v%:s$="":v%=BGET#c%:WHILEv%>31ANDNOT(EOF#c%):s$+=CHR$v%:v%=BGET#c%:ENDWHILE:=s$
296DEFPROCw:DIMsa% 12:$sa%="Rayshade":DIMta% 20:$ta%="Sirayshade":b%!0=-1:b%!4=0:b%!8=-12:b%!12=140:b%!16=76:b%!20=385888523:b%!24=sa%:b%!28=ta%:b%!32=12:SYS"Wimp_CreateIcon",,b%:ENDPROC
307DEFPROCx:SYS"Wimp_OpenTemplate",,"<Trace01$Dir>.Templates":pa%=FNc("info"):h%=FNc("rayopts"):r%=FNc("image"):g%=FNc("trace"):q%=FNc("exists"):`%=FNc("txt"):SYS"Wimp_CloseTemplate":ENDPROC
320DEFFNc(f$):SYS"Wimp_LoadTemplate",,b%,S%,qa%,-1,f$,0TO,,S%,,,,P%:SYS"Wimp_CreateWindow",,b%TOua%:=ua%
328DEFPROCz(b$):LOCALc%,v%,B%,A$,N:SYS"OS_Find",79,b$TOc%:B%=BGET#c%:v%=B%*100:B%=BGET#c%:v%+=B%:IFv%>aa%THENSYS"OS_Find",0,c%:ERROR17,a$(2)
336IFv%>=110THEN
341B%=BGET#c%:T%=B%*100:B%=BGET#c%:T%+=B%:IFT%>0THEN
344FORN=1TOT%:INPUT#c%,A$:NEXT
348ENDIF
348ENDIF
349B%=BGET#c%:l%=B%*256:B%=BGET#c%:l%+=B%:B%=BGET#c%:U%=B%*256:B%=BGET#c%:U%+=B%:K%=FNe(U%):SYS"OS_GBPB",4,c%,K%,U%:FORN=1TOl%:INPUT#c%,A$:NEXT:z%=BGET#c%:w%=FNe(z%*40):SYS"OS_GBPB",4,c%,w%,z%*40:e%=FNe(l%*20)
370IFl%<>0THENSYS"OS_GBPB",4,c%,e%,l%*20
371b%(0)=BGET#c%:c%(0)=BGET#c%:b%(0)-=1:c%(0)-=1:FORN=1TO3:B%=BGET#c%:b%(N)=B%*256:B%=BGET#c%:b%(N)+=B%:B%=BGET#c%:c%(N)=B%*256:B%=BGET#c%:c%(N)+=B%:NEXT:va%=BGET#c%:FORN=1TO10:INPUT#c%,b$(N):FORF=0TO8:B%=BGET#c%:a%(N,F)=B%*256:B%=BGET#c%:a%(N,F)+=B%:NEXT:NEXT
393d%(0)=BGET#c%:d%(1)=BGET#c%:d%(2)=BGET#c%:SYS"OS_Find",0,c%:l%-=1:PROCd(g%):ENDPROC
408DEFPROCu(b$):LOCALC,V%,wa%:C=OPENOUT(b$):V%=VAL(FNa(h%,21)):wa%=VAL(FNa(h%,22)):PROCA:PROCB:PROCC:PROCD:CLOSE#C:OSCLI("Settype "+b$+" fff"):ENDPROC
422DEFPROCA:BPUT#C,"/*":BPUT#C," * Scene generated using !Ray3d":BPUT#C," * written by Robet Taylor.":BPUT#C," *":BPUT#C," * ("+TIME$+")":BPUT#C," */":BPUT#C,"":BPUT#C,"eyep "+STR$(b%(1))+" "+STR$(b%(2))+" "+STR$(b%(3))
432BPUT#C,"lookp "+STR$(c%(1))+" "+STR$(c%(2))+" "+STR$(c%(3)):BPUT#C,"fov "+STR$(V%)+" "+STR$(V%):BPUT#C,"aperture "+STR$(wa%):BPUT#C,"background "+STR$(d%(0)/100)+" "+STR$(d%(1)/100);:BPUT#C," "+STR$(d%(2)/100):IFFNb(6,h%)THEN
438BPUT#C,"grid "+FNa(h%,8)+" "+FNa(h%,8)+" ";:BPUT#C,FNa(h%,8)
441ENDIF
441ENDPROC
442DEFPROCE:BPUT#C,"triangle ";:PROCa(0):BPUT#C,STR$(N%!56)+" "+STR$(N%!60)+" "+STR$(N%!64)+" ";:BPUT#C,STR$(N%!8)+" "+STR$(N%!12)+" "+STR$(N%!16)+" ";:BPUT#C,STR$(N%!20)+" "+STR$(N%!24)+" "+STR$(N%!28)+" ";:PROCb:BPUT#C,"triangle ";:PROCa(0):BPUT#C,STR$(N%!56)+" "+STR$(N%!60)+" "+STR$(N%!64)+" ";
451BPUT#C,STR$(N%!20)+" "+STR$(N%!24)+" "+STR$(N%!28)+" ";:BPUT#C,STR$(N%!32)+" "+STR$(N%!36)+" "+STR$(N%!40)+" ";:PROCb:BPUT#C,"triangle ";:PROCa(0):BPUT#C,STR$(N%!56)+" "+STR$(N%!60)+" "+STR$(N%!64)+" ";:BPUT#C,STR$(N%!32)+" "+STR$(N%!36)+" "+STR$(N%!40)+" ";
457BPUT#C,STR$(N%!44)+" "+STR$(N%!48)+" "+STR$(N%!52)+" ";:PROCb:BPUT#C,"triangle ";:PROCa(0):BPUT#C,STR$(N%!56)+" "+STR$(N%!60)+" "+STR$(N%!64)+" ";:BPUT#C,STR$(N%!44)+" "+STR$(N%!48)+" "+STR$(N%!52)+" ";:BPUT#C,STR$(N%!8)+" "+STR$(N%!12)+" "+STR$(N%!16)+" ";:PROCb:BPUT#C,"poly ";
465PROCa(0):BPUT#C,"":FORF=1TO4:BPUT#C," "+STR$(N%!(F*12-4))+" "+STR$(N%!(F*12))+" ";:BPUT#C,STR$(N%!(F*12+4)):NEXT:PROCb:ENDPROC
470DEFPROCC:LOCALN%,F,D%,s%:BPUT#C,"":BPUT#C,"/* Primitive definitions go here":BPUT#C," */":BPUT#C,"":k%=0:N%=K%:WHILE!N%<>-256:k%+=1:CASE!N%OF
481WHEN-1:BPUT#C,"triangle ";:PROCa(0):BPUT#C,STR$(N%!8)+" "+STR$(N%!12)+" "+STR$(N%!16)+" ";:BPUT#C,STR$(N%!20)+" "+STR$(N%!24)+" "+STR$(N%!28)+" ";:BPUT#C,STR$(N%!32)+" "+STR$(N%!36)+" "+STR$(N%!40)+" ":N%+=44:PROCb
488WHEN-2:BPUT#C,"sphere ";:PROCa(0):BPUT#C,STR$(N%!20)+" "+STR$(N%!8)+" "+STR$(N%!12)+" "+STR$(N%!16):N%+=24:PROCb
492WHEN-3:BPUT#C,"poly ";:PROCa(0):BPUT#C,"":FORF=1TON%!8:BPUT#C," "+STR$(N%!(F*12))+" "+STR$(N%!(F*12+4))+" ";:BPUT#C,STR$(N%!(F*12+8)):NEXT:REPEAT:N%+=4:UNTIL!N%<0:PROCb
499WHEN-4:BPUT#C,"cylinder ";:PROCa(0):BPUT#C,STR$(N%!8)+" "+STR$(N%!12)+" "+STR$(N%!16)+" ";:BPUT#C,STR$(N%!20)+" "+STR$(N%!24)+" "+STR$(N%!28)+" "+STR$(N%!32):N%+=132:PROCb
504WHEN-5:BPUT#C,"cone ";:PROCa(0):BPUT#C,STR$(N%!8)+" "+STR$(N%!12)+" "+STR$(N%!16)+" ";:BPUT#C,STR$(N%!20)+" "+STR$(N%!24)+" "+STR$(N%!28)+" ";:BPUT#C,STR$(N%!32)+" "+STR$(N%!36):N%+=232:PROCb
510WHEN-6:BPUT#C,"box ";:PROCa(0):BPUT#C,"0 0 0 ";:BPUT#C,STR$(N%!20)+" "+STR$(N%!24)+" "+STR$(N%!28)+" ":BPUT#C," rotate 1 0 0 "+STR$(360-N%!32):BPUT#C," rotate 0 1 0 "+STR$(360-N%!36):BPUT#C," rotate 0 0 1 "+STR$(360-N%!40)
516BPUT#C," translate "+STR$(N%!8)+" "+STR$(N%!12)+" "+STR$(N%!16):N%+=140:PROCb
519WHEN-7:BPUT#C,"plane ";:PROCa(0):BPUT#C,STR$(N%!56-(N%!8+(N%!32-N%!8)/2))+" ";:BPUT#C,STR$(N%!60-(N%!12+(N%!36-N%!12)/2))+" ";:BPUT#C,STR$(N%!64-(N%!16+(N%!40-N%!16)/2))+" ";:BPUT#C,STR$(N%!8+(N%!32-N%!8)/2)+" ";:BPUT#C,STR$(N%!12+(N%!36-N%!12)/2)+" ";
525BPUT#C,STR$(N%!16+(N%!40-N%!16)/2):N%+=68:PROCb
528WHEN-8:BPUT#C,"poly ";:PROCa(0):BPUT#C,"":FORF=1TO4:BPUT#C," "+STR$(N%!(F*12-4))+" "+STR$(N%!(F*12))+" ";:BPUT#C,STR$(N%!(F*12+4)):NEXT:N%+=56:PROCb
535WHEN-9:PROCE:N%+=68
536WHEN-10:BPUT#C,"superq ";:PROCa(0):BPUT#C,"0 0 0 ";:BPUT#C,STR$(N%!20)+" "+STR$(N%!24)+" "+STR$(N%!28)+" 5":BPUT#C," rotate 1 0 0 "+STR$(360-N%!32):BPUT#C," rotate 0 1 0 "+STR$(360-N%!36):BPUT#C," rotate 0 0 1 "+STR$(360-N%!40)
542BPUT#C," translate "+STR$(N%!8)+" "+STR$(N%!12)+" "+STR$(N%!16):N%+=140:PROCb
545ENDCASE
545ENDWHILE:ENDPROC
547DEFPROCB:LOCALN,F:BPUT#C,"":BPUT#C,"/* Surface definitions go here":BPUT#C," */":BPUT#C,"":BPUT#C," surface default 0.16 0.16 0.16 0.64 0.64 0.64":BPUT#C," 0.2 0.2 0.2 18 0.2 0 1":BPUT#C,"":L%=VAL(FNa(h%,19)):FORN=0TOz%-1:F=w%+N*40
560BPUT#C,"surface "+$(F)+" ";:P%=100:BPUT#C,STR$(F?23/10000*L%)+" ";:BPUT#C,STR$(F?24/10000*L%)+" ";:BPUT#C,STR$(F?25/10000*L%):BPUT#C," "+STR$((F?23-F?23/100*L%)/100)+" ";:BPUT#C,STR$((F?24-F?24/100*L%)/100)+" ";:BPUT#C,STR$((F?25-F?25/100*L%)/100)
568BPUT#C," "+STR$(P%/100)+" "+STR$(P%/100)+" "+STR$(P%/100):BPUT#C," "+STR$(F?29/2)+" "+STR$(F?30/100)+" ";:BPUT#C,STR$(F?31/100)+" "+STR$(1/(F!32*100))+" ";:IFF!36<>0THENBPUT#C," "+STR$(1/(F!32*100))+" "+STR$(F?29)ELSEBPUT#C,""
572NEXT:ENDPROC
574DEFPROCD:LOCALN:BPUT#C,"":BPUT#C,"/* Light definitions go here":BPUT#C," */":BPUT#C,"":IFva%=0THENBPUT#C,"light 1.6 point "+STR$(b%(1))+" "+STR$(b%(2))+" "+STR$(b%(3)):ENDPROC
582FORN=1TOva%:BPUT#C,"light ";:IFa%(N,5)=0ANDa%(N,6)=0ANDa%(N,7)=0THEN
585BPUT#C,STR$(a%(N,4)/100);
587ELSE:BPUT#C,STR$(a%(N,5)/100*a%(N,4)/100)+" ";:BPUT#C,STR$(a%(N,6)/100*a%(N,4)/100)+" ";:BPUT#C,STR$(a%(N,7)/100*a%(N,4)/100);
591ENDIF
591IFa%(N,0)=0THENBPUT#C," point ";ELSEBPUT#C," extended ";
592BPUT#C,STR$(a%(N,1))+" "+STR$(a%(N,2))+" ";:BPUT#C,STR$(a%(N,3));:IFa%(N,0)=1THEN
595BPUT#C," "+STR$(a%(N,4)*16)
597ELSE:BPUT#C,""
599ENDIF
599NEXT:ENDPROC
601DEFPROCa(X):LOCALA:A=!(e%+k%*20-20+X):IFA=0THENBPUT#C,"default ";
606IFA<>0THENBPUT#C,$(w%+(A-1)*40)+" ";
607ENDPROC
608DEFPROCb:D%=!(e%+k%*20-12):IFD%<>0THEN
612CASED%OF
613WHEN1:BPUT#C," texture marble ";
615WHEN2:BPUT#C," texture wood ";
616WHEN3:BPUT#C," texture checker ";:PROCa(4):BPUT#C," ";
618WHEN4:BPUT#C," texture blotch ";:BPUT#C,STR$(50-!(e%+k%*20-8))+" ";:PROCa(4):BPUT#C,"":BPUT#C," scale "+STR$((!(e%+k%*20-4))/2);:BPUT#C," "+STR$((!(e%+k%*20-4))/2):BPUT#C," "+STR$((!(e%+k%*20-4))/2)
624WHEN5:BPUT#C," texture bump ";:BPUT#C,STR$(!(e%+k%*20-8))
626WHEN6:BPUT#C," texture gloss ";:BPUT#C,STR$(1-(!(e%+k%*20-8)/100))
628ENDCASE
628s%=!(e%+k%*20-8):IFs%<>0ANDD%<4THENBPUT#C,("scale "+STR$(s%*10)+" "+STR$(s%*10)+" "+STR$(s%*10))
630ENDIF
631BPUT#C,"":ENDPROC
633DEFPROCm:SYS"Wimp_OpenWindow",,b%:ENDPROC
638DEFPROCd(W%):!b%=W%:SYS"Wimp_GetWindowState",,b%:b%!28=-1:SYS"Wimp_OpenWindow",,b%:ENDPROC
643DEFPROCf(W%):LOCALN:!b%=W%:SYS"Wimp_CloseWindow",,b%:CASEW%OF
648WHEN`%:N=FNd(xa%)
650ENDCASE
650ENDPROC
651DEFPROCs:SYS"Wimp_GetWindowState",,b%+12:X%=b%!16-b%!32:Y%=b%!28-b%!36:b%!16=I%:SYS"Wimp_GetIconState",,b%+12:b%!16=5:b%!20+=X%-2:b%!24+=Y%-4:b%!28+=X%+2:b%!32+=Y%+4:b%!36=0:b%!40=0:b%!44=&7FFFFFFF:b%!48=&7FFFFFFF:SYS"Wimp_DragBox",,b%+12:ENDPROC
667DEFPROCo:IFga%=3THENb$=FNa(g%,2)
670SYS"Wimp_GetPointerInfo",,b%:IFb%!12=-1THENENDPROC
672a=0:b%!20=256:b%!32=a:b%!36=1:b%!40=b%!12:b%!44=b%!16:b%!48=!b%:b%!52=b%!4:b%!56=-1:b%!60=1689:$(b%+64)=FNj(b$):SYS"Wimp_SendMessage",17,b%+20,b%!12,b%!16:ENDPROC
682DEFPROCq(M%):LOCALA$,ya%:CASEM%OF
688WHEN0:E%=-1
690WHEN1:IFb%!12<>aTHEN
693b%!0=60:b%!12=b%!8:b%!16=2:b%!36=-1:$(b%+44)="<Wimp$Scrap>"+CHR$0:SYS"Wimp_SendMessage",17,b%,b%!4
698ENDIF
698WHEN2:A$=FNf(b%+44):b%!12=b%!8:b%!16=3:SYS"Wimp_SendMessage",17,b%,b%!4:a=-1:PROCi(g%,2,A$):!b%=g%:SYS"Wimp_CloseWindow",,b%:c$=FNa(g%,2):IFINSTR(c$,"$")=0THENERROR17,a$(1)
705IFFNg(c$)THENPROCd(q%)ELSEPROCe
706WHEN3:A$=FNf(b%+44):ya%=b%!40:b%!12=b%!8:b%!16=4:b%!36=-1:$(b%+44)=A$+CHR$0:SYS"Wimp_SendMessage",17,b%,b%!4:IFya%=252THENPROCz(A$)
713IFA$="<Wimp$Scrap>"THENOSCLI("Delete "+A$)
714ENDCASE
715ENDPROC
716DEFPROCF:b%!12=b%!8:b%!16=4:!b%=64:SYS"Wimp_SendMessage",17,b%,b%!4:ENDPROC
721DEFPROCc
726*CLOSE
726SYS"Wimp_CloseDown":ENDPROC
728DEFFNa(za%,Aa%):b%!0=za%:b%!4=Aa%:SYS"Wimp_GetIconState",,b%:=$(b%!28)
735DEFFNb(i%,W%):SYS"Wimp_WhichIcon",W%,b%,1<<21,1<<21:d=FALSE:Z%=b%:WHILE!Z%<>-1:IF!Z%=i%THENd=TRUE
737Z%+=4:ENDWHILE:=d
741DEFPROCG(!b%,b%!4,N%):b%!8=N%<<21:b%!12=1<<21:SYS"Wimp_SetIconState",,b%:ENDPROC
744DEFPROCi(W%,I%,S$):b%!0=W%:b%!4=I%:SYS"Wimp_GetIconState",,b%:$(b%!28)=S$:b%!8=0:b%!12=0:SYS"Wimp_SetIconState",,b%:ENDPROC
Rg$="v1.00 (2 April 1994)":aa%=180:ș"Hourglass_On"::��:�:�" at line ";�:G=�:�
%�j:ș"Hourglass_Off":��k(�,�$,�)
!�:ș"Wimp_Poll",1,b%�c:Ȏ(c)�
�1:�l(!b%)
�2:�m
�3:�f(!b%)
�6:�n(b%)
�7:�o
�8:�p(!b%,b%!4,b%!24)
�9:�!b%=3�E%=�
�17,18:�q(b%!16)
�
�E%:�c:�
_��l(W%):�N:!b%=W%:ș"Wimp_RedrawWindow",,b%�_%:ba%=b%!4-b%!20:F%=(b%!16-b%!24)+4:ȕ_%:ȎW%�
Q�`%:ș"Wimp_SetColour",7:ca%=(F%-b%!40)�40:G%=(F%-b%!32)�40:�G%>da%-1G%=da%-1
#5�N=ca%�G%+1:�ba%+16,F%-(N*40)-12:�$(!(ea%+N*4)):�
(�
($ș"Wimp_GetRectangle",,b%�_%:�:�
+8��n(b%):�I%,A$,W%,m%:I%=b%!16:W%=b%!12:m%=b%!8:Ȏm%�
2"�2:fa%=1:�W%=-2�y%=284�y%=b%!4
5<�r(" !RayShade ","Info,Image size,Options,Quit,",!b%,y%)
7 �1,4:�I%<>-1��g(W%,I%,4)
8 �16,64:�W%=g%�I%=1��s:ga%=3
:�
;�
<��p(W%,I%,C%):ȎC%�
A
�13:ȎW%�
C �g%:�I%=2��g(W%,0,4):ha%=0
E�
F�
G ș"Wimp_ProcessKey",C%:�
ICݤf(A):�S$,N:ȕ(A!N�256)<>13�(A!N�256)<>0:S$+=�(A!N):N+=1:�:=S$
PGݤj(b$):�F$,N:N=�(b$):ȕ�b$,N,1)<>"."�N>0:F$=�b$,N,1)+F$:N-=1:�:=F$
W#ݤg(b$):C=�(b$):�#C:�C=0�=0�=-1
X��k(b,d$,e)
]
*CLOSE
]3ș"Hourglass_Smash":ș"Wimp_CreateMenu",-1:Ȏb�
`M�1:d$=a$(3):!b%=b:$(b%+4)=d$:ș"Wimp_ReportError",b%,1,"!Rayshade"�,m%:�c
fc:d$+=" ("+�(e)+"). "+a$(4):!b%=b:$(b%+4)=d$:ș"Wimp_ReportError",b%,3,"!Rayshade"�,m%:�m%=2��c
j�
k�
l-��g(W%,I%,ia%):�ja%,A,ka%,f$,Q%,la%:ȎW%�
r�h%:�I%=25�ma%=-1-ma%
t�g%:�I%=0�
v&c$=�a(g%,2):�c$,"$.")=0��17,a$(1)
x�g(c$)��d(q%)��e
y�
z�q%:�I%>3��f(q%)
| �I%=5�ș"XOS_File",7,c$+�0
} �I%>4��e
~�r%:�I%>3�H%=I%
��
��
�I��r(e$,m$,X%,Y%):�t(J%,e$,m$):ș"Wimp_CreateMenu",,J%,X%-J%!16/2,Y%:�
����t(M%,e$,m$):�I%,u%,na%,ea%,oa%,N:oa%=128:$M%=e$:M%!12=459271:M%!20=44:M%!24=0:I%=M%+28:u%=�(e$)-2:�:A%=�m$,","):$(I%+12)=�m$,A%-1):m$=�m$,A%+1):�A%>u%u%=A%
� !I%=0:I%!4=0::Ȏ$(I%+12)�
��"Info":I%!4=pa%
��"Image size":I%!4=r%
��"Options":I%!4=h%
��
�;:I%!8=&7000021:I%+=24:�m$="":!(I%-24)=oa%:M%!16=u%*16:�
�d��e:�a$,R%,h$,i$:ș"Wimp_Poll",,b%�c:a$="":R%=h%:�u("<Wimp$Scrap>"):�b(0,R%)a$+=" -c"�a$+=" -n"
��b(4,R%)a$+=" -F 1"
�#�b(1,R%)a$+=" -j -S "+�a(R%,2)
�!�b(9,R%)a$+=" -L "+�a(R%,10)
� �b(3,R%)a$+=" -T "+�a(R%,7)
��a$+=" -R "+�(�(�a(r%,1))/2^(H%-4))+" ":a$+=�(�(�a(r%,3))/2^(H%-4)):a$="<Trace01$Dir>.RayShade"+a$+" -O "+c$+" ":a$+="<Wimp$Scrap>":ș"Wimp_StartTask",a$:ș"XOS_File",18,c$+�0,1689:!b%=g%:ș"Wimp_CloseWindow",,b%:R%=�d(K%)
�R%=�d(w%):R%=�d(e%):�
����v:�t%:ș"OS_ReadMemMapInfo"�x%:j%=x%:ș"Wimp_SlotSize",-1,-1�t%:d%=t%+32768:ș"Wimp_SlotSize",d%+j%-32768,-1:ș"OS_Heap",0,d%,,j%:�
�5ݤe(o%):�a%:ș"XOS_Heap",2,d%,,o%�,,a%:�a%<>0�=a%
��h(o%)=��=0
�Mș"XOS_Heap",2,d%,,o%�,,a%:�h:�a%=0��1,"Cannot claim enough free memory."
�=a%
�Fݤl(p%,O%):�n%,f%,t%:ș"XOS_Heap",4,d%,p%,O%�,,n%;f%:�(f%�1)=0�=n%
�-ș"OS_Heap",6,d%,p%�,,,t%:�h(t%+O%)=��=0
�1ș"XOS_Heap",4,d%,p%,O%�,,n%;f%:�(f%�1)=0�=n%
�=0
�%ݤd(p%):ș"OS_Heap",3,d%,p%:�h:=0
�Rݤh(o%):�s%,f%:s%=�i(j%+o%):ș"XWimp_SlotSize",d%+s%-32768,-1�;f%:�(f%�1)=1�=�
�$ș"OS_Heap",5,d%,,s%-j%:j%=s%:=�
�?��h:�s%,t%:s%=j%:ș"XOS_Heap",5,d%,,-s%�,,,t%:�t%=-s%�t%=s%
�Qj%=�i(j%-t%):ș"XOS_Heap",5,d%,,j%-(s%-t%):ș"Wimp_SlotSize",d%+j%-32768,-1:�
� ݤi(s%):�t%:�(s%�x%)<>0�
�t%=x%-(s%�x%):s%+=t%
��
�=s%
�%ݤm:�t%:ș"OS_Heap",1,d%�,,t%:=t%
���j
�*KEY 1 EDIT|M
���b% 1536,J% 4000:�S% 4608:qa%=S%+4608:�d%(2),c%(3),b%(3):�b$(10),a%(10,8):�a$(25):�ea% 4000::a=-1:da%=0:H%=6:E%=0:ga%=0:l%=0:z%=0:ș"Wimp_Initialise",200,&4B534154,"Rayshade (Parser)"�,ra%:�v:�w:�x:�i(pa%,6,g$):�y:�
e��y:�M$,C,N:N=0:M$="":C=�("<Trace01$Dir>.Messages"):ȕM$<>"End":N+=1:M$=�k(C):�M$<>"End"�a$(N)=M$
�:�#C:�
Fݤk(c%):�s$,v%:s$="":v%=�#c%:ȕv%>31��(�#c%):s$+=�v%:v%=�#c%:�:=s$
(���w:�sa% 12:$sa%="Rayshade":�ta% 20:$ta%="Sirayshade":b%!0=-1:b%!4=0:b%!8=-12:b%!12=140:b%!16=76:b%!20=385888523:b%!24=sa%:b%!28=ta%:b%!32=12:ș"Wimp_CreateIcon",,b%:�
3���x:ș"Wimp_OpenTemplate",,"<Trace01$Dir>.Templates":pa%=�c("info"):h%=�c("rayopts"):r%=�c("image"):g%=�c("trace"):q%=�c("exists"):`%=�c("txt"):ș"Wimp_CloseTemplate":�
@bݤc(f$):ș"Wimp_LoadTemplate",,b%,S%,qa%,-1,f$,0�,,S%,,,,P%:ș"Wimp_CreateWindow",,b%�ua%:=ua%
Hs��z(b$):�c%,v%,B%,A$,N:ș"OS_Find",79,b$�c%:B%=�#c%:v%=B%*100:B%=�#c%:v%+=B%:�v%>aa%�ș"OS_Find",0,c%:�17,a$(2)
P
�v%>=110�
U+B%=�#c%:T%=B%*100:B%=�#c%:T%+=B%:�T%>0�
X�N=1�T%:�#c%,A$:�
\�
\�
]�B%=�#c%:l%=B%*256:B%=�#c%:l%+=B%:B%=�#c%:U%=B%*256:B%=�#c%:U%+=B%:K%=�e(U%):ș"OS_GBPB",4,c%,K%,U%:�N=1�l%:�#c%,A$:�:z%=�#c%:w%=�e(z%*40):ș"OS_GBPB",4,c%,w%,z%*40:e%=�e(l%*20)
r$�l%<>0�ș"OS_GBPB",4,c%,e%,l%*20
s�b%(0)=�#c%:c%(0)=�#c%:b%(0)-=1:c%(0)-=1:�N=1�3:B%=�#c%:b%(N)=B%*256:B%=�#c%:b%(N)+=B%:B%=�#c%:c%(N)=B%*256:B%=�#c%:c%(N)+=B%:�:va%=�#c%:�N=1�10:�#c%,b$(N):�F=0�8:B%=�#c%:a%(N,F)=B%*256:B%=�#c%:a%(N,F)+=B%:�:�
�Dd%(0)=�#c%:d%(1)=�#c%:d%(2)=�#c%:ș"OS_Find",0,c%:l%-=1:�d(g%):�
�h��u(b$):�C,V%,wa%:C=�(b$):V%=�(�a(h%,21)):wa%=�(�a(h%,22)):�A:�B:�C:�D:�#C:�("Settype "+b$+" fff"):�
����A:�#C,"/*":�#C," * Scene generated using !Ray3d":�#C," * written by Robet Taylor.":�#C," *":�#C," * ("+�$+")":�#C," */":�#C,"":�#C,"eyep "+�(b%(1))+" "+�(b%(2))+" "+�(b%(3))
���#C,"lookp "+�(c%(1))+" "+�(c%(2))+" "+�(c%(3)):�#C,"fov "+�(V%)+" "+�(V%):�#C,"aperture "+�(wa%):�#C,"background "+�(d%(0)/100)+" "+�(d%(1)/100);:�#C," "+�(d%(2)/100):�b(6,h%)�
�7�#C,"grid "+�a(h%,8)+" "+�a(h%,8)+" ";:�#C,�a(h%,8)
��
��
����E:�#C,"triangle ";:�a(0):�#C,�(N%!56)+" "+�(N%!60)+" "+�(N%!64)+" ";:�#C,�(N%!8)+" "+�(N%!12)+" "+�(N%!16)+" ";:�#C,�(N%!20)+" "+�(N%!24)+" "+�(N%!28)+" ";:�b:�#C,"triangle ";:�a(0):�#C,�(N%!56)+" "+�(N%!60)+" "+�(N%!64)+" ";
���#C,�(N%!20)+" "+�(N%!24)+" "+�(N%!28)+" ";:�#C,�(N%!32)+" "+�(N%!36)+" "+�(N%!40)+" ";:�b:�#C,"triangle ";:�a(0):�#C,�(N%!56)+" "+�(N%!60)+" "+�(N%!64)+" ";:�#C,�(N%!32)+" "+�(N%!36)+" "+�(N%!40)+" ";
���#C,�(N%!44)+" "+�(N%!48)+" "+�(N%!52)+" ";:�b:�#C,"triangle ";:�a(0):�#C,�(N%!56)+" "+�(N%!60)+" "+�(N%!64)+" ";:�#C,�(N%!44)+" "+�(N%!48)+" "+�(N%!52)+" ";:�#C,�(N%!8)+" "+�(N%!12)+" "+�(N%!16)+" ";:�b:�#C,"poly ";
�d�a(0):�#C,"":�F=1�4:�#C," "+�(N%!(F*12-4))+" "+�(N%!(F*12))+" ";:�#C,�(N%!(F*12+4)):�:�b:�
�v��C:�N%,F,D%,s%:�#C,"":�#C,"/* Primitive definitions go here":�#C," */":�#C,"":k%=0:N%=K%:ȕ!N%<>-256:k%+=1:Ȏ!N%�
��-1:�#C,"triangle ";:�a(0):�#C,�(N%!8)+" "+�(N%!12)+" "+�(N%!16)+" ";:�#C,�(N%!20)+" "+�(N%!24)+" "+�(N%!28)+" ";:�#C,�(N%!32)+" "+�(N%!36)+" "+�(N%!40)+" ":N%+=44:�b
�Y�-2:�#C,"sphere ";:�a(0):�#C,�(N%!20)+" "+�(N%!8)+" "+�(N%!12)+" "+�(N%!16):N%+=24:�b
��-3:�#C,"poly ";:�a(0):�#C,"":�F=1�N%!8:�#C," "+�(N%!(F*12))+" "+�(N%!(F*12+4))+" ";:�#C,�(N%!(F*12+8)):�:�:N%+=4:�!N%<0:�b
��-4:�#C,"cylinder ";:�a(0):�#C,�(N%!8)+" "+�(N%!12)+" "+�(N%!16)+" ";:�#C,�(N%!20)+" "+�(N%!24)+" "+�(N%!28)+" "+�(N%!32):N%+=132:�b
���-5:�#C,"cone ";:�a(0):�#C,�(N%!8)+" "+�(N%!12)+" "+�(N%!16)+" ";:�#C,�(N%!20)+" "+�(N%!24)+" "+�(N%!28)+" ";:�#C,�(N%!32)+" "+�(N%!36):N%+=232:�b
���-6:�#C,"box ";:�a(0):�#C,"0 0 0 ";:�#C,�(N%!20)+" "+�(N%!24)+" "+�(N%!28)+" ":�#C," rotate 1 0 0 "+�(360-N%!32):�#C," rotate 0 1 0 "+�(360-N%!36):�#C," rotate 0 0 1 "+�(360-N%!40)
E�#C," translate "+�(N%!8)+" "+�(N%!12)+" "+�(N%!16):N%+=140:�b
��-7:�#C,"plane ";:�a(0):�#C,�(N%!56-(N%!8+(N%!32-N%!8)/2))+" ";:�#C,�(N%!60-(N%!12+(N%!36-N%!12)/2))+" ";:�#C,�(N%!64-(N%!16+(N%!40-N%!16)/2))+" ";:�#C,�(N%!8+(N%!32-N%!8)/2)+" ";:�#C,�(N%!12+(N%!36-N%!12)/2)+" ";
*�#C,�(N%!16+(N%!40-N%!16)/2):N%+=68:�b
z�-8:�#C,"poly ";:�a(0):�#C,"":�F=1�4:�#C," "+�(N%!(F*12-4))+" "+�(N%!(F*12))+" ";:�#C,�(N%!(F*12+4)):�:N%+=56:�b
�-9:�E:N%+=68
��-10:�#C,"superq ";:�a(0):�#C,"0 0 0 ";:�#C,�(N%!20)+" "+�(N%!24)+" "+�(N%!28)+" 5":�#C," rotate 1 0 0 "+�(360-N%!32):�#C," rotate 0 1 0 "+�(360-N%!36):�#C," rotate 0 0 1 "+�(360-N%!40)
E�#C," translate "+�(N%!8)+" "+�(N%!12)+" "+�(N%!16):N%+=140:�b
!�
!�:�
#���B:�N,F:�#C,"":�#C,"/* Surface definitions go here":�#C," */":�#C,"":�#C," surface default 0.16 0.16 0.16 0.64 0.64 0.64":�#C," 0.2 0.2 0.2 18 0.2 0 1":�#C,"":L%=�(�a(h%,19)):�N=0�z%-1:F=w%+N*40
0��#C,"surface "+$(F)+" ";:P%=100:�#C,�(F?23/10000*L%)+" ";:�#C,�(F?24/10000*L%)+" ";:�#C,�(F?25/10000*L%):�#C," "+�((F?23-F?23/100*L%)/100)+" ";:�#C,�((F?24-F?24/100*L%)/100)+" ";:�#C,�((F?25-F?25/100*L%)/100)
8��#C," "+�(P%/100)+" "+�(P%/100)+" "+�(P%/100):�#C," "+�(F?29/2)+" "+�(F?30/100)+" ";:�#C,�(F?31/100)+" "+�(1/(F!32*100))+" ";:�F!36<>0��#C," "+�(1/(F!32*100))+" "+�(F?29)��#C,""
<�:�
>���D:�N:�#C,"":�#C,"/* Light definitions go here":�#C," */":�#C,"":�va%=0��#C,"light 1.6 point "+�(b%(1))+" "+�(b%(2))+" "+�(b%(3)):�
F:�N=1�va%:�#C,"light ";:�a%(N,5)=0�a%(N,6)=0�a%(N,7)=0�
I�#C,�(a%(N,4)/100);
Km�:�#C,�(a%(N,5)/100*a%(N,4)/100)+" ";:�#C,�(a%(N,6)/100*a%(N,4)/100)+" ";:�#C,�(a%(N,7)/100*a%(N,4)/100);
O�
O/�a%(N,0)=0��#C," point ";��#C," extended ";
PB�#C,�(a%(N,1))+" "+�(a%(N,2))+" ";:�#C,�(a%(N,3));:�a%(N,0)=1�
S�#C," "+�(a%(N,4)*16)
U �:�#C,""
W�
W�:�
Y5��a(X):�A:A=!(e%+k%*20-20+X):�A=0��#C,"default ";
^!�A<>0��#C,$(w%+(A-1)*40)+" ";
_�
`!��b:D%=!(e%+k%*20-12):�D%<>0�
d ȎD%�
e �1:�#C," texture marble ";
g �2:�#C," texture wood ";
h/�3:�#C," texture checker ";:�a(4):�#C," ";
j��4:�#C," texture blotch ";:�#C,�(50-!(e%+k%*20-8))+" ";:�a(4):�#C,"":�#C," scale "+�((!(e%+k%*20-4))/2);:�#C," "+�((!(e%+k%*20-4))/2):�#C," "+�((!(e%+k%*20-4))/2)
p3�5:�#C," texture bump ";:�#C,�(!(e%+k%*20-8))
r;�6:�#C," texture gloss ";:�#C,�(1-(!(e%+k%*20-8)/100))
t�
tRs%=!(e%+k%*20-8):�s%<>0�D%<4��#C,("scale "+�(s%*10)+" "+�(s%*10)+" "+�(s%*10))
v�
w �#C,"":�
y!��m:ș"Wimp_OpenWindow",,b%:�
~Q��d(W%):!b%=W%:ș"Wimp_GetWindowState",,b%:b%!28=-1:ș"Wimp_OpenWindow",,b%:�
�4��f(W%):�N:!b%=W%:ș"Wimp_CloseWindow",,b%:ȎW%�
��`%:N=�d(xa%)
��
��
����s:ș"Wimp_GetWindowState",,b%+12:X%=b%!16-b%!32:Y%=b%!28-b%!36:b%!16=I%:ș"Wimp_GetIconState",,b%+12:b%!16=5:b%!20+=X%-2:b%!24+=Y%-4:b%!28+=X%+2:b%!32+=Y%+4:b%!36=0:b%!40=0:b%!44=&7FFFFFFF:b%!48=&7FFFFFFF:ș"Wimp_DragBox",,b%+12:�
���o:�ga%=3�b$=�a(g%,2)
�+ș"Wimp_GetPointerInfo",,b%:�b%!12=-1��
��a=0:b%!20=256:b%!32=a:b%!36=1:b%!40=b%!12:b%!44=b%!16:b%!48=!b%:b%!52=b%!4:b%!56=-1:b%!60=1689:$(b%+64)=�j(b$):ș"Wimp_SendMessage",17,b%+20,b%!12,b%!16:�
���q(M%):�A$,ya%:ȎM%�
� �0:E%=-1
��1:�b%!12<>a�
�bb%!0=60:b%!12=b%!8:b%!16=2:b%!36=-1:$(b%+44)="<Wimp$Scrap>"+�0:ș"Wimp_SendMessage",17,b%,b%!4
��
���2:A$=�f(b%+44):b%!12=b%!8:b%!16=3:ș"Wimp_SendMessage",17,b%,b%!4:a=-1:�i(g%,2,A$):!b%=g%:ș"Wimp_CloseWindow",,b%:c$=�a(g%,2):�c$,"$")=0��17,a$(1)
��g(c$)��d(q%)��e
�x�3:A$=�f(b%+44):ya%=b%!40:b%!12=b%!8:b%!16=4:b%!36=-1:$(b%+44)=A$+�0:ș"Wimp_SendMessage",17,b%,b%!4:�ya%=252��z(A$)
�&�A$="<Wimp$Scrap>"��("Delete "+A$)
��
��
�C��F:b%!12=b%!8:b%!16=4:!b%=64:ș"Wimp_SendMessage",17,b%,b%!4:�
���c
�
*CLOSE
�ș"Wimp_CloseDown":�
�Fݤa(za%,Aa%):b%!0=za%:b%!4=Aa%:ș"Wimp_GetIconState",,b%:=$(b%!28)
�Sݤb(i%,W%):ș"Wimp_WhichIcon",W%,b%,1<<21,1<<21:d=�:Z%=b%:ȕ!Z%<>-1:�!Z%=i%�d=�
�Z%+=4:�:=d
�H��G(!b%,b%!4,N%):b%!8=N%<<21:b%!12=1<<21:ș"Wimp_SetIconState",,b%:�
�r��i(W%,I%,S$):b%!0=W%:b%!4=I%:ș"Wimp_GetIconState",,b%:$(b%!28)=S$:b%!8=0:b%!12=0:ș"Wimp_SetIconState",,b%:�
� 00000000 0d 00 01 04 0d 00 02 52 67 24 3d 22 76 31 2e 30 |.......Rg$="v1.0|
00000010 30 20 28 32 20 41 70 72 69 6c 20 31 39 39 34 29 |0 (2 April 1994)|
00000020 22 3a 61 61 25 3d 31 38 30 3a c8 99 22 48 6f 75 |":aa%=180:.."Hou|
00000030 72 67 6c 61 73 73 5f 4f 6e 22 3a 3a ee 85 db 3a |rglass_On"::...:|
00000040 f6 3a f1 22 20 61 74 20 6c 69 6e 65 20 22 3b 9e |.:." at line ";.|
00000050 3a 47 3d a5 3a e0 0d 00 05 25 f2 6a 3a c8 99 22 |:G=.:....%.j:.."|
00000060 48 6f 75 72 67 6c 61 73 73 5f 4f 66 66 22 3a ee |Hourglass_Off":.|
00000070 85 f2 6b 28 9f 2c f6 24 2c 9e 29 0d 00 08 21 f5 |..k(.,.$,.)...!.|
00000080 3a c8 99 22 57 69 6d 70 5f 50 6f 6c 6c 22 2c 31 |:.."Wimp_Poll",1|
00000090 2c 62 25 b8 63 3a c8 8e 28 63 29 ca 0d 00 0b 0e |,b%.c:..(c).....|
000000a0 c9 31 3a f2 6c 28 21 62 25 29 0d 00 0d 09 c9 32 |.1:.l(!b%).....2|
000000b0 3a f2 6d 0d 00 0e 0e c9 33 3a f2 66 28 21 62 25 |:.m.....3:.f(!b%|
000000c0 29 0d 00 0f 0d c9 36 3a f2 6e 28 62 25 29 0d 00 |).....6:.n(b%)..|
000000d0 10 09 c9 37 3a f2 6f 0d 00 11 19 c9 38 3a f2 70 |...7:.o.....8:.p|
000000e0 28 21 62 25 2c 62 25 21 34 2c 62 25 21 32 34 29 |(!b%,b%!4,b%!24)|
000000f0 0d 00 12 12 c9 39 3a e7 21 62 25 3d 33 8c 45 25 |.....9:.!b%=3.E%|
00000100 3d b9 0d 00 12 14 c9 31 37 2c 31 38 3a f2 71 28 |=......17,18:.q(|
00000110 62 25 21 31 36 29 0d 00 14 05 cb 0d 00 14 0c fd |b%!16)..........|
00000120 45 25 3a f2 63 3a e0 0d 00 17 5f dd f2 6c 28 57 |E%:.c:...._..l(W|
00000130 25 29 3a ea 4e 3a 21 62 25 3d 57 25 3a c8 99 22 |%):.N:!b%=W%:.."|
00000140 57 69 6d 70 5f 52 65 64 72 61 77 57 69 6e 64 6f |Wimp_RedrawWindo|
00000150 77 22 2c 2c 62 25 b8 5f 25 3a 62 61 25 3d 62 25 |w",,b%._%:ba%=b%|
00000160 21 34 2d 62 25 21 32 30 3a 46 25 3d 28 62 25 21 |!4-b%!20:F%=(b%!|
00000170 31 36 2d 62 25 21 32 34 29 2b 34 3a c8 95 5f 25 |16-b%!24)+4:.._%|
00000180 3a c8 8e 57 25 ca 0d 00 1e 51 c9 60 25 3a c8 99 |:..W%....Q.`%:..|
00000190 22 57 69 6d 70 5f 53 65 74 43 6f 6c 6f 75 72 22 |"Wimp_SetColour"|
000001a0 2c 37 3a 63 61 25 3d 28 46 25 2d 62 25 21 34 30 |,7:ca%=(F%-b%!40|
000001b0 29 81 34 30 3a 47 25 3d 28 46 25 2d 62 25 21 33 |).40:G%=(F%-b%!3|
000001c0 32 29 81 34 30 3a e7 47 25 3e 64 61 25 2d 31 47 |2).40:.G%>da%-1G|
000001d0 25 3d 64 61 25 2d 31 0d 00 23 35 e3 4e 3d 63 61 |%=da%-1..#5.N=ca|
000001e0 25 b8 47 25 2b 31 3a ec 62 61 25 2b 31 36 2c 46 |%.G%+1:.ba%+16,F|
000001f0 25 2d 28 4e 2a 34 30 29 2d 31 32 3a f1 24 28 21 |%-(N*40)-12:.$(!|
00000200 28 65 61 25 2b 4e 2a 34 29 29 3a ed 0d 00 28 05 |(ea%+N*4)):...(.|
00000210 cb 0d 00 28 24 c8 99 22 57 69 6d 70 5f 47 65 74 |...($.."Wimp_Get|
00000220 52 65 63 74 61 6e 67 6c 65 22 2c 2c 62 25 b8 5f |Rectangle",,b%._|
00000230 25 3a ce 3a e1 0d 00 2b 38 dd f2 6e 28 62 25 29 |%:.:...+8..n(b%)|
00000240 3a ea 49 25 2c 41 24 2c 57 25 2c 6d 25 3a 49 25 |:.I%,A$,W%,m%:I%|
00000250 3d 62 25 21 31 36 3a 57 25 3d 62 25 21 31 32 3a |=b%!16:W%=b%!12:|
00000260 6d 25 3d 62 25 21 38 3a c8 8e 6d 25 ca 0d 00 32 |m%=b%!8:..m%...2|
00000270 22 c9 32 3a 66 61 25 3d 31 3a e7 57 25 3d 2d 32 |".2:fa%=1:.W%=-2|
00000280 8c 79 25 3d 32 38 34 8b 79 25 3d 62 25 21 34 0d |.y%=284.y%=b%!4.|
00000290 00 35 3c f2 72 28 22 20 21 52 61 79 53 68 61 64 |.5<.r(" !RayShad|
000002a0 65 20 22 2c 22 49 6e 66 6f 2c 49 6d 61 67 65 20 |e ","Info,Image |
000002b0 73 69 7a 65 2c 4f 70 74 69 6f 6e 73 2c 51 75 69 |size,Options,Qui|
000002c0 74 2c 22 2c 21 62 25 2c 79 25 29 0d 00 37 1c c9 |t,",!b%,y%)..7..|
000002d0 31 2c 34 3a e7 49 25 3c 3e 2d 31 8c f2 67 28 57 |1,4:.I%<>-1..g(W|
000002e0 25 2c 49 25 2c 34 29 0d 00 38 1f c9 31 36 2c 36 |%,I%,4)..8..16,6|
000002f0 34 3a e7 57 25 3d 67 25 80 49 25 3d 31 8c f2 73 |4:.W%=g%.I%=1..s|
00000300 3a 67 61 25 3d 33 0d 00 3a 05 cb 0d 00 3b 05 e1 |:ga%=3..:....;..|
00000310 0d 00 3c 17 dd f2 70 28 57 25 2c 49 25 2c 43 25 |..<...p(W%,I%,C%|
00000320 29 3a c8 8e 43 25 ca 0d 00 41 0d c9 31 33 3a c8 |):..C%...A..13:.|
00000330 8e 57 25 ca 0d 00 43 1e c9 67 25 3a e7 49 25 3d |.W%...C..g%:.I%=|
00000340 32 8c f2 67 28 57 25 2c 30 2c 34 29 3a 68 61 25 |2..g(W%,0,4):ha%|
00000350 3d 30 0d 00 45 05 cb 0d 00 46 05 cb 0d 00 47 1c |=0..E....F....G.|
00000360 c8 99 22 57 69 6d 70 5f 50 72 6f 63 65 73 73 4b |.."Wimp_ProcessK|
00000370 65 79 22 2c 43 25 3a e1 0d 00 49 43 dd a4 66 28 |ey",C%:...IC..f(|
00000380 41 29 3a ea 53 24 2c 4e 3a c8 95 28 41 21 4e 83 |A):.S$,N:..(A!N.|
00000390 32 35 36 29 3c 3e 31 33 80 28 41 21 4e 83 32 35 |256)<>13.(A!N.25|
000003a0 36 29 3c 3e 30 3a 53 24 2b 3d bd 28 41 21 4e 29 |6)<>0:S$+=.(A!N)|
000003b0 3a 4e 2b 3d 31 3a ce 3a 3d 53 24 0d 00 50 47 dd |:N+=1:.:=S$..PG.|
000003c0 a4 6a 28 62 24 29 3a ea 46 24 2c 4e 3a 4e 3d a9 |.j(b$):.F$,N:N=.|
000003d0 28 62 24 29 3a c8 95 c1 62 24 2c 4e 2c 31 29 3c |(b$):...b$,N,1)<|
000003e0 3e 22 2e 22 80 4e 3e 30 3a 46 24 3d c1 62 24 2c |>".".N>0:F$=.b$,|
000003f0 4e 2c 31 29 2b 46 24 3a 4e 2d 3d 31 3a ce 3a 3d |N,1)+F$:N-=1:.:=|
00000400 46 24 0d 00 57 23 dd a4 67 28 62 24 29 3a 43 3d |F$..W#..g(b$):C=|
00000410 8e 28 62 24 29 3a d9 23 43 3a e7 43 3d 30 8c 3d |.(b$):.#C:.C=0.=|
00000420 30 8b 3d 2d 31 0d 00 58 0f dd f2 6b 28 62 2c 64 |0.=-1..X...k(b,d|
00000430 24 2c 65 29 0d 00 5d 0a 2a 43 4c 4f 53 45 0d 00 |$,e)..].*CLOSE..|
00000440 5d 33 c8 99 22 48 6f 75 72 67 6c 61 73 73 5f 53 |]3.."Hourglass_S|
00000450 6d 61 73 68 22 3a c8 99 22 57 69 6d 70 5f 43 72 |mash":.."Wimp_Cr|
00000460 65 61 74 65 4d 65 6e 75 22 2c 2d 31 3a c8 8e 62 |eateMenu",-1:..b|
00000470 ca 0d 00 60 4d c9 31 3a 64 24 3d 61 24 28 33 29 |...`M.1:d$=a$(3)|
00000480 3a 21 62 25 3d 62 3a 24 28 62 25 2b 34 29 3d 64 |:!b%=b:$(b%+4)=d|
00000490 24 3a c8 99 22 57 69 6d 70 5f 52 65 70 6f 72 74 |$:.."Wimp_Report|
000004a0 45 72 72 6f 72 22 2c 62 25 2c 31 2c 22 21 52 61 |Error",b%,1,"!Ra|
000004b0 79 73 68 61 64 65 22 b8 2c 6d 25 3a f2 63 0d 00 |yshade".,m%:.c..|
000004c0 66 63 7f 3a 64 24 2b 3d 22 20 28 22 2b c3 28 65 |fc.:d$+=" ("+.(e|
000004d0 29 2b 22 29 2e 20 22 2b 61 24 28 34 29 3a 21 62 |)+"). "+a$(4):!b|
000004e0 25 3d 62 3a 24 28 62 25 2b 34 29 3d 64 24 3a c8 |%=b:$(b%+4)=d$:.|
000004f0 99 22 57 69 6d 70 5f 52 65 70 6f 72 74 45 72 72 |."Wimp_ReportErr|
00000500 6f 72 22 2c 62 25 2c 33 2c 22 21 52 61 79 73 68 |or",b%,3,"!Raysh|
00000510 61 64 65 22 b8 2c 6d 25 3a e7 6d 25 3d 32 8c f2 |ade".,m%:.m%=2..|
00000520 63 0d 00 6a 05 cb 0d 00 6b 05 e1 0d 00 6c 2d dd |c..j....k....l-.|
00000530 f2 67 28 57 25 2c 49 25 2c 69 61 25 29 3a ea 6a |.g(W%,I%,ia%):.j|
00000540 61 25 2c 41 2c 6b 61 25 2c 66 24 2c 51 25 2c 6c |a%,A,ka%,f$,Q%,l|
00000550 61 25 3a c8 8e 57 25 ca 0d 00 72 19 c9 68 25 3a |a%:..W%...r..h%:|
00000560 e7 49 25 3d 32 35 8c 6d 61 25 3d 2d 31 2d 6d 61 |.I%=25.ma%=-1-ma|
00000570 25 0d 00 74 0e c9 67 25 3a e7 49 25 3d 30 8c 0d |%..t..g%:.I%=0..|
00000580 00 76 26 63 24 3d a4 61 28 67 25 2c 32 29 3a e7 |.v&c$=.a(g%,2):.|
00000590 a7 63 24 2c 22 24 2e 22 29 3d 30 8c 85 31 37 2c |.c$,"$.")=0..17,|
000005a0 61 24 28 31 29 0d 00 78 15 e7 a4 67 28 63 24 29 |a$(1)..x...g(c$)|
000005b0 8c f2 64 28 71 25 29 8b f2 65 0d 00 79 05 cd 0d |..d(q%)..e..y...|
000005c0 00 7a 14 c9 71 25 3a e7 49 25 3e 33 8c f2 66 28 |.z..q%:.I%>3..f(|
000005d0 71 25 29 0d 00 7c 1e e7 49 25 3d 35 8c c8 99 22 |q%)..|..I%=5..."|
000005e0 58 4f 53 5f 46 69 6c 65 22 2c 37 2c 63 24 2b bd |XOS_File",7,c$+.|
000005f0 30 0d 00 7d 0c e7 49 25 3e 34 8c f2 65 0d 00 7e |0..}..I%>4..e..~|
00000600 13 c9 72 25 3a e7 49 25 3e 33 8c 48 25 3d 49 25 |..r%:.I%>3.H%=I%|
00000610 0d 00 80 05 cb 0d 00 81 05 e1 0d 00 82 49 dd f2 |.............I..|
00000620 72 28 65 24 2c 6d 24 2c 58 25 2c 59 25 29 3a f2 |r(e$,m$,X%,Y%):.|
00000630 74 28 4a 25 2c 65 24 2c 6d 24 29 3a c8 99 22 57 |t(J%,e$,m$):.."W|
00000640 69 6d 70 5f 43 72 65 61 74 65 4d 65 6e 75 22 2c |imp_CreateMenu",|
00000650 2c 4a 25 2c 58 25 2d 4a 25 21 31 36 2f 32 2c 59 |,J%,X%-J%!16/2,Y|
00000660 25 3a e1 0d 00 89 a1 dd f2 74 28 4d 25 2c 65 24 |%:.......t(M%,e$|
00000670 2c 6d 24 29 3a ea 49 25 2c 75 25 2c 6e 61 25 2c |,m$):.I%,u%,na%,|
00000680 65 61 25 2c 6f 61 25 2c 4e 3a 6f 61 25 3d 31 32 |ea%,oa%,N:oa%=12|
00000690 38 3a 24 4d 25 3d 65 24 3a 4d 25 21 31 32 3d 34 |8:$M%=e$:M%!12=4|
000006a0 35 39 32 37 31 3a 4d 25 21 32 30 3d 34 34 3a 4d |59271:M%!20=44:M|
000006b0 25 21 32 34 3d 30 3a 49 25 3d 4d 25 2b 32 38 3a |%!24=0:I%=M%+28:|
000006c0 75 25 3d a9 28 65 24 29 2d 32 3a f5 3a 41 25 3d |u%=.(e$)-2:.:A%=|
000006d0 a7 6d 24 2c 22 2c 22 29 3a 24 28 49 25 2b 31 32 |.m$,","):$(I%+12|
000006e0 29 3d c0 6d 24 2c 41 25 2d 31 29 3a 6d 24 3d c1 |)=.m$,A%-1):m$=.|
000006f0 6d 24 2c 41 25 2b 31 29 3a e7 41 25 3e 75 25 75 |m$,A%+1):.A%>u%u|
00000700 25 3d 41 25 0d 00 91 1d 21 49 25 3d 30 3a 49 25 |%=A%....!I%=0:I%|
00000710 21 34 3d 30 3a 3a c8 8e 24 28 49 25 2b 31 32 29 |!4=0::..$(I%+12)|
00000720 ca 0d 00 94 14 c9 22 49 6e 66 6f 22 3a 49 25 21 |......"Info":I%!|
00000730 34 3d 70 61 25 0d 00 96 19 c9 22 49 6d 61 67 65 |4=pa%....."Image|
00000740 20 73 69 7a 65 22 3a 49 25 21 34 3d 72 25 0d 00 | size":I%!4=r%..|
00000750 97 16 c9 22 4f 70 74 69 6f 6e 73 22 3a 49 25 21 |..."Options":I%!|
00000760 34 3d 68 25 0d 00 98 05 cb 0d 00 98 3b 3a 49 25 |4=h%........;:I%|
00000770 21 38 3d 26 37 30 30 30 30 32 31 3a 49 25 2b 3d |!8=&7000021:I%+=|
00000780 32 34 3a fd 6d 24 3d 22 22 3a 21 28 49 25 2d 32 |24:.m$="":!(I%-2|
00000790 34 29 3d 6f 61 25 3a 4d 25 21 31 36 3d 75 25 2a |4)=oa%:M%!16=u%*|
000007a0 31 36 3a e1 0d 00 9d 64 dd f2 65 3a ea 61 24 2c |16:....d..e:.a$,|
000007b0 52 25 2c 68 24 2c 69 24 3a c8 99 22 57 69 6d 70 |R%,h$,i$:.."Wimp|
000007c0 5f 50 6f 6c 6c 22 2c 2c 62 25 b8 63 3a 61 24 3d |_Poll",,b%.c:a$=|
000007d0 22 22 3a 52 25 3d 68 25 3a f2 75 28 22 3c 57 69 |"":R%=h%:.u("<Wi|
000007e0 6d 70 24 53 63 72 61 70 3e 22 29 3a e7 a4 62 28 |mp$Scrap>"):..b(|
000007f0 30 2c 52 25 29 61 24 2b 3d 22 20 2d 63 22 8b 61 |0,R%)a$+=" -c".a|
00000800 24 2b 3d 22 20 2d 6e 22 0d 00 a6 18 e7 a4 62 28 |$+=" -n"......b(|
00000810 34 2c 52 25 29 61 24 2b 3d 22 20 2d 46 20 31 22 |4,R%)a$+=" -F 1"|
00000820 0d 00 a7 23 e7 a4 62 28 31 2c 52 25 29 61 24 2b |...#..b(1,R%)a$+|
00000830 3d 22 20 2d 6a 20 2d 53 20 22 2b a4 61 28 52 25 |=" -j -S "+.a(R%|
00000840 2c 32 29 0d 00 a8 21 e7 a4 62 28 39 2c 52 25 29 |,2)...!..b(9,R%)|
00000850 61 24 2b 3d 22 20 2d 4c 20 22 2b a4 61 28 52 25 |a$+=" -L "+.a(R%|
00000860 2c 31 30 29 0d 00 a9 20 e7 a4 62 28 33 2c 52 25 |,10)... ..b(3,R%|
00000870 29 61 24 2b 3d 22 20 2d 54 20 22 2b a4 61 28 52 |)a$+=" -T "+.a(R|
00000880 25 2c 37 29 0d 00 aa e1 61 24 2b 3d 22 20 2d 52 |%,7)....a$+=" -R|
00000890 20 22 2b c3 28 bb 28 a4 61 28 72 25 2c 31 29 29 | "+.(.(.a(r%,1))|
000008a0 2f 32 5e 28 48 25 2d 34 29 29 2b 22 20 22 3a 61 |/2^(H%-4))+" ":a|
000008b0 24 2b 3d c3 28 bb 28 a4 61 28 72 25 2c 33 29 29 |$+=.(.(.a(r%,3))|
000008c0 2f 32 5e 28 48 25 2d 34 29 29 3a 61 24 3d 22 3c |/2^(H%-4)):a$="<|
000008d0 54 72 61 63 65 30 31 24 44 69 72 3e 2e 52 61 79 |Trace01$Dir>.Ray|
000008e0 53 68 61 64 65 22 2b 61 24 2b 22 20 2d 4f 20 22 |Shade"+a$+" -O "|
000008f0 2b 63 24 2b 22 20 22 3a 61 24 2b 3d 22 3c 57 69 |+c$+" ":a$+="<Wi|
00000900 6d 70 24 53 63 72 61 70 3e 22 3a c8 99 22 57 69 |mp$Scrap>":.."Wi|
00000910 6d 70 5f 53 74 61 72 74 54 61 73 6b 22 2c 61 24 |mp_StartTask",a$|
00000920 3a c8 99 22 58 4f 53 5f 46 69 6c 65 22 2c 31 38 |:.."XOS_File",18|
00000930 2c 63 24 2b bd 30 2c 31 36 38 39 3a 21 62 25 3d |,c$+.0,1689:!b%=|
00000940 67 25 3a c8 99 22 57 69 6d 70 5f 43 6c 6f 73 65 |g%:.."Wimp_Close|
00000950 57 69 6e 64 6f 77 22 2c 2c 62 25 3a 52 25 3d a4 |Window",,b%:R%=.|
00000960 64 28 4b 25 29 0d 00 b2 19 52 25 3d a4 64 28 77 |d(K%)....R%=.d(w|
00000970 25 29 3a 52 25 3d a4 64 28 65 25 29 3a e1 0d 00 |%):R%=.d(e%):...|
00000980 b5 89 dd f2 76 3a ea 74 25 3a c8 99 22 4f 53 5f |....v:.t%:.."OS_|
00000990 52 65 61 64 4d 65 6d 4d 61 70 49 6e 66 6f 22 b8 |ReadMemMapInfo".|
000009a0 78 25 3a 6a 25 3d 78 25 3a c8 99 22 57 69 6d 70 |x%:j%=x%:.."Wimp|
000009b0 5f 53 6c 6f 74 53 69 7a 65 22 2c 2d 31 2c 2d 31 |_SlotSize",-1,-1|
000009c0 b8 74 25 3a 64 25 3d 74 25 2b 33 32 37 36 38 3a |.t%:d%=t%+32768:|
000009d0 c8 99 22 57 69 6d 70 5f 53 6c 6f 74 53 69 7a 65 |.."Wimp_SlotSize|
000009e0 22 2c 64 25 2b 6a 25 2d 33 32 37 36 38 2c 2d 31 |",d%+j%-32768,-1|
000009f0 3a c8 99 22 4f 53 5f 48 65 61 70 22 2c 30 2c 64 |:.."OS_Heap",0,d|
00000a00 25 2c 2c 6a 25 3a e1 0d 00 c0 35 dd a4 65 28 6f |%,,j%:....5..e(o|
00000a10 25 29 3a ea 61 25 3a c8 99 22 58 4f 53 5f 48 65 |%):.a%:.."XOS_He|
00000a20 61 70 22 2c 32 2c 64 25 2c 2c 6f 25 b8 2c 2c 61 |ap",2,d%,,o%.,,a|
00000a30 25 3a e7 61 25 3c 3e 30 8c 3d 61 25 0d 00 c5 10 |%:.a%<>0.=a%....|
00000a40 e7 a4 68 28 6f 25 29 3d a3 8c 3d 30 0d 00 c6 4d |..h(o%)=..=0...M|
00000a50 c8 99 22 58 4f 53 5f 48 65 61 70 22 2c 32 2c 64 |.."XOS_Heap",2,d|
00000a60 25 2c 2c 6f 25 b8 2c 2c 61 25 3a f2 68 3a e7 61 |%,,o%.,,a%:.h:.a|
00000a70 25 3d 30 8c 85 31 2c 22 43 61 6e 6e 6f 74 20 63 |%=0..1,"Cannot c|
00000a80 6c 61 69 6d 20 65 6e 6f 75 67 68 20 66 72 65 65 |laim enough free|
00000a90 20 6d 65 6d 6f 72 79 2e 22 0d 00 c9 07 3d 61 25 | memory."....=a%|
00000aa0 0d 00 cc 46 dd a4 6c 28 70 25 2c 4f 25 29 3a ea |...F..l(p%,O%):.|
00000ab0 6e 25 2c 66 25 2c 74 25 3a c8 99 22 58 4f 53 5f |n%,f%,t%:.."XOS_|
00000ac0 48 65 61 70 22 2c 34 2c 64 25 2c 70 25 2c 4f 25 |Heap",4,d%,p%,O%|
00000ad0 b8 2c 2c 6e 25 3b 66 25 3a e7 28 66 25 80 31 29 |.,,n%;f%:.(f%.1)|
00000ae0 3d 30 8c 3d 6e 25 0d 00 cf 2d c8 99 22 4f 53 5f |=0.=n%...-.."OS_|
00000af0 48 65 61 70 22 2c 36 2c 64 25 2c 70 25 b8 2c 2c |Heap",6,d%,p%.,,|
00000b00 2c 74 25 3a e7 a4 68 28 74 25 2b 4f 25 29 3d a3 |,t%:..h(t%+O%)=.|
00000b10 8c 3d 30 0d 00 d1 31 c8 99 22 58 4f 53 5f 48 65 |.=0...1.."XOS_He|
00000b20 61 70 22 2c 34 2c 64 25 2c 70 25 2c 4f 25 b8 2c |ap",4,d%,p%,O%.,|
00000b30 2c 6e 25 3b 66 25 3a e7 28 66 25 80 31 29 3d 30 |,n%;f%:.(f%.1)=0|
00000b40 8c 3d 6e 25 0d 00 d3 06 3d 30 0d 00 d6 25 dd a4 |.=n%....=0...%..|
00000b50 64 28 70 25 29 3a c8 99 22 4f 53 5f 48 65 61 70 |d(p%):.."OS_Heap|
00000b60 22 2c 33 2c 64 25 2c 70 25 3a f2 68 3a 3d 30 0d |",3,d%,p%:.h:=0.|
00000b70 00 db 52 dd a4 68 28 6f 25 29 3a ea 73 25 2c 66 |..R..h(o%):.s%,f|
00000b80 25 3a 73 25 3d a4 69 28 6a 25 2b 6f 25 29 3a c8 |%:s%=.i(j%+o%):.|
00000b90 99 22 58 57 69 6d 70 5f 53 6c 6f 74 53 69 7a 65 |."XWimp_SlotSize|
00000ba0 22 2c 64 25 2b 73 25 2d 33 32 37 36 38 2c 2d 31 |",d%+s%-32768,-1|
00000bb0 b8 3b 66 25 3a e7 28 66 25 80 31 29 3d 31 8c 3d |.;f%:.(f%.1)=1.=|
00000bc0 a3 0d 00 df 24 c8 99 22 4f 53 5f 48 65 61 70 22 |....$.."OS_Heap"|
00000bd0 2c 35 2c 64 25 2c 2c 73 25 2d 6a 25 3a 6a 25 3d |,5,d%,,s%-j%:j%=|
00000be0 73 25 3a 3d b9 0d 00 e4 3f dd f2 68 3a ea 73 25 |s%:=....?..h:.s%|
00000bf0 2c 74 25 3a 73 25 3d 6a 25 3a c8 99 22 58 4f 53 |,t%:s%=j%:.."XOS|
00000c00 5f 48 65 61 70 22 2c 35 2c 64 25 2c 2c 2d 73 25 |_Heap",5,d%,,-s%|
00000c10 b8 2c 2c 2c 74 25 3a e7 74 25 3d 2d 73 25 8c 74 |.,,,t%:.t%=-s%.t|
00000c20 25 3d 73 25 0d 00 e8 51 6a 25 3d a4 69 28 6a 25 |%=s%...Qj%=.i(j%|
00000c30 2d 74 25 29 3a c8 99 22 58 4f 53 5f 48 65 61 70 |-t%):.."XOS_Heap|
00000c40 22 2c 35 2c 64 25 2c 2c 6a 25 2d 28 73 25 2d 74 |",5,d%,,j%-(s%-t|
00000c50 25 29 3a c8 99 22 57 69 6d 70 5f 53 6c 6f 74 53 |%):.."Wimp_SlotS|
00000c60 69 7a 65 22 2c 64 25 2b 6a 25 2d 33 32 37 36 38 |ize",d%+j%-32768|
00000c70 2c 2d 31 3a e1 0d 00 ec 1c dd a4 69 28 73 25 29 |,-1:.......i(s%)|
00000c80 3a ea 74 25 3a e7 28 73 25 83 78 25 29 3c 3e 30 |:.t%:.(s%.x%)<>0|
00000c90 8c 0d 00 f0 18 74 25 3d 78 25 2d 28 73 25 83 78 |.....t%=x%-(s%.x|
00000ca0 25 29 3a 73 25 2b 3d 74 25 0d 00 f3 05 cd 0d 00 |%):s%+=t%.......|
00000cb0 f3 07 3d 73 25 0d 00 f6 25 dd a4 6d 3a ea 74 25 |..=s%...%..m:.t%|
00000cc0 3a c8 99 22 4f 53 5f 48 65 61 70 22 2c 31 2c 64 |:.."OS_Heap",1,d|
00000cd0 25 b8 2c 2c 74 25 3a 3d 74 25 0d 00 fd 07 dd f2 |%.,,t%:=t%......|
00000ce0 6a 0d 00 fe 11 2a 4b 45 59 20 31 20 45 44 49 54 |j....*KEY 1 EDIT|
00000cf0 7c 4d 0d 00 fe db de 62 25 20 31 35 33 36 2c 4a ||M.....b% 1536,J|
00000d00 25 20 34 30 30 30 3a de 53 25 20 34 36 30 38 3a |% 4000:.S% 4608:|
00000d10 71 61 25 3d 53 25 2b 34 36 30 38 3a de 64 25 28 |qa%=S%+4608:.d%(|
00000d20 32 29 2c 63 25 28 33 29 2c 62 25 28 33 29 3a de |2),c%(3),b%(3):.|
00000d30 62 24 28 31 30 29 2c 61 25 28 31 30 2c 38 29 3a |b$(10),a%(10,8):|
00000d40 de 61 24 28 32 35 29 3a de 65 61 25 20 34 30 30 |.a$(25):.ea% 400|
00000d50 30 3a 3a 61 3d 2d 31 3a 64 61 25 3d 30 3a 48 25 |0::a=-1:da%=0:H%|
00000d60 3d 36 3a 45 25 3d 30 3a 67 61 25 3d 30 3a 6c 25 |=6:E%=0:ga%=0:l%|
00000d70 3d 30 3a 7a 25 3d 30 3a c8 99 22 57 69 6d 70 5f |=0:z%=0:.."Wimp_|
00000d80 49 6e 69 74 69 61 6c 69 73 65 22 2c 32 30 30 2c |Initialise",200,|
00000d90 26 34 42 35 33 34 31 35 34 2c 22 52 61 79 73 68 |&4B534154,"Raysh|
00000da0 61 64 65 20 28 50 61 72 73 65 72 29 22 b8 2c 72 |ade (Parser)".,r|
00000db0 61 25 3a f2 76 3a f2 77 3a f2 78 3a f2 69 28 70 |a%:.v:.w:.x:.i(p|
00000dc0 61 25 2c 36 2c 67 24 29 3a f2 79 3a e1 0d 01 13 |a%,6,g$):.y:....|
00000dd0 65 dd f2 79 3a ea 4d 24 2c 43 2c 4e 3a 4e 3d 30 |e..y:.M$,C,N:N=0|
00000de0 3a 4d 24 3d 22 22 3a 43 3d 8e 28 22 3c 54 72 61 |:M$="":C=.("<Tra|
00000df0 63 65 30 31 24 44 69 72 3e 2e 4d 65 73 73 61 67 |ce01$Dir>.Messag|
00000e00 65 73 22 29 3a c8 95 4d 24 3c 3e 22 45 6e 64 22 |es"):..M$<>"End"|
00000e10 3a 4e 2b 3d 31 3a 4d 24 3d a4 6b 28 43 29 3a e7 |:N+=1:M$=.k(C):.|
00000e20 4d 24 3c 3e 22 45 6e 64 22 8c 61 24 28 4e 29 3d |M$<>"End".a$(N)=|
00000e30 4d 24 0d 01 1b 0b ce 3a d9 23 43 3a e1 0d 01 1e |M$.....:.#C:....|
00000e40 46 dd a4 6b 28 63 25 29 3a ea 73 24 2c 76 25 3a |F..k(c%):.s$,v%:|
00000e50 73 24 3d 22 22 3a 76 25 3d 9a 23 63 25 3a c8 95 |s$="":v%=.#c%:..|
00000e60 76 25 3e 33 31 80 ac 28 c5 23 63 25 29 3a 73 24 |v%>31..(.#c%):s$|
00000e70 2b 3d bd 76 25 3a 76 25 3d 9a 23 63 25 3a ce 3a |+=.v%:v%=.#c%:.:|
00000e80 3d 73 24 0d 01 28 ab dd f2 77 3a de 73 61 25 20 |=s$..(...w:.sa% |
00000e90 31 32 3a 24 73 61 25 3d 22 52 61 79 73 68 61 64 |12:$sa%="Rayshad|
00000ea0 65 22 3a de 74 61 25 20 32 30 3a 24 74 61 25 3d |e":.ta% 20:$ta%=|
00000eb0 22 53 69 72 61 79 73 68 61 64 65 22 3a 62 25 21 |"Sirayshade":b%!|
00000ec0 30 3d 2d 31 3a 62 25 21 34 3d 30 3a 62 25 21 38 |0=-1:b%!4=0:b%!8|
00000ed0 3d 2d 31 32 3a 62 25 21 31 32 3d 31 34 30 3a 62 |=-12:b%!12=140:b|
00000ee0 25 21 31 36 3d 37 36 3a 62 25 21 32 30 3d 33 38 |%!16=76:b%!20=38|
00000ef0 35 38 38 38 35 32 33 3a 62 25 21 32 34 3d 73 61 |5888523:b%!24=sa|
00000f00 25 3a 62 25 21 32 38 3d 74 61 25 3a 62 25 21 33 |%:b%!28=ta%:b%!3|
00000f10 32 3d 31 32 3a c8 99 22 57 69 6d 70 5f 43 72 65 |2=12:.."Wimp_Cre|
00000f20 61 74 65 49 63 6f 6e 22 2c 2c 62 25 3a e1 0d 01 |ateIcon",,b%:...|
00000f30 33 ac dd f2 78 3a c8 99 22 57 69 6d 70 5f 4f 70 |3...x:.."Wimp_Op|
00000f40 65 6e 54 65 6d 70 6c 61 74 65 22 2c 2c 22 3c 54 |enTemplate",,"<T|
00000f50 72 61 63 65 30 31 24 44 69 72 3e 2e 54 65 6d 70 |race01$Dir>.Temp|
00000f60 6c 61 74 65 73 22 3a 70 61 25 3d a4 63 28 22 69 |lates":pa%=.c("i|
00000f70 6e 66 6f 22 29 3a 68 25 3d a4 63 28 22 72 61 79 |nfo"):h%=.c("ray|
00000f80 6f 70 74 73 22 29 3a 72 25 3d a4 63 28 22 69 6d |opts"):r%=.c("im|
00000f90 61 67 65 22 29 3a 67 25 3d a4 63 28 22 74 72 61 |age"):g%=.c("tra|
00000fa0 63 65 22 29 3a 71 25 3d a4 63 28 22 65 78 69 73 |ce"):q%=.c("exis|
00000fb0 74 73 22 29 3a 60 25 3d a4 63 28 22 74 78 74 22 |ts"):`%=.c("txt"|
00000fc0 29 3a c8 99 22 57 69 6d 70 5f 43 6c 6f 73 65 54 |):.."Wimp_CloseT|
00000fd0 65 6d 70 6c 61 74 65 22 3a e1 0d 01 40 62 dd a4 |emplate":...@b..|
00000fe0 63 28 66 24 29 3a c8 99 22 57 69 6d 70 5f 4c 6f |c(f$):.."Wimp_Lo|
00000ff0 61 64 54 65 6d 70 6c 61 74 65 22 2c 2c 62 25 2c |adTemplate",,b%,|
00001000 53 25 2c 71 61 25 2c 2d 31 2c 66 24 2c 30 b8 2c |S%,qa%,-1,f$,0.,|
00001010 2c 53 25 2c 2c 2c 2c 50 25 3a c8 99 22 57 69 6d |,S%,,,,P%:.."Wim|
00001020 70 5f 43 72 65 61 74 65 57 69 6e 64 6f 77 22 2c |p_CreateWindow",|
00001030 2c 62 25 b8 75 61 25 3a 3d 75 61 25 0d 01 48 73 |,b%.ua%:=ua%..Hs|
00001040 dd f2 7a 28 62 24 29 3a ea 63 25 2c 76 25 2c 42 |..z(b$):.c%,v%,B|
00001050 25 2c 41 24 2c 4e 3a c8 99 22 4f 53 5f 46 69 6e |%,A$,N:.."OS_Fin|
00001060 64 22 2c 37 39 2c 62 24 b8 63 25 3a 42 25 3d 9a |d",79,b$.c%:B%=.|
00001070 23 63 25 3a 76 25 3d 42 25 2a 31 30 30 3a 42 25 |#c%:v%=B%*100:B%|
00001080 3d 9a 23 63 25 3a 76 25 2b 3d 42 25 3a e7 76 25 |=.#c%:v%+=B%:.v%|
00001090 3e 61 61 25 8c c8 99 22 4f 53 5f 46 69 6e 64 22 |>aa%..."OS_Find"|
000010a0 2c 30 2c 63 25 3a 85 31 37 2c 61 24 28 32 29 0d |,0,c%:.17,a$(2).|
000010b0 01 50 0d e7 76 25 3e 3d 31 31 30 8c 0d 01 55 2b |.P..v%>=110...U+|
000010c0 42 25 3d 9a 23 63 25 3a 54 25 3d 42 25 2a 31 30 |B%=.#c%:T%=B%*10|
000010d0 30 3a 42 25 3d 9a 23 63 25 3a 54 25 2b 3d 42 25 |0:B%=.#c%:T%+=B%|
000010e0 3a e7 54 25 3e 30 8c 0d 01 58 15 e3 4e 3d 31 b8 |:.T%>0...X..N=1.|
000010f0 54 25 3a e8 23 63 25 2c 41 24 3a ed 0d 01 5c 05 |T%:.#c%,A$:...\.|
00001100 cd 0d 01 5c 05 cd 0d 01 5d b4 42 25 3d 9a 23 63 |...\....].B%=.#c|
00001110 25 3a 6c 25 3d 42 25 2a 32 35 36 3a 42 25 3d 9a |%:l%=B%*256:B%=.|
00001120 23 63 25 3a 6c 25 2b 3d 42 25 3a 42 25 3d 9a 23 |#c%:l%+=B%:B%=.#|
00001130 63 25 3a 55 25 3d 42 25 2a 32 35 36 3a 42 25 3d |c%:U%=B%*256:B%=|
00001140 9a 23 63 25 3a 55 25 2b 3d 42 25 3a 4b 25 3d a4 |.#c%:U%+=B%:K%=.|
00001150 65 28 55 25 29 3a c8 99 22 4f 53 5f 47 42 50 42 |e(U%):.."OS_GBPB|
00001160 22 2c 34 2c 63 25 2c 4b 25 2c 55 25 3a e3 4e 3d |",4,c%,K%,U%:.N=|
00001170 31 b8 6c 25 3a e8 23 63 25 2c 41 24 3a ed 3a 7a |1.l%:.#c%,A$:.:z|
00001180 25 3d 9a 23 63 25 3a 77 25 3d a4 65 28 7a 25 2a |%=.#c%:w%=.e(z%*|
00001190 34 30 29 3a c8 99 22 4f 53 5f 47 42 50 42 22 2c |40):.."OS_GBPB",|
000011a0 34 2c 63 25 2c 77 25 2c 7a 25 2a 34 30 3a 65 25 |4,c%,w%,z%*40:e%|
000011b0 3d a4 65 28 6c 25 2a 32 30 29 0d 01 72 24 e7 6c |=.e(l%*20)..r$.l|
000011c0 25 3c 3e 30 8c c8 99 22 4f 53 5f 47 42 50 42 22 |%<>0..."OS_GBPB"|
000011d0 2c 34 2c 63 25 2c 65 25 2c 6c 25 2a 32 30 0d 01 |,4,c%,e%,l%*20..|
000011e0 73 d4 62 25 28 30 29 3d 9a 23 63 25 3a 63 25 28 |s.b%(0)=.#c%:c%(|
000011f0 30 29 3d 9a 23 63 25 3a 62 25 28 30 29 2d 3d 31 |0)=.#c%:b%(0)-=1|
00001200 3a 63 25 28 30 29 2d 3d 31 3a e3 4e 3d 31 b8 33 |:c%(0)-=1:.N=1.3|
00001210 3a 42 25 3d 9a 23 63 25 3a 62 25 28 4e 29 3d 42 |:B%=.#c%:b%(N)=B|
00001220 25 2a 32 35 36 3a 42 25 3d 9a 23 63 25 3a 62 25 |%*256:B%=.#c%:b%|
00001230 28 4e 29 2b 3d 42 25 3a 42 25 3d 9a 23 63 25 3a |(N)+=B%:B%=.#c%:|
00001240 63 25 28 4e 29 3d 42 25 2a 32 35 36 3a 42 25 3d |c%(N)=B%*256:B%=|
00001250 9a 23 63 25 3a 63 25 28 4e 29 2b 3d 42 25 3a ed |.#c%:c%(N)+=B%:.|
00001260 3a 76 61 25 3d 9a 23 63 25 3a e3 4e 3d 31 b8 31 |:va%=.#c%:.N=1.1|
00001270 30 3a e8 23 63 25 2c 62 24 28 4e 29 3a e3 46 3d |0:.#c%,b$(N):.F=|
00001280 30 b8 38 3a 42 25 3d 9a 23 63 25 3a 61 25 28 4e |0.8:B%=.#c%:a%(N|
00001290 2c 46 29 3d 42 25 2a 32 35 36 3a 42 25 3d 9a 23 |,F)=B%*256:B%=.#|
000012a0 63 25 3a 61 25 28 4e 2c 46 29 2b 3d 42 25 3a ed |c%:a%(N,F)+=B%:.|
000012b0 3a ed 0d 01 89 44 64 25 28 30 29 3d 9a 23 63 25 |:....Dd%(0)=.#c%|
000012c0 3a 64 25 28 31 29 3d 9a 23 63 25 3a 64 25 28 32 |:d%(1)=.#c%:d%(2|
000012d0 29 3d 9a 23 63 25 3a c8 99 22 4f 53 5f 46 69 6e |)=.#c%:.."OS_Fin|
000012e0 64 22 2c 30 2c 63 25 3a 6c 25 2d 3d 31 3a f2 64 |d",0,c%:l%-=1:.d|
000012f0 28 67 25 29 3a e1 0d 01 98 68 dd f2 75 28 62 24 |(g%):....h..u(b$|
00001300 29 3a ea 43 2c 56 25 2c 77 61 25 3a 43 3d ae 28 |):.C,V%,wa%:C=.(|
00001310 62 24 29 3a 56 25 3d bb 28 a4 61 28 68 25 2c 32 |b$):V%=.(.a(h%,2|
00001320 31 29 29 3a 77 61 25 3d bb 28 a4 61 28 68 25 2c |1)):wa%=.(.a(h%,|
00001330 32 32 29 29 3a f2 41 3a f2 42 3a f2 43 3a f2 44 |22)):.A:.B:.C:.D|
00001340 3a d9 23 43 3a ff 28 22 53 65 74 74 79 70 65 20 |:.#C:.("Settype |
00001350 22 2b 62 24 2b 22 20 66 66 66 22 29 3a e1 0d 01 |"+b$+" fff"):...|
00001360 a6 bc dd f2 41 3a d5 23 43 2c 22 2f 2a 22 3a d5 |....A:.#C,"/*":.|
00001370 23 43 2c 22 20 2a 20 20 20 53 63 65 6e 65 20 67 |#C," * Scene g|
00001380 65 6e 65 72 61 74 65 64 20 75 73 69 6e 67 20 21 |enerated using !|
00001390 52 61 79 33 64 22 3a d5 23 43 2c 22 20 2a 20 20 |Ray3d":.#C," * |
000013a0 20 20 20 77 72 69 74 74 65 6e 20 62 79 20 52 6f | written by Ro|
000013b0 62 65 74 20 54 61 79 6c 6f 72 2e 22 3a d5 23 43 |bet Taylor.":.#C|
000013c0 2c 22 20 2a 22 3a d5 23 43 2c 22 20 2a 20 20 20 |," *":.#C," * |
000013d0 20 28 22 2b 91 24 2b 22 29 22 3a d5 23 43 2c 22 | ("+.$+")":.#C,"|
000013e0 20 2a 2f 22 3a d5 23 43 2c 22 22 3a d5 23 43 2c | */":.#C,"":.#C,|
000013f0 22 65 79 65 70 20 22 2b c3 28 62 25 28 31 29 29 |"eyep "+.(b%(1))|
00001400 2b 22 20 22 2b c3 28 62 25 28 32 29 29 2b 22 20 |+" "+.(b%(2))+" |
00001410 22 2b c3 28 62 25 28 33 29 29 0d 01 b0 b6 d5 23 |"+.(b%(3)).....#|
00001420 43 2c 22 6c 6f 6f 6b 70 20 22 2b c3 28 63 25 28 |C,"lookp "+.(c%(|
00001430 31 29 29 2b 22 20 22 2b c3 28 63 25 28 32 29 29 |1))+" "+.(c%(2))|
00001440 2b 22 20 22 2b c3 28 63 25 28 33 29 29 3a d5 23 |+" "+.(c%(3)):.#|
00001450 43 2c 22 66 6f 76 20 22 2b c3 28 56 25 29 2b 22 |C,"fov "+.(V%)+"|
00001460 20 22 2b c3 28 56 25 29 3a d5 23 43 2c 22 61 70 | "+.(V%):.#C,"ap|
00001470 65 72 74 75 72 65 20 22 2b c3 28 77 61 25 29 3a |erture "+.(wa%):|
00001480 d5 23 43 2c 22 62 61 63 6b 67 72 6f 75 6e 64 20 |.#C,"background |
00001490 22 2b c3 28 64 25 28 30 29 2f 31 30 30 29 2b 22 |"+.(d%(0)/100)+"|
000014a0 20 22 2b c3 28 64 25 28 31 29 2f 31 30 30 29 3b | "+.(d%(1)/100);|
000014b0 3a d5 23 43 2c 22 20 22 2b c3 28 64 25 28 32 29 |:.#C," "+.(d%(2)|
000014c0 2f 31 30 30 29 3a e7 a4 62 28 36 2c 68 25 29 8c |/100):..b(6,h%).|
000014d0 0d 01 b6 37 d5 23 43 2c 22 67 72 69 64 20 22 2b |...7.#C,"grid "+|
000014e0 a4 61 28 68 25 2c 38 29 2b 22 20 22 2b a4 61 28 |.a(h%,8)+" "+.a(|
000014f0 68 25 2c 38 29 2b 22 20 22 3b 3a d5 23 43 2c a4 |h%,8)+" ";:.#C,.|
00001500 61 28 68 25 2c 38 29 0d 01 b9 05 cd 0d 01 b9 05 |a(h%,8).........|
00001510 e1 0d 01 ba e7 dd f2 45 3a d5 23 43 2c 22 74 72 |.......E:.#C,"tr|
00001520 69 61 6e 67 6c 65 20 22 3b 3a f2 61 28 30 29 3a |iangle ";:.a(0):|
00001530 d5 23 43 2c c3 28 4e 25 21 35 36 29 2b 22 20 22 |.#C,.(N%!56)+" "|
00001540 2b c3 28 4e 25 21 36 30 29 2b 22 20 22 2b c3 28 |+.(N%!60)+" "+.(|
00001550 4e 25 21 36 34 29 2b 22 20 22 3b 3a d5 23 43 2c |N%!64)+" ";:.#C,|
00001560 c3 28 4e 25 21 38 29 2b 22 20 22 2b c3 28 4e 25 |.(N%!8)+" "+.(N%|
00001570 21 31 32 29 2b 22 20 22 2b c3 28 4e 25 21 31 36 |!12)+" "+.(N%!16|
00001580 29 2b 22 20 22 3b 3a d5 23 43 2c c3 28 4e 25 21 |)+" ";:.#C,.(N%!|
00001590 32 30 29 2b 22 20 22 2b c3 28 4e 25 21 32 34 29 |20)+" "+.(N%!24)|
000015a0 2b 22 20 22 2b c3 28 4e 25 21 32 38 29 2b 22 20 |+" "+.(N%!28)+" |
000015b0 22 3b 3a f2 62 3a d5 23 43 2c 22 74 72 69 61 6e |";:.b:.#C,"trian|
000015c0 67 6c 65 20 22 3b 3a f2 61 28 30 29 3a d5 23 43 |gle ";:.a(0):.#C|
000015d0 2c c3 28 4e 25 21 35 36 29 2b 22 20 22 2b c3 28 |,.(N%!56)+" "+.(|
000015e0 4e 25 21 36 30 29 2b 22 20 22 2b c3 28 4e 25 21 |N%!60)+" "+.(N%!|
000015f0 36 34 29 2b 22 20 22 3b 0d 01 c3 cd d5 23 43 2c |64)+" ";.....#C,|
00001600 c3 28 4e 25 21 32 30 29 2b 22 20 22 2b c3 28 4e |.(N%!20)+" "+.(N|
00001610 25 21 32 34 29 2b 22 20 22 2b c3 28 4e 25 21 32 |%!24)+" "+.(N%!2|
00001620 38 29 2b 22 20 22 3b 3a d5 23 43 2c c3 28 4e 25 |8)+" ";:.#C,.(N%|
00001630 21 33 32 29 2b 22 20 22 2b c3 28 4e 25 21 33 36 |!32)+" "+.(N%!36|
00001640 29 2b 22 20 22 2b c3 28 4e 25 21 34 30 29 2b 22 |)+" "+.(N%!40)+"|
00001650 20 22 3b 3a f2 62 3a d5 23 43 2c 22 74 72 69 61 | ";:.b:.#C,"tria|
00001660 6e 67 6c 65 20 22 3b 3a f2 61 28 30 29 3a d5 23 |ngle ";:.a(0):.#|
00001670 43 2c c3 28 4e 25 21 35 36 29 2b 22 20 22 2b c3 |C,.(N%!56)+" "+.|
00001680 28 4e 25 21 36 30 29 2b 22 20 22 2b c3 28 4e 25 |(N%!60)+" "+.(N%|
00001690 21 36 34 29 2b 22 20 22 3b 3a d5 23 43 2c c3 28 |!64)+" ";:.#C,.(|
000016a0 4e 25 21 33 32 29 2b 22 20 22 2b c3 28 4e 25 21 |N%!32)+" "+.(N%!|
000016b0 33 36 29 2b 22 20 22 2b c3 28 4e 25 21 34 30 29 |36)+" "+.(N%!40)|
000016c0 2b 22 20 22 3b 0d 01 c9 dc d5 23 43 2c c3 28 4e |+" ";.....#C,.(N|
000016d0 25 21 34 34 29 2b 22 20 22 2b c3 28 4e 25 21 34 |%!44)+" "+.(N%!4|
000016e0 38 29 2b 22 20 22 2b c3 28 4e 25 21 35 32 29 2b |8)+" "+.(N%!52)+|
000016f0 22 20 22 3b 3a f2 62 3a d5 23 43 2c 22 74 72 69 |" ";:.b:.#C,"tri|
00001700 61 6e 67 6c 65 20 22 3b 3a f2 61 28 30 29 3a d5 |angle ";:.a(0):.|
00001710 23 43 2c c3 28 4e 25 21 35 36 29 2b 22 20 22 2b |#C,.(N%!56)+" "+|
00001720 c3 28 4e 25 21 36 30 29 2b 22 20 22 2b c3 28 4e |.(N%!60)+" "+.(N|
00001730 25 21 36 34 29 2b 22 20 22 3b 3a d5 23 43 2c c3 |%!64)+" ";:.#C,.|
00001740 28 4e 25 21 34 34 29 2b 22 20 22 2b c3 28 4e 25 |(N%!44)+" "+.(N%|
00001750 21 34 38 29 2b 22 20 22 2b c3 28 4e 25 21 35 32 |!48)+" "+.(N%!52|
00001760 29 2b 22 20 22 3b 3a d5 23 43 2c c3 28 4e 25 21 |)+" ";:.#C,.(N%!|
00001770 38 29 2b 22 20 22 2b c3 28 4e 25 21 31 32 29 2b |8)+" "+.(N%!12)+|
00001780 22 20 22 2b c3 28 4e 25 21 31 36 29 2b 22 20 22 |" "+.(N%!16)+" "|
00001790 3b 3a f2 62 3a d5 23 43 2c 22 70 6f 6c 79 20 22 |;:.b:.#C,"poly "|
000017a0 3b 0d 01 d1 64 f2 61 28 30 29 3a d5 23 43 2c 22 |;...d.a(0):.#C,"|
000017b0 22 3a e3 46 3d 31 b8 34 3a d5 23 43 2c 22 20 20 |":.F=1.4:.#C," |
000017c0 20 20 20 20 20 22 2b c3 28 4e 25 21 28 46 2a 31 | "+.(N%!(F*1|
000017d0 32 2d 34 29 29 2b 22 20 22 2b c3 28 4e 25 21 28 |2-4))+" "+.(N%!(|
000017e0 46 2a 31 32 29 29 2b 22 20 22 3b 3a d5 23 43 2c |F*12))+" ";:.#C,|
000017f0 c3 28 4e 25 21 28 46 2a 31 32 2b 34 29 29 3a ed |.(N%!(F*12+4)):.|
00001800 3a f2 62 3a e1 0d 01 d6 76 dd f2 43 3a ea 4e 25 |:.b:....v..C:.N%|
00001810 2c 46 2c 44 25 2c 73 25 3a d5 23 43 2c 22 22 3a |,F,D%,s%:.#C,"":|
00001820 d5 23 43 2c 22 2f 2a 20 50 72 69 6d 69 74 69 76 |.#C,"/* Primitiv|
00001830 65 20 64 65 66 69 6e 69 74 69 6f 6e 73 20 67 6f |e definitions go|
00001840 20 68 65 72 65 22 3a d5 23 43 2c 22 20 2a 2f 22 | here":.#C," */"|
00001850 3a d5 23 43 2c 22 22 3a 6b 25 3d 30 3a 4e 25 3d |:.#C,"":k%=0:N%=|
00001860 4b 25 3a c8 95 21 4e 25 3c 3e 2d 32 35 36 3a 6b |K%:..!N%<>-256:k|
00001870 25 2b 3d 31 3a c8 8e 21 4e 25 ca 0d 01 e1 aa c9 |%+=1:..!N%......|
00001880 2d 31 3a d5 23 43 2c 22 74 72 69 61 6e 67 6c 65 |-1:.#C,"triangle|
00001890 20 22 3b 3a f2 61 28 30 29 3a d5 23 43 2c c3 28 | ";:.a(0):.#C,.(|
000018a0 4e 25 21 38 29 2b 22 20 22 2b c3 28 4e 25 21 31 |N%!8)+" "+.(N%!1|
000018b0 32 29 2b 22 20 22 2b c3 28 4e 25 21 31 36 29 2b |2)+" "+.(N%!16)+|
000018c0 22 20 22 3b 3a d5 23 43 2c c3 28 4e 25 21 32 30 |" ";:.#C,.(N%!20|
000018d0 29 2b 22 20 22 2b c3 28 4e 25 21 32 34 29 2b 22 |)+" "+.(N%!24)+"|
000018e0 20 22 2b c3 28 4e 25 21 32 38 29 2b 22 20 22 3b | "+.(N%!28)+" ";|
000018f0 3a d5 23 43 2c c3 28 4e 25 21 33 32 29 2b 22 20 |:.#C,.(N%!32)+" |
00001900 22 2b c3 28 4e 25 21 33 36 29 2b 22 20 22 2b c3 |"+.(N%!36)+" "+.|
00001910 28 4e 25 21 34 30 29 2b 22 20 22 3a 4e 25 2b 3d |(N%!40)+" ":N%+=|
00001920 34 34 3a f2 62 0d 01 e8 59 c9 2d 32 3a d5 23 43 |44:.b...Y.-2:.#C|
00001930 2c 22 73 70 68 65 72 65 20 22 3b 3a f2 61 28 30 |,"sphere ";:.a(0|
00001940 29 3a d5 23 43 2c c3 28 4e 25 21 32 30 29 2b 22 |):.#C,.(N%!20)+"|
00001950 20 22 2b c3 28 4e 25 21 38 29 2b 22 20 22 2b c3 | "+.(N%!8)+" "+.|
00001960 28 4e 25 21 31 32 29 2b 22 20 22 2b c3 28 4e 25 |(N%!12)+" "+.(N%|
00001970 21 31 36 29 3a 4e 25 2b 3d 32 34 3a f2 62 0d 01 |!16):N%+=24:.b..|
00001980 ec 85 c9 2d 33 3a d5 23 43 2c 22 70 6f 6c 79 20 |...-3:.#C,"poly |
00001990 22 3b 3a f2 61 28 30 29 3a d5 23 43 2c 22 22 3a |";:.a(0):.#C,"":|
000019a0 e3 46 3d 31 b8 4e 25 21 38 3a d5 23 43 2c 22 20 |.F=1.N%!8:.#C," |
000019b0 20 20 20 20 20 20 22 2b c3 28 4e 25 21 28 46 2a | "+.(N%!(F*|
000019c0 31 32 29 29 2b 22 20 22 2b c3 28 4e 25 21 28 46 |12))+" "+.(N%!(F|
000019d0 2a 31 32 2b 34 29 29 2b 22 20 22 3b 3a d5 23 43 |*12+4))+" ";:.#C|
000019e0 2c c3 28 4e 25 21 28 46 2a 31 32 2b 38 29 29 3a |,.(N%!(F*12+8)):|
000019f0 ed 3a f5 3a 4e 25 2b 3d 34 3a fd 21 4e 25 3c 30 |.:.:N%+=4:.!N%<0|
00001a00 3a f2 62 0d 01 f3 88 c9 2d 34 3a d5 23 43 2c 22 |:.b.....-4:.#C,"|
00001a10 63 79 6c 69 6e 64 65 72 20 22 3b 3a f2 61 28 30 |cylinder ";:.a(0|
00001a20 29 3a d5 23 43 2c c3 28 4e 25 21 38 29 2b 22 20 |):.#C,.(N%!8)+" |
00001a30 22 2b c3 28 4e 25 21 31 32 29 2b 22 20 22 2b c3 |"+.(N%!12)+" "+.|
00001a40 28 4e 25 21 31 36 29 2b 22 20 22 3b 3a d5 23 43 |(N%!16)+" ";:.#C|
00001a50 2c c3 28 4e 25 21 32 30 29 2b 22 20 22 2b c3 28 |,.(N%!20)+" "+.(|
00001a60 4e 25 21 32 34 29 2b 22 20 22 2b c3 28 4e 25 21 |N%!24)+" "+.(N%!|
00001a70 32 38 29 2b 22 20 22 2b c3 28 4e 25 21 33 32 29 |28)+" "+.(N%!32)|
00001a80 3a 4e 25 2b 3d 31 33 32 3a f2 62 0d 01 f8 96 c9 |:N%+=132:.b.....|
00001a90 2d 35 3a d5 23 43 2c 22 63 6f 6e 65 20 22 3b 3a |-5:.#C,"cone ";:|
00001aa0 f2 61 28 30 29 3a d5 23 43 2c c3 28 4e 25 21 38 |.a(0):.#C,.(N%!8|
00001ab0 29 2b 22 20 22 2b c3 28 4e 25 21 31 32 29 2b 22 |)+" "+.(N%!12)+"|
00001ac0 20 22 2b c3 28 4e 25 21 31 36 29 2b 22 20 22 3b | "+.(N%!16)+" ";|
00001ad0 3a d5 23 43 2c c3 28 4e 25 21 32 30 29 2b 22 20 |:.#C,.(N%!20)+" |
00001ae0 22 2b c3 28 4e 25 21 32 34 29 2b 22 20 22 2b c3 |"+.(N%!24)+" "+.|
00001af0 28 4e 25 21 32 38 29 2b 22 20 22 3b 3a d5 23 43 |(N%!28)+" ";:.#C|
00001b00 2c c3 28 4e 25 21 33 32 29 2b 22 20 22 2b c3 28 |,.(N%!32)+" "+.(|
00001b10 4e 25 21 33 36 29 3a 4e 25 2b 3d 32 33 32 3a f2 |N%!36):N%+=232:.|
00001b20 62 0d 01 fe c1 c9 2d 36 3a d5 23 43 2c 22 62 6f |b.....-6:.#C,"bo|
00001b30 78 20 22 3b 3a f2 61 28 30 29 3a d5 23 43 2c 22 |x ";:.a(0):.#C,"|
00001b40 30 20 30 20 30 20 22 3b 3a d5 23 43 2c c3 28 4e |0 0 0 ";:.#C,.(N|
00001b50 25 21 32 30 29 2b 22 20 22 2b c3 28 4e 25 21 32 |%!20)+" "+.(N%!2|
00001b60 34 29 2b 22 20 22 2b c3 28 4e 25 21 32 38 29 2b |4)+" "+.(N%!28)+|
00001b70 22 20 22 3a d5 23 43 2c 22 20 20 20 20 72 6f 74 |" ":.#C," rot|
00001b80 61 74 65 20 31 20 30 20 30 20 22 2b c3 28 33 36 |ate 1 0 0 "+.(36|
00001b90 30 2d 4e 25 21 33 32 29 3a d5 23 43 2c 22 20 20 |0-N%!32):.#C," |
00001ba0 20 20 72 6f 74 61 74 65 20 30 20 31 20 30 20 22 | rotate 0 1 0 "|
00001bb0 2b c3 28 33 36 30 2d 4e 25 21 33 36 29 3a d5 23 |+.(360-N%!36):.#|
00001bc0 43 2c 22 20 20 20 20 72 6f 74 61 74 65 20 30 20 |C," rotate 0 |
00001bd0 30 20 31 20 22 2b c3 28 33 36 30 2d 4e 25 21 34 |0 1 "+.(360-N%!4|
00001be0 30 29 0d 02 04 45 d5 23 43 2c 22 20 20 20 20 74 |0)...E.#C," t|
00001bf0 72 61 6e 73 6c 61 74 65 20 22 2b c3 28 4e 25 21 |ranslate "+.(N%!|
00001c00 38 29 2b 22 20 22 2b c3 28 4e 25 21 31 32 29 2b |8)+" "+.(N%!12)+|
00001c10 22 20 22 2b c3 28 4e 25 21 31 36 29 3a 4e 25 2b |" "+.(N%!16):N%+|
00001c20 3d 31 34 30 3a f2 62 0d 02 07 d9 c9 2d 37 3a d5 |=140:.b.....-7:.|
00001c30 23 43 2c 22 70 6c 61 6e 65 20 22 3b 3a f2 61 28 |#C,"plane ";:.a(|
00001c40 30 29 3a d5 23 43 2c c3 28 4e 25 21 35 36 2d 28 |0):.#C,.(N%!56-(|
00001c50 4e 25 21 38 2b 28 4e 25 21 33 32 2d 4e 25 21 38 |N%!8+(N%!32-N%!8|
00001c60 29 2f 32 29 29 2b 22 20 22 3b 3a d5 23 43 2c c3 |)/2))+" ";:.#C,.|
00001c70 28 4e 25 21 36 30 2d 28 4e 25 21 31 32 2b 28 4e |(N%!60-(N%!12+(N|
00001c80 25 21 33 36 2d 4e 25 21 31 32 29 2f 32 29 29 2b |%!36-N%!12)/2))+|
00001c90 22 20 22 3b 3a d5 23 43 2c c3 28 4e 25 21 36 34 |" ";:.#C,.(N%!64|
00001ca0 2d 28 4e 25 21 31 36 2b 28 4e 25 21 34 30 2d 4e |-(N%!16+(N%!40-N|
00001cb0 25 21 31 36 29 2f 32 29 29 2b 22 20 22 3b 3a d5 |%!16)/2))+" ";:.|
00001cc0 23 43 2c c3 28 4e 25 21 38 2b 28 4e 25 21 33 32 |#C,.(N%!8+(N%!32|
00001cd0 2d 4e 25 21 38 29 2f 32 29 2b 22 20 22 3b 3a d5 |-N%!8)/2)+" ";:.|
00001ce0 23 43 2c c3 28 4e 25 21 31 32 2b 28 4e 25 21 33 |#C,.(N%!12+(N%!3|
00001cf0 36 2d 4e 25 21 31 32 29 2f 32 29 2b 22 20 22 3b |6-N%!12)/2)+" ";|
00001d00 0d 02 0d 2a d5 23 43 2c c3 28 4e 25 21 31 36 2b |...*.#C,.(N%!16+|
00001d10 28 4e 25 21 34 30 2d 4e 25 21 31 36 29 2f 32 29 |(N%!40-N%!16)/2)|
00001d20 3a 4e 25 2b 3d 36 38 3a f2 62 0d 02 10 7a c9 2d |:N%+=68:.b...z.-|
00001d30 38 3a d5 23 43 2c 22 70 6f 6c 79 20 22 3b 3a f2 |8:.#C,"poly ";:.|
00001d40 61 28 30 29 3a d5 23 43 2c 22 22 3a e3 46 3d 31 |a(0):.#C,"":.F=1|
00001d50 b8 34 3a d5 23 43 2c 22 20 20 20 20 20 20 20 22 |.4:.#C," "|
00001d60 2b c3 28 4e 25 21 28 46 2a 31 32 2d 34 29 29 2b |+.(N%!(F*12-4))+|
00001d70 22 20 22 2b c3 28 4e 25 21 28 46 2a 31 32 29 29 |" "+.(N%!(F*12))|
00001d80 2b 22 20 22 3b 3a d5 23 43 2c c3 28 4e 25 21 28 |+" ";:.#C,.(N%!(|
00001d90 46 2a 31 32 2b 34 29 29 3a ed 3a 4e 25 2b 3d 35 |F*12+4)):.:N%+=5|
00001da0 36 3a f2 62 0d 02 17 11 c9 2d 39 3a f2 45 3a 4e |6:.b.....-9:.E:N|
00001db0 25 2b 3d 36 38 0d 02 18 c6 c9 2d 31 30 3a d5 23 |%+=68.....-10:.#|
00001dc0 43 2c 22 73 75 70 65 72 71 20 22 3b 3a f2 61 28 |C,"superq ";:.a(|
00001dd0 30 29 3a d5 23 43 2c 22 30 20 30 20 30 20 22 3b |0):.#C,"0 0 0 ";|
00001de0 3a d5 23 43 2c c3 28 4e 25 21 32 30 29 2b 22 20 |:.#C,.(N%!20)+" |
00001df0 22 2b c3 28 4e 25 21 32 34 29 2b 22 20 22 2b c3 |"+.(N%!24)+" "+.|
00001e00 28 4e 25 21 32 38 29 2b 22 20 35 22 3a d5 23 43 |(N%!28)+" 5":.#C|
00001e10 2c 22 20 20 20 20 72 6f 74 61 74 65 20 31 20 30 |," rotate 1 0|
00001e20 20 30 20 22 2b c3 28 33 36 30 2d 4e 25 21 33 32 | 0 "+.(360-N%!32|
00001e30 29 3a d5 23 43 2c 22 20 20 20 20 72 6f 74 61 74 |):.#C," rotat|
00001e40 65 20 30 20 31 20 30 20 22 2b c3 28 33 36 30 2d |e 0 1 0 "+.(360-|
00001e50 4e 25 21 33 36 29 3a d5 23 43 2c 22 20 20 20 20 |N%!36):.#C," |
00001e60 72 6f 74 61 74 65 20 30 20 30 20 31 20 22 2b c3 |rotate 0 0 1 "+.|
00001e70 28 33 36 30 2d 4e 25 21 34 30 29 0d 02 1e 45 d5 |(360-N%!40)...E.|
00001e80 23 43 2c 22 20 20 20 20 74 72 61 6e 73 6c 61 74 |#C," translat|
00001e90 65 20 22 2b c3 28 4e 25 21 38 29 2b 22 20 22 2b |e "+.(N%!8)+" "+|
00001ea0 c3 28 4e 25 21 31 32 29 2b 22 20 22 2b c3 28 4e |.(N%!12)+" "+.(N|
00001eb0 25 21 31 36 29 3a 4e 25 2b 3d 31 34 30 3a f2 62 |%!16):N%+=140:.b|
00001ec0 0d 02 21 05 cb 0d 02 21 07 ce 3a e1 0d 02 23 d9 |..!....!..:...#.|
00001ed0 dd f2 42 3a ea 4e 2c 46 3a d5 23 43 2c 22 22 3a |..B:.N,F:.#C,"":|
00001ee0 d5 23 43 2c 22 2f 2a 20 53 75 72 66 61 63 65 20 |.#C,"/* Surface |
00001ef0 64 65 66 69 6e 69 74 69 6f 6e 73 20 67 6f 20 68 |definitions go h|
00001f00 65 72 65 22 3a d5 23 43 2c 22 20 2a 2f 22 3a d5 |ere":.#C," */":.|
00001f10 23 43 2c 22 22 3a d5 23 43 2c 22 20 73 75 72 66 |#C,"":.#C," surf|
00001f20 61 63 65 20 64 65 66 61 75 6c 74 20 30 2e 31 36 |ace default 0.16|
00001f30 20 30 2e 31 36 20 30 2e 31 36 20 30 2e 36 34 20 | 0.16 0.16 0.64 |
00001f40 30 2e 36 34 20 30 2e 36 34 22 3a d5 23 43 2c 22 |0.64 0.64":.#C,"|
00001f50 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001f60 20 20 20 30 2e 32 20 30 2e 32 20 30 2e 32 20 31 | 0.2 0.2 0.2 1|
00001f70 38 20 30 2e 32 20 30 20 31 22 3a d5 23 43 2c 22 |8 0.2 0 1":.#C,"|
00001f80 22 3a 4c 25 3d bb 28 a4 61 28 68 25 2c 31 39 29 |":L%=.(.a(h%,19)|
00001f90 29 3a e3 4e 3d 30 b8 7a 25 2d 31 3a 46 3d 77 25 |):.N=0.z%-1:F=w%|
00001fa0 2b 4e 2a 34 30 0d 02 30 db d5 23 43 2c 22 73 75 |+N*40..0..#C,"su|
00001fb0 72 66 61 63 65 20 22 2b 24 28 46 29 2b 22 20 22 |rface "+$(F)+" "|
00001fc0 3b 3a 50 25 3d 31 30 30 3a d5 23 43 2c c3 28 46 |;:P%=100:.#C,.(F|
00001fd0 3f 32 33 2f 31 30 30 30 30 2a 4c 25 29 2b 22 20 |?23/10000*L%)+" |
00001fe0 22 3b 3a d5 23 43 2c c3 28 46 3f 32 34 2f 31 30 |";:.#C,.(F?24/10|
00001ff0 30 30 30 2a 4c 25 29 2b 22 20 22 3b 3a d5 23 43 |000*L%)+" ";:.#C|
00002000 2c c3 28 46 3f 32 35 2f 31 30 30 30 30 2a 4c 25 |,.(F?25/10000*L%|
00002010 29 3a d5 23 43 2c 22 20 20 20 20 20 20 20 20 22 |):.#C," "|
00002020 2b c3 28 28 46 3f 32 33 2d 46 3f 32 33 2f 31 30 |+.((F?23-F?23/10|
00002030 30 2a 4c 25 29 2f 31 30 30 29 2b 22 20 22 3b 3a |0*L%)/100)+" ";:|
00002040 d5 23 43 2c c3 28 28 46 3f 32 34 2d 46 3f 32 34 |.#C,.((F?24-F?24|
00002050 2f 31 30 30 2a 4c 25 29 2f 31 30 30 29 2b 22 20 |/100*L%)/100)+" |
00002060 22 3b 3a d5 23 43 2c c3 28 28 46 3f 32 35 2d 46 |";:.#C,.((F?25-F|
00002070 3f 32 35 2f 31 30 30 2a 4c 25 29 2f 31 30 30 29 |?25/100*L%)/100)|
00002080 0d 02 38 ca d5 23 43 2c 22 20 20 20 20 20 20 20 |..8..#C," |
00002090 20 22 2b c3 28 50 25 2f 31 30 30 29 2b 22 20 22 | "+.(P%/100)+" "|
000020a0 2b c3 28 50 25 2f 31 30 30 29 2b 22 20 22 2b c3 |+.(P%/100)+" "+.|
000020b0 28 50 25 2f 31 30 30 29 3a d5 23 43 2c 22 20 20 |(P%/100):.#C," |
000020c0 20 20 20 20 20 20 22 2b c3 28 46 3f 32 39 2f 32 | "+.(F?29/2|
000020d0 29 2b 22 20 22 2b c3 28 46 3f 33 30 2f 31 30 30 |)+" "+.(F?30/100|
000020e0 29 2b 22 20 22 3b 3a d5 23 43 2c c3 28 46 3f 33 |)+" ";:.#C,.(F?3|
000020f0 31 2f 31 30 30 29 2b 22 20 22 2b c3 28 31 2f 28 |1/100)+" "+.(1/(|
00002100 46 21 33 32 2a 31 30 30 29 29 2b 22 20 22 3b 3a |F!32*100))+" ";:|
00002110 e7 46 21 33 36 3c 3e 30 8c d5 23 43 2c 22 20 20 |.F!36<>0..#C," |
00002120 20 20 20 20 20 20 22 2b c3 28 31 2f 28 46 21 33 | "+.(1/(F!3|
00002130 32 2a 31 30 30 29 29 2b 22 20 22 2b c3 28 46 3f |2*100))+" "+.(F?|
00002140 32 39 29 8b d5 23 43 2c 22 22 0d 02 3c 07 ed 3a |29)..#C,""..<..:|
00002150 e1 0d 02 3e 88 dd f2 44 3a ea 4e 3a d5 23 43 2c |...>...D:.N:.#C,|
00002160 22 22 3a d5 23 43 2c 22 2f 2a 20 4c 69 67 68 74 |"":.#C,"/* Light|
00002170 20 64 65 66 69 6e 69 74 69 6f 6e 73 20 67 6f 20 | definitions go |
00002180 68 65 72 65 22 3a d5 23 43 2c 22 20 2a 2f 22 3a |here":.#C," */":|
00002190 d5 23 43 2c 22 22 3a e7 76 61 25 3d 30 8c d5 23 |.#C,"":.va%=0..#|
000021a0 43 2c 22 6c 69 67 68 74 20 31 2e 36 20 70 6f 69 |C,"light 1.6 poi|
000021b0 6e 74 20 22 2b c3 28 62 25 28 31 29 29 2b 22 20 |nt "+.(b%(1))+" |
000021c0 22 2b c3 28 62 25 28 32 29 29 2b 22 20 22 2b c3 |"+.(b%(2))+" "+.|
000021d0 28 62 25 28 33 29 29 3a e1 0d 02 46 3a e3 4e 3d |(b%(3)):...F:.N=|
000021e0 31 b8 76 61 25 3a d5 23 43 2c 22 6c 69 67 68 74 |1.va%:.#C,"light|
000021f0 20 22 3b 3a e7 61 25 28 4e 2c 35 29 3d 30 80 61 | ";:.a%(N,5)=0.a|
00002200 25 28 4e 2c 36 29 3d 30 80 61 25 28 4e 2c 37 29 |%(N,6)=0.a%(N,7)|
00002210 3d 30 8c 0d 02 49 17 d5 23 43 2c c3 28 61 25 28 |=0...I..#C,.(a%(|
00002220 4e 2c 34 29 2f 31 30 30 29 3b 0d 02 4b 6d cc 3a |N,4)/100);..Km.:|
00002230 d5 23 43 2c c3 28 61 25 28 4e 2c 35 29 2f 31 30 |.#C,.(a%(N,5)/10|
00002240 30 2a 61 25 28 4e 2c 34 29 2f 31 30 30 29 2b 22 |0*a%(N,4)/100)+"|
00002250 20 22 3b 3a d5 23 43 2c c3 28 61 25 28 4e 2c 36 | ";:.#C,.(a%(N,6|
00002260 29 2f 31 30 30 2a 61 25 28 4e 2c 34 29 2f 31 30 |)/100*a%(N,4)/10|
00002270 30 29 2b 22 20 22 3b 3a d5 23 43 2c c3 28 61 25 |0)+" ";:.#C,.(a%|
00002280 28 4e 2c 37 29 2f 31 30 30 2a 61 25 28 4e 2c 34 |(N,7)/100*a%(N,4|
00002290 29 2f 31 30 30 29 3b 0d 02 4f 05 cd 0d 02 4f 2f |)/100);..O....O/|
000022a0 e7 61 25 28 4e 2c 30 29 3d 30 8c d5 23 43 2c 22 |.a%(N,0)=0..#C,"|
000022b0 20 70 6f 69 6e 74 20 22 3b 8b d5 23 43 2c 22 20 | point ";..#C," |
000022c0 65 78 74 65 6e 64 65 64 20 22 3b 0d 02 50 42 d5 |extended ";..PB.|
000022d0 23 43 2c c3 28 61 25 28 4e 2c 31 29 29 2b 22 20 |#C,.(a%(N,1))+" |
000022e0 22 2b c3 28 61 25 28 4e 2c 32 29 29 2b 22 20 22 |"+.(a%(N,2))+" "|
000022f0 3b 3a d5 23 43 2c c3 28 61 25 28 4e 2c 33 29 29 |;:.#C,.(a%(N,3))|
00002300 3b 3a e7 61 25 28 4e 2c 30 29 3d 31 8c 0d 02 53 |;:.a%(N,0)=1...S|
00002310 19 d5 23 43 2c 22 20 22 2b c3 28 61 25 28 4e 2c |..#C," "+.(a%(N,|
00002320 34 29 2a 31 36 29 0d 02 55 0c cc 3a d5 23 43 2c |4)*16)..U..:.#C,|
00002330 22 22 0d 02 57 05 cd 0d 02 57 07 ed 3a e1 0d 02 |""..W....W..:...|
00002340 59 35 dd f2 61 28 58 29 3a ea 41 3a 41 3d 21 28 |Y5..a(X):.A:A=!(|
00002350 65 25 2b 6b 25 2a 32 30 2d 32 30 2b 58 29 3a e7 |e%+k%*20-20+X):.|
00002360 41 3d 30 8c d5 23 43 2c 22 64 65 66 61 75 6c 74 |A=0..#C,"default|
00002370 20 22 3b 0d 02 5e 21 e7 41 3c 3e 30 8c d5 23 43 | ";..^!.A<>0..#C|
00002380 2c 24 28 77 25 2b 28 41 2d 31 29 2a 34 30 29 2b |,$(w%+(A-1)*40)+|
00002390 22 20 22 3b 0d 02 5f 05 e1 0d 02 60 21 dd f2 62 |" ";.._....`!..b|
000023a0 3a 44 25 3d 21 28 65 25 2b 6b 25 2a 32 30 2d 31 |:D%=!(e%+k%*20-1|
000023b0 32 29 3a e7 44 25 3c 3e 30 8c 0d 02 64 09 c8 8e |2):.D%<>0...d...|
000023c0 44 25 ca 0d 02 65 1f c9 31 3a d5 23 43 2c 22 20 |D%...e..1:.#C," |
000023d0 20 74 65 78 74 75 72 65 20 6d 61 72 62 6c 65 20 | texture marble |
000023e0 22 3b 0d 02 67 1d c9 32 3a d5 23 43 2c 22 20 20 |";..g..2:.#C," |
000023f0 74 65 78 74 75 72 65 20 77 6f 6f 64 20 22 3b 0d |texture wood ";.|
00002400 02 68 2f c9 33 3a d5 23 43 2c 22 20 20 74 65 78 |.h/.3:.#C," tex|
00002410 74 75 72 65 20 63 68 65 63 6b 65 72 20 22 3b 3a |ture checker ";:|
00002420 f2 61 28 34 29 3a d5 23 43 2c 22 20 22 3b 0d 02 |.a(4):.#C," ";..|
00002430 6a a8 c9 34 3a d5 23 43 2c 22 20 20 74 65 78 74 |j..4:.#C," text|
00002440 75 72 65 20 62 6c 6f 74 63 68 20 22 3b 3a d5 23 |ure blotch ";:.#|
00002450 43 2c c3 28 35 30 2d 21 28 65 25 2b 6b 25 2a 32 |C,.(50-!(e%+k%*2|
00002460 30 2d 38 29 29 2b 22 20 22 3b 3a f2 61 28 34 29 |0-8))+" ";:.a(4)|
00002470 3a d5 23 43 2c 22 22 3a d5 23 43 2c 22 20 20 73 |:.#C,"":.#C," s|
00002480 63 61 6c 65 20 22 2b c3 28 28 21 28 65 25 2b 6b |cale "+.((!(e%+k|
00002490 25 2a 32 30 2d 34 29 29 2f 32 29 3b 3a d5 23 43 |%*20-4))/2);:.#C|
000024a0 2c 22 20 22 2b c3 28 28 21 28 65 25 2b 6b 25 2a |," "+.((!(e%+k%*|
000024b0 32 30 2d 34 29 29 2f 32 29 3a d5 23 43 2c 22 20 |20-4))/2):.#C," |
000024c0 22 2b c3 28 28 21 28 65 25 2b 6b 25 2a 32 30 2d |"+.((!(e%+k%*20-|
000024d0 34 29 29 2f 32 29 0d 02 70 33 c9 35 3a d5 23 43 |4))/2)..p3.5:.#C|
000024e0 2c 22 20 20 74 65 78 74 75 72 65 20 62 75 6d 70 |," texture bump|
000024f0 20 20 22 3b 3a d5 23 43 2c c3 28 21 28 65 25 2b | ";:.#C,.(!(e%+|
00002500 6b 25 2a 32 30 2d 38 29 29 0d 02 72 3b c9 36 3a |k%*20-8))..r;.6:|
00002510 d5 23 43 2c 22 20 20 74 65 78 74 75 72 65 20 67 |.#C," texture g|
00002520 6c 6f 73 73 20 22 3b 3a d5 23 43 2c c3 28 31 2d |loss ";:.#C,.(1-|
00002530 28 21 28 65 25 2b 6b 25 2a 32 30 2d 38 29 2f 31 |(!(e%+k%*20-8)/1|
00002540 30 30 29 29 0d 02 74 05 cb 0d 02 74 52 73 25 3d |00))..t....tRs%=|
00002550 21 28 65 25 2b 6b 25 2a 32 30 2d 38 29 3a e7 73 |!(e%+k%*20-8):.s|
00002560 25 3c 3e 30 80 44 25 3c 34 8c d5 23 43 2c 28 22 |%<>0.D%<4..#C,("|
00002570 73 63 61 6c 65 20 22 2b c3 28 73 25 2a 31 30 29 |scale "+.(s%*10)|
00002580 2b 22 20 22 2b c3 28 73 25 2a 31 30 29 2b 22 20 |+" "+.(s%*10)+" |
00002590 22 2b c3 28 73 25 2a 31 30 29 29 0d 02 76 05 cd |"+.(s%*10))..v..|
000025a0 0d 02 77 0c d5 23 43 2c 22 22 3a e1 0d 02 79 21 |..w..#C,"":...y!|
000025b0 dd f2 6d 3a c8 99 22 57 69 6d 70 5f 4f 70 65 6e |..m:.."Wimp_Open|
000025c0 57 69 6e 64 6f 77 22 2c 2c 62 25 3a e1 0d 02 7e |Window",,b%:...~|
000025d0 51 dd f2 64 28 57 25 29 3a 21 62 25 3d 57 25 3a |Q..d(W%):!b%=W%:|
000025e0 c8 99 22 57 69 6d 70 5f 47 65 74 57 69 6e 64 6f |.."Wimp_GetWindo|
000025f0 77 53 74 61 74 65 22 2c 2c 62 25 3a 62 25 21 32 |wState",,b%:b%!2|
00002600 38 3d 2d 31 3a c8 99 22 57 69 6d 70 5f 4f 70 65 |8=-1:.."Wimp_Ope|
00002610 6e 57 69 6e 64 6f 77 22 2c 2c 62 25 3a e1 0d 02 |nWindow",,b%:...|
00002620 83 34 dd f2 66 28 57 25 29 3a ea 4e 3a 21 62 25 |.4..f(W%):.N:!b%|
00002630 3d 57 25 3a c8 99 22 57 69 6d 70 5f 43 6c 6f 73 |=W%:.."Wimp_Clos|
00002640 65 57 69 6e 64 6f 77 22 2c 2c 62 25 3a c8 8e 57 |eWindow",,b%:..W|
00002650 25 ca 0d 02 88 11 c9 60 25 3a 4e 3d a4 64 28 78 |%......`%:N=.d(x|
00002660 61 25 29 0d 02 8a 05 cb 0d 02 8a 05 e1 0d 02 8b |a%).............|
00002670 ec dd f2 73 3a c8 99 22 57 69 6d 70 5f 47 65 74 |...s:.."Wimp_Get|
00002680 57 69 6e 64 6f 77 53 74 61 74 65 22 2c 2c 62 25 |WindowState",,b%|
00002690 2b 31 32 3a 58 25 3d 62 25 21 31 36 2d 62 25 21 |+12:X%=b%!16-b%!|
000026a0 33 32 3a 59 25 3d 62 25 21 32 38 2d 62 25 21 33 |32:Y%=b%!28-b%!3|
000026b0 36 3a 62 25 21 31 36 3d 49 25 3a c8 99 22 57 69 |6:b%!16=I%:.."Wi|
000026c0 6d 70 5f 47 65 74 49 63 6f 6e 53 74 61 74 65 22 |mp_GetIconState"|
000026d0 2c 2c 62 25 2b 31 32 3a 62 25 21 31 36 3d 35 3a |,,b%+12:b%!16=5:|
000026e0 62 25 21 32 30 2b 3d 58 25 2d 32 3a 62 25 21 32 |b%!20+=X%-2:b%!2|
000026f0 34 2b 3d 59 25 2d 34 3a 62 25 21 32 38 2b 3d 58 |4+=Y%-4:b%!28+=X|
00002700 25 2b 32 3a 62 25 21 33 32 2b 3d 59 25 2b 34 3a |%+2:b%!32+=Y%+4:|
00002710 62 25 21 33 36 3d 30 3a 62 25 21 34 30 3d 30 3a |b%!36=0:b%!40=0:|
00002720 62 25 21 34 34 3d 26 37 46 46 46 46 46 46 46 3a |b%!44=&7FFFFFFF:|
00002730 62 25 21 34 38 3d 26 37 46 46 46 46 46 46 46 3a |b%!48=&7FFFFFFF:|
00002740 c8 99 22 57 69 6d 70 5f 44 72 61 67 42 6f 78 22 |.."Wimp_DragBox"|
00002750 2c 2c 62 25 2b 31 32 3a e1 0d 02 9b 1a dd f2 6f |,,b%+12:.......o|
00002760 3a e7 67 61 25 3d 33 8c 62 24 3d a4 61 28 67 25 |:.ga%=3.b$=.a(g%|
00002770 2c 32 29 0d 02 9e 2b c8 99 22 57 69 6d 70 5f 47 |,2)...+.."Wimp_G|
00002780 65 74 50 6f 69 6e 74 65 72 49 6e 66 6f 22 2c 2c |etPointerInfo",,|
00002790 62 25 3a e7 62 25 21 31 32 3d 2d 31 8c e1 0d 02 |b%:.b%!12=-1....|
000027a0 a0 9e 61 3d 30 3a 62 25 21 32 30 3d 32 35 36 3a |..a=0:b%!20=256:|
000027b0 62 25 21 33 32 3d 61 3a 62 25 21 33 36 3d 31 3a |b%!32=a:b%!36=1:|
000027c0 62 25 21 34 30 3d 62 25 21 31 32 3a 62 25 21 34 |b%!40=b%!12:b%!4|
000027d0 34 3d 62 25 21 31 36 3a 62 25 21 34 38 3d 21 62 |4=b%!16:b%!48=!b|
000027e0 25 3a 62 25 21 35 32 3d 62 25 21 34 3a 62 25 21 |%:b%!52=b%!4:b%!|
000027f0 35 36 3d 2d 31 3a 62 25 21 36 30 3d 31 36 38 39 |56=-1:b%!60=1689|
00002800 3a 24 28 62 25 2b 36 34 29 3d a4 6a 28 62 24 29 |:$(b%+64)=.j(b$)|
00002810 3a c8 99 22 57 69 6d 70 5f 53 65 6e 64 4d 65 73 |:.."Wimp_SendMes|
00002820 73 61 67 65 22 2c 31 37 2c 62 25 2b 32 30 2c 62 |sage",17,b%+20,b|
00002830 25 21 31 32 2c 62 25 21 31 36 3a e1 0d 02 aa 19 |%!12,b%!16:.....|
00002840 dd f2 71 28 4d 25 29 3a ea 41 24 2c 79 61 25 3a |..q(M%):.A$,ya%:|
00002850 c8 8e 4d 25 ca 0d 02 b0 0c c9 30 3a 45 25 3d 2d |..M%......0:E%=-|
00002860 31 0d 02 b2 11 c9 31 3a e7 62 25 21 31 32 3c 3e |1.....1:.b%!12<>|
00002870 61 8c 0d 02 b5 62 62 25 21 30 3d 36 30 3a 62 25 |a....bb%!0=60:b%|
00002880 21 31 32 3d 62 25 21 38 3a 62 25 21 31 36 3d 32 |!12=b%!8:b%!16=2|
00002890 3a 62 25 21 33 36 3d 2d 31 3a 24 28 62 25 2b 34 |:b%!36=-1:$(b%+4|
000028a0 34 29 3d 22 3c 57 69 6d 70 24 53 63 72 61 70 3e |4)="<Wimp$Scrap>|
000028b0 22 2b bd 30 3a c8 99 22 57 69 6d 70 5f 53 65 6e |"+.0:.."Wimp_Sen|
000028c0 64 4d 65 73 73 61 67 65 22 2c 31 37 2c 62 25 2c |dMessage",17,b%,|
000028d0 62 25 21 34 0d 02 ba 05 cd 0d 02 ba 99 c9 32 3a |b%!4..........2:|
000028e0 41 24 3d a4 66 28 62 25 2b 34 34 29 3a 62 25 21 |A$=.f(b%+44):b%!|
000028f0 31 32 3d 62 25 21 38 3a 62 25 21 31 36 3d 33 3a |12=b%!8:b%!16=3:|
00002900 c8 99 22 57 69 6d 70 5f 53 65 6e 64 4d 65 73 73 |.."Wimp_SendMess|
00002910 61 67 65 22 2c 31 37 2c 62 25 2c 62 25 21 34 3a |age",17,b%,b%!4:|
00002920 61 3d 2d 31 3a f2 69 28 67 25 2c 32 2c 41 24 29 |a=-1:.i(g%,2,A$)|
00002930 3a 21 62 25 3d 67 25 3a c8 99 22 57 69 6d 70 5f |:!b%=g%:.."Wimp_|
00002940 43 6c 6f 73 65 57 69 6e 64 6f 77 22 2c 2c 62 25 |CloseWindow",,b%|
00002950 3a 63 24 3d a4 61 28 67 25 2c 32 29 3a e7 a7 63 |:c$=.a(g%,2):..c|
00002960 24 2c 22 24 22 29 3d 30 8c 85 31 37 2c 61 24 28 |$,"$")=0..17,a$(|
00002970 31 29 0d 02 c1 15 e7 a4 67 28 63 24 29 8c f2 64 |1)......g(c$)..d|
00002980 28 71 25 29 8b f2 65 0d 02 c2 78 c9 33 3a 41 24 |(q%)..e...x.3:A$|
00002990 3d a4 66 28 62 25 2b 34 34 29 3a 79 61 25 3d 62 |=.f(b%+44):ya%=b|
000029a0 25 21 34 30 3a 62 25 21 31 32 3d 62 25 21 38 3a |%!40:b%!12=b%!8:|
000029b0 62 25 21 31 36 3d 34 3a 62 25 21 33 36 3d 2d 31 |b%!16=4:b%!36=-1|
000029c0 3a 24 28 62 25 2b 34 34 29 3d 41 24 2b bd 30 3a |:$(b%+44)=A$+.0:|
000029d0 c8 99 22 57 69 6d 70 5f 53 65 6e 64 4d 65 73 73 |.."Wimp_SendMess|
000029e0 61 67 65 22 2c 31 37 2c 62 25 2c 62 25 21 34 3a |age",17,b%,b%!4:|
000029f0 e7 79 61 25 3d 32 35 32 8c f2 7a 28 41 24 29 0d |.ya%=252..z(A$).|
00002a00 02 c9 26 e7 41 24 3d 22 3c 57 69 6d 70 24 53 63 |..&.A$="<Wimp$Sc|
00002a10 72 61 70 3e 22 8c ff 28 22 44 65 6c 65 74 65 20 |rap>"..("Delete |
00002a20 22 2b 41 24 29 0d 02 ca 05 cb 0d 02 cb 05 e1 0d |"+A$)...........|
00002a30 02 cc 43 dd f2 46 3a 62 25 21 31 32 3d 62 25 21 |..C..F:b%!12=b%!|
00002a40 38 3a 62 25 21 31 36 3d 34 3a 21 62 25 3d 36 34 |8:b%!16=4:!b%=64|
00002a50 3a c8 99 22 57 69 6d 70 5f 53 65 6e 64 4d 65 73 |:.."Wimp_SendMes|
00002a60 73 61 67 65 22 2c 31 37 2c 62 25 2c 62 25 21 34 |sage",17,b%,b%!4|
00002a70 3a e1 0d 02 d1 07 dd f2 63 0d 02 d6 0a 2a 43 4c |:.......c....*CL|
00002a80 4f 53 45 0d 02 d6 18 c8 99 22 57 69 6d 70 5f 43 |OSE......"Wimp_C|
00002a90 6c 6f 73 65 44 6f 77 6e 22 3a e1 0d 02 d8 46 dd |loseDown":....F.|
00002aa0 a4 61 28 7a 61 25 2c 41 61 25 29 3a 62 25 21 30 |.a(za%,Aa%):b%!0|
00002ab0 3d 7a 61 25 3a 62 25 21 34 3d 41 61 25 3a c8 99 |=za%:b%!4=Aa%:..|
00002ac0 22 57 69 6d 70 5f 47 65 74 49 63 6f 6e 53 74 61 |"Wimp_GetIconSta|
00002ad0 74 65 22 2c 2c 62 25 3a 3d 24 28 62 25 21 32 38 |te",,b%:=$(b%!28|
00002ae0 29 0d 02 df 53 dd a4 62 28 69 25 2c 57 25 29 3a |)...S..b(i%,W%):|
00002af0 c8 99 22 57 69 6d 70 5f 57 68 69 63 68 49 63 6f |.."Wimp_WhichIco|
00002b00 6e 22 2c 57 25 2c 62 25 2c 31 3c 3c 32 31 2c 31 |n",W%,b%,1<<21,1|
00002b10 3c 3c 32 31 3a 64 3d a3 3a 5a 25 3d 62 25 3a c8 |<<21:d=.:Z%=b%:.|
00002b20 95 21 5a 25 3c 3e 2d 31 3a e7 21 5a 25 3d 69 25 |.!Z%<>-1:.!Z%=i%|
00002b30 8c 64 3d b9 0d 02 e1 0e 5a 25 2b 3d 34 3a ce 3a |.d=.....Z%+=4:.:|
00002b40 3d 64 0d 02 e5 48 dd f2 47 28 21 62 25 2c 62 25 |=d...H..G(!b%,b%|
00002b50 21 34 2c 4e 25 29 3a 62 25 21 38 3d 4e 25 3c 3c |!4,N%):b%!8=N%<<|
00002b60 32 31 3a 62 25 21 31 32 3d 31 3c 3c 32 31 3a c8 |21:b%!12=1<<21:.|
00002b70 99 22 57 69 6d 70 5f 53 65 74 49 63 6f 6e 53 74 |."Wimp_SetIconSt|
00002b80 61 74 65 22 2c 2c 62 25 3a e1 0d 02 e8 72 dd f2 |ate",,b%:....r..|
00002b90 69 28 57 25 2c 49 25 2c 53 24 29 3a 62 25 21 30 |i(W%,I%,S$):b%!0|
00002ba0 3d 57 25 3a 62 25 21 34 3d 49 25 3a c8 99 22 57 |=W%:b%!4=I%:.."W|
00002bb0 69 6d 70 5f 47 65 74 49 63 6f 6e 53 74 61 74 65 |imp_GetIconState|
00002bc0 22 2c 2c 62 25 3a 24 28 62 25 21 32 38 29 3d 53 |",,b%:$(b%!28)=S|
00002bd0 24 3a 62 25 21 38 3d 30 3a 62 25 21 31 32 3d 30 |$:b%!8=0:b%!12=0|
00002be0 3a c8 99 22 57 69 6d 70 5f 53 65 74 49 63 6f 6e |:.."Wimp_SetIcon|
00002bf0 53 74 61 74 65 22 2c 2c 62 25 3a e1 0d ff |State",,b%:...|
00002bfe 
.