Home » Archimedes archive » Archimedes World » AW-1991-09.adf » AWSept91 » !AWSep91/Goodies/ThreeView/!ThreeView/!RunImage
!AWSep91/Goodies/ThreeView/!ThreeView/!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-1991-09.adf » AWSept91 |
| Filename: | !AWSep91/Goodies/ThreeView/!ThreeView/!RunImage |
| Read OK: | ✔ |
| File size: | 5DE9 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM ><ThreeView$Dir>.!RunImage
20ON ERROR PROCmakerr
30SYS "OS_GetEnv" TO A$:SYS "OS_GetEnv" TO A$:IF RIGHT$(A$,1)<>" " THEN LF$=MID$(A$,INSTR(A$,""" ")+2) ELSE LF$=""
40PROCsetup
50IF LF$<>"" THEN PROCautoload
60PROCaction
70PROCdie
80END
90DEFPROCsetup:OP%=0:DMDE%=-1:ANIM%=FALSE:WIFR%=FALSE
100DIM icx%(40),icy%(40),icl%(40),ich%(40),vts(15),sfs(15),vus(200),vert%(3,200,15),sur(100,5,15),de(100,1),z(200),vec1(3),vec2(3),xs(200),ys(200),visible(100),anim(15),TX%(4),TY%(4),TZ%(4)
110vts()=0:opt=1:sfs()=0:frms=1:frm=1:rho%=500:the%=90:phi%=90:d=1000:mrk=TRUE
120DIM POI% 256,TAS% 2000,BLK% 1000,MENU% 1000,SEL% 256,ICBLK% 256,SPRITE 50000:!SPRITE=50000:SPRITE!4=0:SPRITE!8=16:SPRITE!12=16
130$TAS%="TASK":SYS"Wimp_Initialise",200,!TAS%,"ThreeView" TO HAND%
140PROCloadsprites
150!BLK%=-1:BLK%!4=0:BLK%!8=0:BLK%!12=64:BLK%!16=64:BLK%!20=&2102
160DIM BLK%!24 10:$(BLK%!24)="!ThreeView":BLK%!28=SPRITES%:BLK%!32=10
170F%=OPENIN("<ThreeView$Dir>.RendBase"):REEX%=EXT#F%:CLOSE#F%
180DIM REND% REEX%
190OSCLI("LOAD <ThreeView$Dir>.RendBase "+STR$~REND%)
200SYS "Wimp_CreateIcon",,BLK% TO ICHAND%
210SYS "Wimp_OpenTemplate",,"<ThreeView$Dir>.Templates"
220DIM STORE% (22*1024),BUF%(10),INDIR%(10),HAND%(10):FORL%=0 TO 10:BUF%(L%)=STORE%+(L%*1024):INDIR%(L%)=STORE%+((L%+11)*1024):NEXT
230DATA Animate,Delete,Swap,Confirm,ad/ed/vert,Control,View,Info,Save,ad/ed/surf,save2
240RESTORE 230:FORK%=0 TO 10:READ A$:SYS "Wimp_LoadTemplate",,BUF%(K%),INDIR%(K%),INDIR%(K%)+1024,-1,A$,0:NEXT
250RESTORE 230:FORK%=0 TO 10:READ A$:SYS "Wimp_CreateWindow",,BUF%(K%) TO HAND%(K%):NEXT
260SYS "Wimp_CloseTemplate"
270ENDPROC
280
290DEFPROCloadsprites
300DIM SPRITES% 2000
310!SPRITES%=2000:SPRITES%!4=0:SPRITES%!8=16:SPRITES%!12=16:SYS &2E,266,SPRITES%,"<ThreeView$Dir>.!Sprites"
320ENDPROC
330DEFPROCaction
340REPEAT
350PROCpoll
360UNTIL (REAS%=17 OR REAS%=18) AND BLK%!16=0
370ENDPROC
380DEFPROCdie:OP%=0
390SYS "Wimp_CloseDown",HAND%,!TAS%
400END
410ENDPROC
420DEFPROCpoll
430!BLK%=%10011111110000110000
440SYS "Wimp_Poll",0,BLK% TO REAS%
450IF REAS%>-1 THEN PROCact
460ENDPROC
470DEFPROCact
480CASE REAS% OF
490WHEN 0:IF ANIM% THEN PROCanimate
500WHEN 1:PROCredraw
510WHEN 2:PROCopmain
520WHEN 3:PROCclmain
530WHEN 6:PROCmouse
540WHEN 8:PROCkeypress
550WHEN 9:PROCmenu
560WHEN 7:PROCdragfin
570WHEN 17,18:PROCinmessage(BLK%!16)
580ENDCASE
590ENDPROC
600DEFPROCforcedraw:!BLK%=HAND%(6):BLK%!4=0:BLK%!8=-622:BLK%!12=630:BLK%!16=0:SYS "Wimp_UpdateWindow",,BLK% TO FIN%:PROCgetor:PROCdrawsprite:DME%=MODE
610WHILE FIN%:PROCplotobject:SYS "Wimp_GetRectangle",,BLK% TO FIN%:ENDWHILE:ENDPROC
620DEFPROCredraw
630SYS "Wimp_RedrawWindow",,BLK% TO FIN%
640PROCgetor:IF DMDE%<>MODE THEN PROCdrawsprite:DMDE%=MODE
650WHILE FIN%:PROCplotobject:SYS "Wimp_GetRectangle",,BLK% TO FIN%
660ENDWHILE
670ENDPROC
680DEFPROCplotobject:SYS "OS_SpriteOp",290,SPRITE,"VIEW",WOX%,WOY%-626:ENDPROC
690DEFPROCopmain:OP%=1
700SYS "Wimp_OpenWindow",,BLK%
710ENDPROC
720DEFPROCclmain:OP%=0
730SYS "Wimp_CloseWindow",,BLK%:IF !BLK%=HAND%(6) THEN !BLK%=HAND%(5):SYS "Wimp_CloseWindow",,BLK%
740ENDPROC
750DEFPROCmakerr
760SYS "Wimp_DragBox",,0
770!BLK%=ERR
780ER=TRUE
790CASE ERR OF
800WHEN 222:$(BLK%+4)="File cannot be found (at line "+STR$(ERL)+")"+CHR$(0):ER=FALSE
810OTHERWISE
820$(BLK%+4)=REPORT$+" at line "+STR$(ERL)+CHR$(0)
830ENDCASE
840SYS "Wimp_ReportError",BLK%,1,"ThreeView"
850IF ER THEN PROCdie ELSE PROCaction:END
860ENDPROC
870DEFPROCmouse
880MOUX%=!BLK%:MOUY%=BLK%!4:MOUB%=BLK%!8:MOUH%=BLK%!12
890IF MOUB%=1 THEN MOUB%=4
900CASE MOUB% OF
910WHEN 4:CASE MOUH% OF
920WHEN -2:PROCopenmain
930WHEN HAND%(5):PROChiticon
940WHEN HAND%(8):PROCsavewind
950WHEN HAND%(10):PROCraywind
960WHEN HAND%(3):PROCconfirm
970WHEN HAND%(4):PROCadedvert
980WHEN HAND%(9):PROCadedsurf
990WHEN HAND%(1):PROCnumber
1000WHEN HAND%(2):PROCoktwoinp
1010WHEN HAND%(0):PROCanimrs
1020ENDCASE
1030WHEN 2:IF MOUH%=-2 THEN PROCiconmenu ELSE IF MOUH%=HAND%(6) THEN PROCwindmenu
1040WHEN 16,64:dragt%=MOUH%:IF MOUH%=HAND%(8) OR MOUH%=HAND%(10) THEN PROCstartdrag
1050ENDCASE
1060ENDPROC
1070DEFPROCmenoff:SYS "Wimp_CreateMenu",-1:ENDPROC
1080DEFPROCiconmenu
1090$MENU%="ThreeView":MENU%?12=7:MENU%?13=2:MENU%?14=7:MENU%?15=0:MENU%!16=100:MENU%!20=44:MENU%!24=0
1100MENU%!28=0:MENU%!32=HAND%(7):MENU%!36=1 OR (7<<24):$(MENU%+40)="Info"
1110MENU%!52=2:MENU%!56=HAND%(8):MENU%!60=1 OR (7<<24):$(MENU%+64)="Save"
1120MENU%!76=128:MENU%!80=-1:MENU%!84=1 OR (7<<24):$(MENU%+88)="Quit"
1130SYS "Wimp_CreateMenu",,MENU%,MOUX%-64,252
1140ENDPROC
1150DEFPROCmenu
1160SYS "Wimp_DecodeMenu",,MENU%,BLK%,SEL%
1170IF $SEL%="Quit" THEN PROCdie
1180IF $SEL%="Add frame" AND frms=15 THEN PROCmessage(2,"Cannot have more than 15 frames")
1190IF $SEL%="Add frame" THEN frms+=1:sfs(frms)=0:vts(frms)=0:PROCupcont:PROCmenoff:ENDPROC
1200IF $SEL%="Wire frame" THEN WIFR%=NOT WIFR%:PROCforcedraw
1210ENDPROC
1220DEFPROCsetsavename(W$):!ICBLK%=HAND%(8):ICBLK%!4=1:SYS "Wimp_GetIconState",,ICBLK%:ICBLK%!8=0:ICBLK%!12=0:$(ICBLK%!28)=W$:SYS "Wimp_SetIconState",,ICBLK%:ENDPROC
1230DEFPROCsetrayname(W$):!ICBLK%=HAND%(10):ICBLK%!4=1:SYS "Wimp_GetIconState",,ICBLK%:ICBLK%!8=0:ICBLK%!12=0:$(ICBLK%!28)=W$:SYS "Wimp_SetIconState",,ICBLK%:ENDPROC
1240DEFPROCseticon(WH%,IC%,SET$):!ICBLK%=HAND%(WH%):ICBLK%!4=IC%:SYS "Wimp_GetIconState",,ICBLK%:ICBLK%!8=0:ICBLK%!12=0:$(ICBLK%!28)=SET$:SYS "Wimp_SetIconState",,ICBLK%:ENDPROC
1250DEFFNhigh(WH%,IC%):!ICBLK%=HAND%(WH%):ICBLK%!4=IC%:SYS "Wimp_GetIconState",,ICBLK%:=((?(ICBLK%+26)) AND %100000)=32
1260DEFPROCsavewind:ICN%=BLK%!16
1270CASE ICN% OF
1280WHEN 2:PROCoksave
1290ENDCASE
1300ENDPROC
1310DEFPROCoksave:F$=FNgetsaveicon(1)
1320IF INSTR(F$,".")=0 THEN PROCmessage(0,"To save, drag the icon to a directory viewer.")
1330PROCsave(F$)
1340SYS "Wimp_CreateMenu",-1
1350ENDPROC
1360DEFPROCraywind:ICN%=BLK%!16
1370CASE ICN% OF
1380WHEN 2:PROCokray
1390ENDCASE
1400ENDPROC
1410DEFPROCokray:F$=FNgetrayicon(1)
1420IF INSTR(F$,".")=0 THEN PROCmessage(0,"To save, drag the icon to a directory viewer.")
1430PROCraysave(F$)
1440SYS "Wimp_CreateMenu",-1
1450ENDPROC
1460DEFPROCsave(fn$)
1470PROCfillanim
1480F%=OPENOUT(fn$):PRINT#F%,frms:FORL%=1 TO 15:PRINT#F%,anim(L%):NEXT:FORI%=1 TO frms:IF vts(I%)=0 THEN 1500
1490PRINT#F%,vts(I%),sfs(I%):FORL%=1 TO vts(I%):PRINT#F%,vert%(1,L%,I%),vert%(2,L%,I%),vert%(3,L%,I%):NEXT:IF sfs(I%)=0 THEN 1500 ELSE FORL%=1 TO sfs(I%):FORK%=0 TO 5:BPUT#F%,sur(L%,K%,I%):NEXT:NEXT
1500NEXT:CLOSE#F%
1510OSCLI("*SETTYPE "+fn$+" 554"):ENDPROC
1520DEFPROCraysave(fn$):PROCseticon(10,1,fn$):XR%=VAL(FNgeticon(5,6)):YR%=VAL(FNgeticon(5,10)):IF sfs(frm)=0 THEN ENDPROC
1530XT%=VAL(FNgeticon(10,6)):YT%=VAL(FNgeticon(10,7)):ZT%=VAL(FNgeticon(10,8)):MA=VAL(FNgeticon(10,10))
1540IF NOT (FNhigh(10,14) OR FNhigh(10,15) OR FNhigh(10,16)) THEN PROCmessage(0,"You must specify a format for the raytrace source file.")
1550SYS "Hourglass_On":FC%=OPENOUT(fn$)
1560IF FNhigh(10,14) THEN PROCqrtsave:OSCLI("SETTYPE "+fn$+" FFF")
1570IF FNhigh(10,15) THEN PROCrensave:OSCLI("SETTYPE "+fn$+" D59")
1580IF FNhigh(10,16) THEN PROCpolsave
1590SYS "Hourglass_Off"
1600ENDPROC
1610
1620DEFPROCqrtsave
1630A$=FNgeticon(8,1):BPUT#FC%,"{ ** "+A$+" ** }"
1640FORL%=1 TO sfs(frm)
1650FORK%=1 TO 4:TX%(K%)=vert%(1,sur(L%,K%,frm),frm):TY%(K%)=vert%(2,sur(L%,K%,frm),frm):TZ%(K%)=vert%(3,sur(L%,K%,frm),frm):NEXT
1660FORK%=1 TO 4
1670A=FNangle(TX%(K%),TY%(K%)):A+=XR%:R%=(SQR((TX%(K%)*TX%(K%))+(TY%(K%)*TY%(K%)))*MA):TX%(K%)=COS(RAD(A))*R%:TY%(K%)=SIN(RAD(A))*R%
1680A=FNangle(TY%(K%),TZ%(K%)):A+=YR%:R%=(SQR((TY%(K%)*TY%(K%))+(TZ%(K%)*TZ%(K%)))*MA):TY%(K%)=COS(RAD(A))*R%:TZ%(K%)=SIN(RAD(A))*R%
1690TX%(K%)+=XT%:TX%(K%)=-TX%(K%):TY%(K%)+=YT%:TZ%(K%)+=ZT%:SWAP TY%(K%),TZ%(K%)
1700NEXT:C%=sur(L%,0,frm):T%=sur(L%,5,frm):R=(((C% AND %11))*4)+T%:G=(((C% AND %1100)/4)*4)+T%:B=(((C% AND %110000)/16)*4)+T%
1710BPUT#FC%,CHR$10+"TRIANGLE ( loc = ("+STR$TX%(1)+", "+STR$TY%(1)+", "+STR$TZ%(1)+"),";
1720V1%=TX%(2)-TX%(1):V2%=TY%(2)-TY%(1):V3%=TZ%(2)-TZ%(1):IF V1%=0 AND V2%=0 AND V3%=0 THEN V2%=1
1730BPUT#FC%," vect1 = ("+STR$(V1%)+", "+STR$(V2%)+", "+STR$(V3%)+"),";
1740V1%=TX%(3)-TX%(1):V2%=TY%(3)-TY%(1):V3%=TZ%(3)-TZ%(1):IF V1%=0 AND V2%=0 AND V3%=0 THEN V2%=1
1750BPUT#FC%," vect2 = ("+STR$(V1%)+", "+STR$(V2%)+", "+STR$(V3%)+"),"
1760BPUT#FC%," diff = ("+STR$(R/15)+", "+STR$(G/15)+", "+STR$(B/15)+")"
1770BPUT#FC%," );"+CHR$10
1780BPUT#FC%,"TRIANGLE ( loc = ("+STR$TX%(3)+", "+STR$TY%(3)+", "+STR$TZ%(3)+"),";
1790V1%=TX%(4)-TX%(3):V2%=TY%(4)-TY%(3):V3%=TZ%(4)-TZ%(3):IF V1%=0 AND V2%=0 AND V3%=0 THEN V2%=1
1800BPUT#FC%," vect1 = ("+STR$(V1%)+", "+STR$(V2%)+", "+STR$(V3%)+"),";
1810V1%=TX%(1)-TX%(3):V2%=TY%(1)-TY%(3):V3%=TZ%(1)-TZ%(3):IF V1%=0 AND V2%=0 AND V3%=0 THEN V2%=1
1820BPUT#FC%," vect2 = ("+STR$(V1%)+", "+STR$(V2%)+", "+STR$(V3%)+"),"
1830BPUT#FC%," diff = ("+STR$(R/15)+", "+STR$(G/15)+", "+STR$(B/15)+")"
1840BPUT#FC%," );"
1850NEXT
1860CLOSE#FC%
1870ENDPROC
1880
1890DEFPROCpolsave
1900A$=FNgeticon(8,1)
1910PROCpling(FC%,vts(frm))
1920PROCpling(FC%,sfs(frm))
1930FORL%=1 TO vts(frm)
1940FORK%=1 TO 3
1950PROCpling(FC%,vert%(K%,L%,frm))
1960NEXT
1970NEXT
1980FORL%=1 TO sfs(frm)
1990FORK%=1 TO 4
2000PROCpling(FC%,sur(L%,K%,frm))
2010NEXT
2020C%=sur(L%,0,frm):T%=sur(L%,5,frm):R=(((C% AND %11))*4)+T%:G=(((C% AND %1100)/4)*4)+T%:B=(((C% AND %110000)/16)*4)+T%
2030R=R*16:G=G*16:B=B*16
2040PROCpling(FC%,R):PROCpling(FC%,G):PROCpling(FC%,B)
2050NEXT
2060CLOSE#FC%
2070ENDPROC
2080
2090DEFPROCpling(CH%,WO%)
2100BPUT#CH%,(WO% AND &FF)
2110BPUT#CH%,((WO% AND &FF00)>>8)
2120BPUT#CH%,((WO% AND &FF0000)>>16)
2130BPUT#CH%,((WO% AND &FF000000)>>24)
2140ENDPROC
2150
2160DEFPROCrensave
2170A$=FNgeticon(8,1)
2180FORL%=0 TO REEX%-1
2190BPUT#FC%,REND%?L%
2200NEXT
2210BPUT#FC%,"/ "+A$;
2220BPUT#FC%,13
2230BPUT#FC%,13
2240BPUT#FC%,"lightpoint, 1, 10,100,100";
2250BPUT#FC%,13
2260BPUT#FC%,"view, 40,50,200, at, 0,40,0";
2270BPUT#FC%,13
2280BPUT#FC%,13
2290FORL%=1 TO sfs(frm)
2300FORK%=1 TO 4:TX%(K%)=vert%(1,sur(L%,K%,frm),frm):TY%(K%)=vert%(2,sur(L%,K%,frm),frm):TZ%(K%)=vert%(3,sur(L%,K%,frm),frm):NEXT
2310FORK%=1 TO 4
2320TX%(K%)=TX%(K%)*MA
2330TY%(K%)=TY%(K%)*MA
2340TZ%(K%)=TZ%(K%)*MA
2350TX%(K%)+=XT%:TY%(K%)+=YT%:TZ%(K%)+=ZT%:SWAP TY%(K%),TZ%(K%)
2360NEXT:C%=sur(L%,0,frm):RESTORE 2490:FOR GC%=0 TO C%:READ COL$:NEXT
2370BPUT#FC%,"poly3, :"+COL$+", "+STR$TX%(1)+","+STR$TY%(1)+","+STR$TZ%(1)+", ";
2380BPUT#FC%,STR$TX%(2)+","+STR$TY%(2)+","+STR$TZ%(2)+", ";
2390BPUT#FC%,STR$TX%(3)+","+STR$TY%(3)+","+STR$TZ%(3);
2400BPUT#FC%,13
2410BPUT#FC%,"poly3, :"+COL$+", "+STR$TX%(3)+","+STR$TY%(3)+","+STR$TZ%(3)+", ";
2420BPUT#FC%,STR$TX%(4)+","+STR$TY%(4)+","+STR$TZ%(4)+", ";
2430BPUT#FC%,STR$TX%(1)+","+STR$TY%(1)+","+STR$TZ%(1);
2440BPUT#FC%,13
2450NEXT
2460CLOSE#FC%
2470ENDPROC
2480
2490DATA BLACK,RED,RED,RED,GREEN,LIME,GOLD,GOLD,GREEN,GREEN,LIME,GOLD,GREEN,GREEN,LIME,YELLOW,BLUE,PURPLE,PURPLE,MAGENTA
2500DATA CYAN,CYAN,PINK,PINK,GREEN,LIME,YELLOW,GOLD,GREEN,GREEN,LIME,YELLOW,BLUE,BLUE,PURPLE,MAGENTA,BLUE,BLUE,PURPLE,PINK
2510DATA CYAN,SKYBLUE,SKYBLUE,PINK,GREEN,GREEN,LIME,YELLOW,BLUE,BLUE,PURPLE,PINK,BLUE,BLUE,PURPLE,PINK,SKYBLUE,SKYBLUE,SKYBLUE,PINK
2520DATA CYAN,CYAN,CYAN,WHITE
2530
2540DEFPROCdragfin:IF dragt%=HAND%(8) THEN GOTO 2630
2550F$=FNgetrayicon(1):T$="":IF INSTR(F$,".")=0 THEN T$=F$:GOTO 2580
2560IF RIGHT$(F$,1)="." THEN T$="":GOTO 2580
2570K%=LEN(F$):REPEAT:T$=MID$(F$,K%,1)+T$:K%-=1:UNTIL MID$(F$,K%,1)="."
2580SYS "Wimp_GetPointerInfo",,POI%
2590POI%!20=64:POI%!32=0:POI%!36=1:POI%!40=POI%!12:POI%!44=POI%!16:POI%!48=!POI%:POI%!52=POI%!4:POI%!56=2048:POI%!60=&555:$(POI%+64)=T$
2600SYS "Wimp_SendMessage",17,POI%+20,POI%!12,POI%!16
2610ENDPROC
2620
2630F$=FNgetsaveicon(1):T$="":IF INSTR(F$,".")=0 THEN T$=F$:GOTO 2660
2640IF RIGHT$(F$,1)="." THEN T$="":GOTO 2660
2650K%=LEN(F$):REPEAT:T$=MID$(F$,K%,1)+T$:K%-=1:UNTIL MID$(F$,K%,1)="."
2660SYS "Wimp_GetPointerInfo",,POI%
2670POI%!20=64:POI%!32=0:POI%!36=1:POI%!40=POI%!12:POI%!44=POI%!16:POI%!48=!POI%:POI%!52=POI%!4:POI%!56=2048:POI%!60=&555:$(POI%+64)=T$
2680SYS "Wimp_SendMessage",17,POI%+20,POI%!12,POI%!16
2690ENDPROC
2700
2710DEFPROCpoint:SYS "Wimp_GetPointerInfo",,POI%:MOX%=!POI%:MOY%=POI%!4:MOB%=POI%!8:ENDPROC
2720
2730DEFPROCstartdrag
2740SYS "Wimp_GetWindowState",,BLK%+12
2750X%=BLK%!16:Y%=BLK%!28:BLK%!16=0:SYS "Wimp_GetIconState",,BLK%+12
2760BLK%!16=5:BLK%!20+=X%-2:BLK%!24+=Y%-4
2770BLK%!28+=X%+2:BLK%!32+=Y%
2780BLK%!36=0:BLK%!40=0:BLK%!44=&7FFFFFFF:BLK%!48=&7FFFFFFF:SYS "Wimp_DragBox",,BLK%+12:ENDPROC
2790
2800DEFPROCinmessage(M%)
2810CASE M% OF
2820WHEN 0:PROCdie
2830WHEN 2:PROCdragsave
2840WHEN 3,5:IF BLK%!12=0 AND BLK%!40=&554 PROCload
2850WHEN &400C0:PROCmainsub
2860ENDCASE:ENDPROC
2870
2880DEFPROCmainsub:ICL%=BLK%!32:IF ICL%<>0 AND ICL%<>2 THEN SYS"Wimp_CreateSubMenu",,BLK%!20,BLK%!24,BLK%!28:ENDPROC
2890WHA%=BLK%!20:WXC%=BLK%!24:WYC%=BLK%!28:ICL%=BLK%!32:CASE ICL% OF
2900WHEN 0:PROCseticon(4,1,STR$(vts(frm)+1)):SYS"Wimp_CreateSubMenu",,WHA%,WXC%,WYC%
2910WHEN 2:PROCseticon(9,1,STR$(sfs(frm)+1)):SYS"Wimp_CreateSubMenu",,WHA%,WXC%,WYC%
2920ENDCASE
2930ENDPROC
2940
2950DEFPROCkeypress:IF BLK%!24<>13 THEN SYS "Wimp_ProcessKey",BLK%!24:ENDPROC
2960CASE !BLK% OF
2970WHEN HAND%(1):PROCnumber
2980WHEN HAND%(4):PROCvertret
2990WHEN HAND%(5):PROCcontret
3000WHEN HAND%(9):PROCsurfret
3010WHEN HAND%(2):PROCtwoinp
3020WHEN HAND%(0):PROCanimret
3030OTHERWISE SYS "Wimp_ProcessKey",BLK%!24
3040ENDCASE:ENDPROC
3050
3060DEFPROCdrawsprite
3070SYS "OS_ReadModeVariable",-1,4 TO ,,XP%:SYS "OS_ReadModeVariable",-1,5 TO ,,YP%:XP%=(630>>XP%):YP%=(630>>YP%):SYS "OS_ReadModeVariable",-1,9 TO ,,BP%:BP%=2^BP%:WB%=(XP%*BP%) DIV 8:IF ((XP%*BP%) MOD 8)<>0 THEN WB%+=1
3080WB%=WB%*YP%:IF WB%<=49984 THEN 3110
3090IF OP%=1 THEN PROCclmain
3100PROCmessage(3,"To big a screen to plot object")
3110SYS "OS_SpriteOp",265,SPRITE:SYS "OS_SpriteOp",271,SPRITE,"VIEW",,XP%,YP%,MODE:PROCdraw(frm):ENDPROC
3120
3130DEFPROCgetor:WOX%=BLK%!4-BLK%!20:WOY%=BLK%!16-BLK%!24:ENDPROC
3140
3150DEFPROCopenmain:OP%=1
3160!BLK%=HAND%(5):BLK%!4=678:BLK%!8=646:BLK%!12=1279:BLK%!16=1023:BLK%!20=0:BLK%!24=0:BLK%!28=-1:SYS "Wimp_OpenWindow",,BLK%
3170!BLK%=HAND%(6):BLK%!4=0:BLK%!8=390:BLK%!12=630:BLK%!16=1023:BLK%!20=0:BLK%!24=0:BLK%!28=-1:SYS "Wimp_OpenWindow",,BLK%
3180ENDPROC
3190
3200DEFPROCmessage(M%,M$):SYS "Wimp_DragBox",,0:!BLK%=M%:$(BLK%+4)=M$+CHR$(0):SYS "Wimp_ReportError",BLK%,1,"ThreeView":PROCaction:END
3210ENDPROC
3220
3230DEFPROCanimrs
3240CASE BLK%!16 OF
3250WHEN 17:IF ANIM% THEN frm=ofrm:PROCseticon(5,25,STR$frm):PROCmenoff:PROCforcedraw:ANIM%=FALSE
3260WHEN 16:IF ANIM% THEN PROCmessage(12,"Animation already running")
3270IF NOT FNcheckanim THEN PROCmessage(11,"Mistake in animation sequence") ELSE PROCmenoff:anstep=0:ofrm=frm:ANIM%=TRUE
3280ENDCASE:ENDPROC
3290DEFFNcheckanim:noanim=0:REPEAT:noanim+=1:anim(noanim)=VALFNgeticon(0,noanim):UNTIL noanim=15 OR anim(noanim)=0:IF anim(1)=0 THEN =FALSE
3300T=TRUE:FORL%=1 TO noanim-1:IF anim(L%)<1 OR anim(L%)>frms THEN T=FALSE:NEXT ELSE NEXT
3310=T
3320
3330DEFPROCanimate:anstep+=1:IF anstep=noanim THEN anstep=1
3340frm=anim(anstep):PROCseticon(5,25,STR$frm):PROCforcedraw:ENDPROC
3350
3360DEFPROCoktwoinp:NU1%=VALFNgeticon(2,2):NU2%=VALFNgeticon(2,3)
3370CASE ICL% OF
3380WHEN 4:IF NU1%<1 OR NU2%<1 OR NU1%>vts(frm) OR NU2%>vts(frm) THEN PROCmessage(9,"Can't swap an undefined vertice")
3390SWAP vert%(1,NU1%,frm),vert%(1,NU2%,frm):SWAP vert%(2,NU1%,frm),vert%(2,NU2%,frm):SWAP vert%(3,NU1%,frm),vert%(3,NU2%,frm):PROCmenoff:PROCforcedraw
3400WHEN 5:IF NU1%<1 OR NU2%<1 OR NU1%>sfs(frm) OR NU2%>sfs(frm) THEN PROCmessage(9,"Can't swap an undefined surface")
3410FOR L%=0 TO 5:SWAP sur(NU1%,L%,frm),sur(NU2%,L%,frm):NEXT:PROCmenoff:PROCforcedraw
3420WHEN 12:IF NU1%<1 OR NU2%<1 OR NU1%>frms OR NU2%>frms THEN PROCmessage(9,"Can't copy to/from an undefined frame")
3430vts(NU2%)=vts(NU1%):sfs(NU2%)=sfs(NU1%):IF vts(NU1%)>0 THEN FORL%=1 TO vts(NU1%):FORK%=1 TO 3:vert%(K%,L%,NU2%)=vert%(K%,L%,NU1%):NEXT:NEXT
3440IF sfs(NU1%)>0 THEN FORL%=1 TO sfs(NU1%):FORK%=0 TO 5:sur(L%,K%,NU2%)=sur(L%,K%,NU1%):NEXT:NEXT
3450PROCmenoff:PROCforcedraw:PROCupcont
3460ENDCASE:ENDPROC
3470
3480DEFPROCnumber:NU%=VALFNgeticon(1,1)
3490CASE ICL% OF
3500WHEN 1:IF NU%<1 OR NU%>vts(frm) THEN PROCmessage(6,"That vertice is not defined")
3510PROCpoint:PROCseticon(4,1,STR$NU%):PROCseticon(4,6,STR$vert%(1,NU%,frm)):PROCseticon(4,7,STR$vert%(2,NU%,frm)):PROCseticon(4,8,STR$vert%(3,NU%,frm))
3520PROCmenoff:!BLK%=HAND%(4):BLK%!4=MOX%-80:BLK%!8=MOY%-100:BLK%!12=MOX%+380:BLK%!16=MOY%+136:BLK%!20=0:BLK%!24=0:BLK%!28=-1:SYS "Wimp_OpenWindow",,BLK%:SYS "Wimp_SetCaretPosition",HAND%(4),6,,,-1,LEN(STR$vert%(1,NU%,frm))
3530WHEN 3:IF NU%<1 OR NU%>sfs(frm) THEN PROCmessage(6,"That surface is not defined")
3540PROCpoint:PROCseticon(9,1,STR$NU%):PROCseticon(9,3,STR$sur(NU%,1,frm)):PROCseticon(9,8,STR$sur(NU%,2,frm)):PROCseticon(9,7,STR$sur(NU%,3,frm)):PROCseticon(9,9,STR$sur(NU%,4,frm))
3550PROCseticon(9,11,STR$sur(NU%,0,frm)):PROCseticon(9,13,STR$sur(NU%,5,frm)):PROCmenoff:!BLK%=HAND%(9):BLK%!4=MOX%-80:BLK%!8=MOY%-100:BLK%!12=MOX%+556:BLK%!16=MOY%+172:BLK%!20=0:BLK%!24=0:BLK%!28=-1:SYS "Wimp_OpenWindow",,BLK%
3560SYS "Wimp_SetCaretPosition",HAND%(9),3,,,-1,LEN(STR$sur(NU%,1,frm))
3570WHEN 6:IF NU%<1 OR NU%>vts(frm) THEN PROCmessage(6,"That vertice is not defined")
3580IF sfs(frm)=0 THEN 3610
3590IU=FALSE:FORL%=1 TO sfs(frm):FORK%=1 TO 4:IF sur(L%,K%,frm)=NU% THEN IU=TRUE:NEXT:NEXT ELSE NEXT:NEXT
3600IF IU=TRUE THEN PROCmessage(8,"That vertice is in use")
3610IF NU%=vts(frm) THEN vts(frm)-=1 ELSE FORL%=NU%+1 TO vts(frm):FORK%=1 TO 3:vert%(K%,L%-1,frm)=vert%(K%,L%,frm):NEXT:NEXT:vts(frm)-=1:IF sfs(frm)=0 THEN GOTO 3630
3620FORL%=1 TO sfs(frm):FORK%=1 TO 4:IF sur(L%,K%,frm)>NU% THEN sur(L%,K%,frm)-=1:NEXT:NEXT ELSE NEXT:NEXT
3630PROCmenoff:PROCforcedraw:PROCseticon(5,16,STR$vts(frm))
3640WHEN 7:IF NU%<1 OR NU%>sfs(frm) THEN PROCmessage(6,"That surface is not defined")
3650IF NU%=sfs(frm) THEN sfs(frm)-=1 ELSE FORL%=NU%+1 TO sfs(frm):FORK%=0 TO 5:sur(L%-1,K%,frm)=sur(L%,K%,frm):NEXT:NEXT:sfs(frm)-=1
3660PROCmenoff:PROCforcedraw:PROCseticon(5,24,STR$sfs(frm))
3670WHEN 10:IF NU%<1 OR NU%>frms THEN PROCmessage(10,"That frame is undefined") ELSE frm=NU%:PROCmenoff:PROCupcont:PROCforcedraw
3680WHEN 15:IF NU%<1 OR NU%>sfs(frm) THEN PROCmessage(6,"That surface is not defined")
3690SWAP sur(NU%,1,frm),sur(NU%,4,frm):SWAP sur(NU%,2,frm),sur(NU%,3,frm):PROCmenoff:PROCupcont:PROCforcedraw
3700ENDCASE
3710ENDPROC
3720
3730DEFPROCadedvert:IF BLK%!16<>2 THEN ENDPROC ELSE VN%=VALFNgeticon(4,1)
3740IF VN%>200 THEN PROCmessage(5,"Can only have up to 200 vertices")
3750XC%=VALFNgeticon(4,6):YC%=VALFNgeticon(4,7):ZC%=VALFNgeticon(4,8)
3760IF VN%>vts(frm) THEN vts(frm)+=1:vert%(1,vts(frm),frm)=XC%:vert%(2,vts(frm),frm)=YC%:vert%(3,vts(frm),frm)=ZC%:PROCseticon(5,16,STR$vts(frm)):GOTO 3780
3770vert%(1,NU%,frm)=XC%:vert%(2,NU%,frm)=YC%:vert%(3,NU%,frm)=ZC%
3780PROCmenoff:!BLK%=HAND%(4):SYS "Wimp_CloseWindow",,BLK%:PROCforcedraw:ENDPROC
3790
3800DEFPROCadedsurf:VN%=0:IF BLK%!16<>14 THEN ENDPROC ELSE VN%=VALFNgeticon(9,1)
3810IF VN%>100 THEN PROCmessage(5,"Can only have up to 100 surfaces")
3820IF VN%>sfs(frm) THEN sfs(frm)+=1:PROCseticon(5,24,STR$sfs(frm)):NU%=VN%
3830V1=VALFNgeticon(9,3):V2=VALFNgeticon(9,8):V3=VALFNgeticon(9,7):V4=VALFNgeticon(9,9)
3840IF V1<=vts(frm) AND V2<=vts(frm) AND V3<=vts(frm) AND V4<=vts(frm) AND V1>0 AND V2>0 AND V3>0 AND V4>0 THEN GOTO 3870
3850IF VN%=NU% THEN sfs(frm)-=1:PROCseticon(5,24,STR$sfs(frm))
3860PROCmessage(7,"Undefined vertices cannot be used in a surface")
3870sur(NU%,1,frm)=VALFNgeticon(9,3):sur(NU%,2,frm)=VALFNgeticon(9,8):sur(NU%,3,frm)=VALFNgeticon(9,7):sur(NU%,4,frm)=VALFNgeticon(9,9):sur(NU%,5,frm)=VALFNgeticon(9,13):sur(NU%,0,frm)=VALFNgeticon(9,11)
3880PROCmenoff:!BLK%=HAND%(9):SYS "Wimp_CloseWindow",,BLK%:PROCforcedraw:ENDPROC
3890
3900DEFPROCconfirm:IF BLK%!16<>1 THEN PROCmenoff:ENDPROC
3910frm=VAL(FNgeticon(5,25)):sfs(frm)=0:vts(frm)=0:PROCmenoff:PROCupcont:PROCforcedraw:ENDPROC
3920
3930DEFPROCwindmenu
3940$MENU%="3View Menu":MENU%?12=7:MENU%?13=2:MENU%?14=7:MENU%?15=0:MENU%!16=300:MENU%!20=44:MENU%!24=0
3950DATA Add vertice,4,8,Edit vertice,1,8,Add surface,9,8,Edit surface,1,10,Swap vertices,2,8,Swap surfaces,2,10,Delete vertice,1,8,Delete surface,1,10,Animate,0,8,Clear frame,3,10
3960DATA Frame number,1,8,Add frame,-1,8,Copy Frame,2,10,Wire frame,-1,8,Make Rayfile,10,10,Flip surface,1,136
3970RESTORE 3950:FORL%=0 TO 15:READ A$,B%,C%:MENU%!(28+(L%*24))=C%:IF B%>-1 THEN MENU%!(28+(L%*24)+4)=HAND%(B%) ELSE MENU%!(28+(L%*24)+4)=-1
3980MENU%!(28+(L%*24)+8)=1 OR (7<<24) OR 256:$(MENU%+500+(L%*20))=A$:MENU%!(28+(L%*24)+12)=(MENU%+500+(L%*20))
3990IF L%=13 AND WIFR% THEN MENU%!(28+(L%*24))=MENU%!(28+(L%*24))+1
4000MENU%!(28+(L%*24)+16)=MENU%+900:MENU%!(28+(L%*24)+20)=20:NEXT:$(MENU%+900)="AA-Za-z":
4010SYS "Wimp_CreateMenu",,MENU%,MOUX%-64,MOUY%+200
4020ENDPROC
4030
4040DEFFNgstr(AD%):W$="":IF ?AD%<32 THEN =W$ ELSE REPEAT:W$=W$+CHR$(?AD%):AD%+=1:UNTIL ?AD%<32:=W$
4050
4060DEFFNgeticon(WH%,IC%):!ICBLK%=HAND%(WH%):ICBLK%!4=IC%:SYS "Wimp_GetIconState",,ICBLK%:=FNgstr(!(ICBLK%+28))
4070
4080DEFFNgetsaveicon(IC%):!ICBLK%=HAND%(8):ICBLK%!4=IC%:SYS "Wimp_GetIconState",,ICBLK%:=FNgstr(!(ICBLK%+28))
4090
4100DEFFNgetrayicon(IC%):!ICBLK%=HAND%(10):ICBLK%!4=IC%:SYS "Wimp_GetIconState",,ICBLK%:=FNgstr(!(ICBLK%+28))
4110
4120DEFFNhigh(WH%,IC%):!ICBLK%=HAND%(WH%):ICBLK%!4=IC%:SYS "Wimp_GetIconState",,ICBLK%:=((?(ICBLK%+26)) AND %100000)=32
4130
4140DEFPROChiticon:CASE BLK%!16 OF
4150WHEN 1:rho%=VAL(FNgeticon(5,2))-20:IF rho%<50 THEN rho%=50
4160PROCseticon(5,2,STR$rho%):PROCforcedraw
4170WHEN 3:rho%=VAL(FNgeticon(5,2))+20:IF rho%>9999 THEN rho%=9999
4180PROCseticon(5,2,STR$rho%):PROCforcedraw
4190WHEN 5:the%=(VAL(FNgeticon(5,6))) MOD 360:the%-=10:IF the%<0 THEN the%=360+the%
4200PROCseticon(5,6,STR$the%):PROCforcedraw
4210WHEN 7:the%=(VAL(FNgeticon(5,6))+10) MOD 360:PROCseticon(5,6,STR$the%):PROCforcedraw
4220WHEN 9:phi%=(VAL(FNgeticon(5,10))) MOD 360:phi%-=10:IF phi%<0 THEN phi%=360+phi%
4230PROCseticon(5,10,STR$phi%):PROCforcedraw
4240WHEN 11:phi%=(VAL(FNgeticon(5,10))+10) MOD 360:PROCseticon(5,10,STR$phi%):PROCforcedraw
4250WHEN 18,19,21:PROCforcedraw
4260ENDCASE
4270ENDPROC
4280
4290DEFPROCdragsave:A$=FNgetname:IF dragt%=HAND%(8) THEN GOTO 4320
4300PROCraysave(A$):SYS "Wimp_CreateMenu",-1:PROCsetrayname(A$)
4310BLK%!12=BLK%!8:BLK%!16=3:!BLK%=64:SYS "Wimp_SendMessage",17,BLK%,BLK%!20,BLK%!24:ENDPROC
4320PROCsave(A$)
4330SYS "Wimp_CreateMenu",-1
4340PROCsetsavename(A$)
4350BLK%!12=BLK%!8:BLK%!16=3:!BLK%=64:SYS "Wimp_SendMessage",17,BLK%,BLK%!20,BLK%!24:ENDPROC
4360
4370DEFFNgetname:W$="":P%=BLK%+44:WHILE ?P%<>0 AND ?P%<>13:W$=W$+CHR$(?P%):P%+=1:ENDWHILE:=W$
4380
4390DEFPROCautoload:A$=LF$:GOTO 4420
4400
4410DEFPROCload:ANIM%=FALSE:A$=FNgetname:BLK%!12=BLK%!8:BLK%!16=4:!BLK%=64:SYS "Wimp_SendMessage",17,BLK%,BLK%!4
4420IF OP%=0 THEN PROCopenmain
4430PROCsetsavename(A$)
4440F%=OPENIN(A$):frm=1:INPUT#F%,frms:FORL%=1 TO 15:INPUT#F%,anim(L%):PROCseticon(0,L%,STR$anim(L%)):NEXT:FOR I%=1 TO frms:INPUT#F%,vts(I%),sfs(I%)
4450IF vts(I%)>0 THEN FORL%=1 TO vts(I%):INPUT#F%,vert%(1,L%,I%),vert%(2,L%,I%),vert%(3,L%,I%):NEXT
4460IF sfs(I%)>0 THEN FORL%=1 TO sfs(I%):FORK%=0 TO 5:sur(L%,K%,I%)=BGET#F%:NEXT:NEXT
4470NEXT:CLOSE#F%:DMDE%=-1:SYS "Wimp_ForceRedraw",HAND%(6),0,-630,630,0:frm=1:PROCupcont
4480ENDPROC
4490
4500DEFPROCupcont:PROCseticon(5,16,STR$vts(frm)):PROCseticon(5,24,STR$sfs(frm)):PROCseticon(5,15,STR$frms):PROCseticon(5,25,STR$frm):ENDPROC
4510DEFPROCanimret:IC%=(BLK%!4)+1:IF IC%>15 THEN IC%=1
4520SYS"Wimp_SetCaretPosition",HAND%(0),IC%,,,-1,LENFNgeticon(0,IC%):ENDPROC
4530DEFPROCtwoinp:IC%=(BLK%!4)+1:IF IC%>3 THEN IC%=2
4540SYS"Wimp_SetCaretPosition",HAND%(2),IC%,,,-1,LENFNgeticon(2,IC%):ENDPROC
4550DEFPROCcontret:CASE BLK%!4 OF
4560WHEN 2:rho%=VALFNgeticon(5,2):IF rho%<50 THEN rho%=50
4570PROCseticon(5,2,STR$rho%):PROCforcedraw
4580WHEN 6:the%=(VALFNgeticon(5,6)) MOD 360:PROCseticon(5,6,STR$the%):PROCforcedraw
4590WHEN 10:phi%=(VALFNgeticon(5,10)) MOD 360:PROCseticon(5,10,STR$phi%):PROCforcedraw
4600ENDCASE:ENDPROC
4610
4620DEFPROCvertret:IF BLK%!4=6 THEN SYS"Wimp_SetCaretPosition",HAND%(4),7,,,-1,LENFNgeticon(4,7):ENDPROC
4630IF BLK%!4=7 THEN SYS"Wimp_SetCaretPosition",HAND%(4),8,,,-1,LENFNgeticon(4,8):ENDPROC
4640IF BLK%!4=8 THEN SYS"Wimp_SetCaretPosition",HAND%(4),6,,,-1,LENFNgeticon(4,6):ENDPROC ELSE ENDPROC
4650
4660DEFPROCsurfret:RESTORE 4670:REPEAT:READ F%,T%:UNTIL F%=BLK%!4:SYS"Wimp_SetCaretPosition",HAND%(9),T%,,,-1,LENFNgeticon(9,T%):ENDPROC
4670DATA 3,8,8,7,7,9,9,11,11,13,13,3
4680
4690DEFPROCfillanim:FORL%=1 TO 15:anim(L%)=VALFNgeticon(0,L%):NEXT:ENDPROC
4700
4710DEFPROChfr:FOR suno=1 TO sfs(frm):PROCcsv(suno):PROCcnv:PROCclosv(suno):PROCvt(suno):NEXT:ENDPROC
4720
4730DEFPROCcsv(suno):FOR i=1 TO 3:vec1(i)=vert%(i,sur(suno,2,frm),frm)-vert%(i,sur(suno,1,frm),frm):vec2(i)=vert%(i,sur(suno,3,frm),frm)-vert%(i,sur(suno,1,frm),frm):NEXT:ENDPROC
4740
4750DEFPROCcnv:norx=vec1(2)*vec2(3)-vec2(2)*vec1(3):nory=vec1(3)*vec2(1)-vec2(3)*vec1(1):norz=vec1(1)*vec2(2)-vec2(1)*vec1(2):ENDPROC
4760
4770DEFPROCclosv(suno):losx=xvw-vert%(1,sur(suno,1,frm),frm):losy=yvw-vert%(2,sur(suno,1,frm),frm):losz=zvw-vert%(3,sur(suno,1,frm),frm):ENDPROC
4780
4790DEFPROCvt(suno):visible(suno)=norx*losx+nory*losy+norz*losz>0:ENDPROC
4800
4810DEFPROCpickcol:IF C256 THEN GCOL0,sur(suno,0,frm) TINT (sur(suno,5,frm)*64):ENDPROC
4820C=sur(suno,0,frm):R=(C AND 3)*64:G=(C AND 12)*16:B=(C AND 48)*4:C=sur(suno,5,frm):R+=C:G+=C:B+=C:CTR%=(B<<24)+(G<<16)+(R<<8):SYS "ColourTrans_SetGCOL",CTR%:ENDPROC
4830
4840DEFPROCtap(suno):LOCAL vertexno,startx,starty
4850startx=xs(sur(suno,1,frm)):starty=ys(sur(suno,1,frm)):MOVE startx,starty:IF NOT WIFR% THEN GOTO 4870
4860PROCpickcol:PLOT5,xs(sur(suno,2,frm)),ys(sur(suno,2,frm)):PLOT5,xs(sur(suno,3,frm)),ys(sur(suno,3,frm)):PLOT5,xs(sur(suno,4,frm)),ys(sur(suno,4,frm)):PLOT5,startx,starty:GOTO 4890
4870MOVE xs(sur(suno,2,frm)),ys(sur(suno,2,frm)):PROCpickcol
4880PLOT85,xs(sur(suno,3,frm)),ys(sur(suno,3,frm)):MOVE xs(sur(suno,4,frm)),ys(sur(suno,4,frm)):PLOT85,startx,starty
4890IF NOT FNhigh(5,18) THEN ENDPROC ELSE IF FNhigh(5,21) THEN 4920
4900IF NOT FNhigh(5,19) THEN ENDPROC
4910VDU5:GCOL0,63 TINT 192:FORL%=1 TO 4:vus(sur(suno,L%,frm))=1:PLOT4,xs(sur(suno,L%,frm)),ys(sur(suno,L%,frm)):PRINT;sur(suno,L%,frm);:NEXT:VDU4:OFF:ENDPROC
4920VDU5:GCOL0,63 TINT 192:px=(xs(sur(suno,1,frm))+xs(sur(suno,3,frm)))/2:py=(ys(sur(suno,1,frm))+ys(sur(suno,3,frm)))/2:PLOT4,px,py:PRINT;suno;:VDU4:OFF
4930ENDPROC
4940
4950DEFPROCivt(rho%,the%,phi%):cthe=COS(RAD(the%)):sthe=SIN(RAD(the%)):cphi=COS(RAD(phi%)):sphi=SIN(RAD(phi%)):va=-sthe:vb=cthe:ve=-cthe*cphi:vf=-sthe*cphi:vg=sphi:vi=-cthe*sphi:vj=-sthe*sphi:vk=-cphi:vl=rho%:ENDPROC
4960
4970DEFPROCvitr(x,y,z):xe=va*x+vb*y:ye=ve*x+vf*y+vg*z:ze=vi*x+vj*y+vk*z+vl:ENDPROC
4980
4990DEFPROCpetr(xe,ye,ze,d):sx=d*xe/ze:sy=d*ye/ze:ENDPROC
5000
5010DEFPROCwoco:FOR v=1 TO vts(frm):PROCvitr(vert%(1,v,frm),vert%(2,v,frm),vert%(3,v,frm)):z(v)=ze:PROCpetr(xe,ye,ze,d):xs(v)=sx:ys(v)=sy:NEXT:ENDPROC
5020DEFPROCdraw(I%):SYS "OS_SpriteOp",316,SPRITE,"VIEW" TO V1,V2,V3,V4:TS%=frm:frm=I%:VDU29,315;315;:SYS "OS_ReadModeVariable",-1,3 TO ,,NC%:IF NC%=63 THEN C256=TRUE ELSE C256=FALSE:GCOL0,135:CLG
5030vus()=0:PROCivt(rho%,the%,phi%):xvw=rho%*sphi*cthe:yvw=rho%*sphi*sthe:zvw=rho%*cphi:PROChfr:PROCwoco
5040PROCdeso:PROCpremvert:IF WIFR% THEN FOR suno=1 TO sfs(frm):PROCtap(suno):NEXT:GOTO 5070
5050IF vis=0 THEN PROCpremvert:GOTO 5070
5060FOR suno=1 TO vis:PROCtap(de(suno,0)):NEXT
5070frm=TS%:VDU29,0;0;:SYS "OS_SpriteOp",V1,V2,V3,V4:ENDPROC
5080
5090DEFPROCdeso:vis=0:de()=0:IF sfs(frm)=0 THEN ENDPROC
5100FORL%=1 TO sfs(frm):IF visible(L%) THEN vis+=1:de(vis,0)=L%:de(vis,1)=vis:NEXT ELSE NEXT
5110FORL%=1 TO vis
5120max=z(sur(de(L%,0),1,frm)):FOR K%=2 TO 4:IF z(sur(de(L%,0),K%,frm))>max THEN max=z(sur(de(L%,0),K%,frm)):NEXT ELSE NEXT
5130de(L%,1)=max:NEXT
5140FORL%=1 TO vis-1:FORK%=L%+1 TO vis:
5150IF de(K%,1)>de(L%,1) THEN SWAP de(K%,1),de(L%,1):SWAP de(K%,0),de(L%,0) ELSE IF de(K%,1)=de(L%,1) AND de(K%,0)<de(L%,0) THEN SWAP de(K%,1),de(L%,1):SWAP de(K%,0),de(L%,0)
5160NEXT:NEXT:ENDPROC
5170
5180DEFPROCpremvert:IF vts(frm)=0 OR NOT FNhigh(5,18) THEN ENDPROC
5190IF NOT FNhigh(5,19) THEN ENDPROC
5200GCOL0,60 TINT 192:VDU5:FORL%=1 TO vts(frm):IF vus(L%)=0 THEN PLOT4,xs(L%),ys(L%):PRINT;L%;
5210NEXT:VDU4:OFF:ENDPROC
5220
5230DEFFNangle(X%,Y%)
5240IF X%=0 AND Y%>0 THEN =90 ELSE IF X%=0 AND Y%<0 THEN =270 ELSE IF X%=0 AND Y%=0 THEN =0
5250A=DEG(ATN(Y%/X%)):IF X%<0 AND Y%>0 THEN =180+A
5260IF X%<0 THEN =180+A
5270IF Y%<0 THEN =360+A
5280=A
� ><ThreeView$Dir>.!RunImage
� � �makerr
Zș "OS_GetEnv" � A$:ș "OS_GetEnv" � A$:� �A$,1)<>" " � LF$=�A$,�A$,""" ")+2) � LF$=""
(
�setup
2� LF$<>"" � �autoload
< �action
F�die
P�
Z*��setup:OP%=0:DMDE%=-1:ANIM%=�:WIFR%=�
d�� icx%(40),icy%(40),icl%(40),ich%(40),vts(15),sfs(15),vus(200),vert%(3,200,15),sur(100,5,15),de(100,1),z(200),vec1(3),vec2(3),xs(200),ys(200),visible(100),anim(15),TX%(4),TY%(4),TZ%(4)
nLvts()=0:opt=1:sfs()=0:frms=1:frm=1:rho%=500:the%=90:phi%=90:d=1000:mrk=�
x�� POI% 256,TAS% 2000,BLK% 1000,MENU% 1000,SEL% 256,ICBLK% 256,SPRITE 50000:!SPRITE=50000:SPRITE!4=0:SPRITE!8=16:SPRITE!12=16
�B$TAS%="TASK":ș"Wimp_Initialise",200,!TAS%,"ThreeView" � HAND%
��loadsprites
�B!BLK%=-1:BLK%!4=0:BLK%!8=0:BLK%!12=64:BLK%!16=64:BLK%!20=&2102
�D� BLK%!24 10:$(BLK%!24)="!ThreeView":BLK%!28=SPRITES%:BLK%!32=10
�4F%=�("<ThreeView$Dir>.RendBase"):REEX%=�#F%:�#F%
�� REND% REEX%
�/�("LOAD <ThreeView$Dir>.RendBase "+�~REND%)
�(ș "Wimp_CreateIcon",,BLK% � ICHAND%
�7ș "Wimp_OpenTemplate",,"<ThreeView$Dir>.Templates"
�|� STORE% (22*1024),BUF%(10),INDIR%(10),HAND%(10):�L%=0 � 10:BUF%(L%)=STORE%+(L%*1024):INDIR%(L%)=STORE%+((L%+11)*1024):�
�T� Animate,Delete,Swap,Confirm,ad/ed/vert,Control,View,Info,Save,ad/ed/surf,save2
�`� �df@:�K%=0 � 10:� A$:ș "Wimp_LoadTemplate",,BUF%(K%),INDIR%(K%),INDIR%(K%)+1024,-1,A$,0:�
�I� �df@:�K%=0 � 10:� A$:ș "Wimp_CreateWindow",,BUF%(K%) � HAND%(K%):�
ș "Wimp_CloseTemplate"
�
"��loadsprites
,� SPRITES% 2000
6k!SPRITES%=2000:SPRITES%!4=0:SPRITES%!8=16:SPRITES%!12=16:ș &2E,266,SPRITES%,"<ThreeView$Dir>.!Sprites"
@�
J ��action
T�
^ �poll
h'� (REAS%=17 � REAS%=18) � BLK%!16=0
r�
|��die:OP%=0
�#ș "Wimp_CloseDown",HAND%,!TAS%
��
��
�
��poll
� !BLK%=%10011111110000110000
�!ș "Wimp_Poll",0,BLK% � REAS%
�� REAS%>-1 � �act
��
� ��act
�Ȏ REAS% �
�� 0:� ANIM% � �animate
�� 1:�redraw
�� 2:�opmain
� 3:�clmain
� 6:�mouse
� 8:�keypress
&
� 9:�menu
0� 7:�dragfin
: � 17,18:�inmessage(BLK%!16)
D�
N�
X���forcedraw:!BLK%=HAND%(6):BLK%!4=0:BLK%!8=-622:BLK%!12=630:BLK%!16=0:ș "Wimp_UpdateWindow",,BLK% � FIN%:�getor:�drawsprite:DME%=�
b?ȕ FIN%:�plotobject:ș "Wimp_GetRectangle",,BLK% � FIN%:�:�
l ��redraw
v'ș "Wimp_RedrawWindow",,BLK% � FIN%
�+�getor:� DMDE%<>� � �drawsprite:DMDE%=�
�;ȕ FIN%:�plotobject:ș "Wimp_GetRectangle",,BLK% � FIN%
��
��
�C��plotobject:ș "OS_SpriteOp",290,SPRITE,"VIEW",WOX%,WOY%-626:�
���opmain:OP%=1
� ș "Wimp_OpenWindow",,BLK%
��
���clmain:OP%=0
�]ș "Wimp_CloseWindow",,BLK%:� !BLK%=HAND%(6) � !BLK%=HAND%(5):ș "Wimp_CloseWindow",,BLK%
��
� ��makerr
�ș "Wimp_DragBox",,0
!BLK%=�
ER=�
Ȏ � �
G� 222:$(BLK%+4)="File cannot be found (at line "+�(�)+")"+�(0):ER=�
*
4&$(BLK%+4)=�$+" at line "+�(�)+�(0)
>�
H,ș "Wimp_ReportError",BLK%,1,"ThreeView"
R� ER � �die � �action:�
\�
f ��mouse
p7MOUX%=!BLK%:MOUY%=BLK%!4:MOUB%=BLK%!8:MOUH%=BLK%!12
z� MOUB%=1 � MOUB%=4
�Ȏ MOUB% �
�� 4:Ȏ MOUH% �
�� -2:�openmain
�� HAND%(5):�hiticon
�� HAND%(8):�savewind
�� HAND%(10):�raywind
�� HAND%(3):�confirm
�� HAND%(4):�adedvert
�� HAND%(9):�adedsurf
�� HAND%(1):�number
�� HAND%(2):�oktwoinp
�� HAND%(0):�animrs
��
=� 2:� MOUH%=-2 � �iconmenu � � MOUH%=HAND%(6) � �windmenu
H� 16,64:dragt%=MOUH%:� MOUH%=HAND%(8) � MOUH%=HAND%(10) � �startdrag
�
$�
.&��menoff:ș "Wimp_CreateMenu",-1:�
8��iconmenu
Bf$MENU%="ThreeView":MENU%?12=7:MENU%?13=2:MENU%?14=7:MENU%?15=0:MENU%!16=100:MENU%!20=44:MENU%!24=0
LHMENU%!28=0:MENU%!32=HAND%(7):MENU%!36=1 � (7<<24):$(MENU%+40)="Info"
VHMENU%!52=2:MENU%!56=HAND%(8):MENU%!60=1 � (7<<24):$(MENU%+64)="Save"
`DMENU%!76=128:MENU%!80=-1:MENU%!84=1 � (7<<24):$(MENU%+88)="Quit"
j,ș "Wimp_CreateMenu",,MENU%,MOUX%-64,252
t�
~
��menu
�)ș "Wimp_DecodeMenu",,MENU%,BLK%,SEL%
�� $SEL%="Quit" � �die
�Q� $SEL%="Add frame" � frms=15 � �message(2,"Cannot have more than 15 frames")
�K� $SEL%="Add frame" � frms+=1:sfs(frms)=0:vts(frms)=0:�upcont:�menoff:�
�3� $SEL%="Wire frame" � WIFR%=� WIFR%:�forcedraw
��
Ę��setsavename(W$):!ICBLK%=HAND%(8):ICBLK%!4=1:ș "Wimp_GetIconState",,ICBLK%:ICBLK%!8=0:ICBLK%!12=0:$(ICBLK%!28)=W$:ș "Wimp_SetIconState",,ICBLK%:�
Θ��setrayname(W$):!ICBLK%=HAND%(10):ICBLK%!4=1:ș "Wimp_GetIconState",,ICBLK%:ICBLK%!8=0:ICBLK%!12=0:$(ICBLK%!28)=W$:ș "Wimp_SetIconState",,ICBLK%:�
ؤ��seticon(WH%,IC%,SET$):!ICBLK%=HAND%(WH%):ICBLK%!4=IC%:ș "Wimp_GetIconState",,ICBLK%:ICBLK%!8=0:ICBLK%!12=0:$(ICBLK%!28)=SET$:ș "Wimp_SetIconState",,ICBLK%:�
�qݤhigh(WH%,IC%):!ICBLK%=HAND%(WH%):ICBLK%!4=IC%:ș "Wimp_GetIconState",,ICBLK%:=((?(ICBLK%+26)) � %100000)=32
���savewind:ICN%=BLK%!16
�
Ȏ ICN% �
� 2:�oksave
�
�
��oksave:F$=�getsaveicon(1)
(N� �F$,".")=0 � �message(0,"To save, drag the icon to a directory viewer.")
2
�save(F$)
<ș "Wimp_CreateMenu",-1
F�
P��raywind:ICN%=BLK%!16
Z
Ȏ ICN% �
d� 2:�okray
n�
x�
� ��okray:F$=�getrayicon(1)
�N� �F$,".")=0 � �message(0,"To save, drag the icon to a directory viewer.")
��raysave(F$)
�ș "Wimp_CreateMenu",-1
��
���save(fn$)
�
�fillanim
�RF%=�(fn$):�#F%,frms:�L%=1 � 15:�#F%,anim(L%):�:�I%=1 � frms:� vts(I%)=0 � �d\E
Ң�#F%,vts(I%),sfs(I%):�L%=1 � vts(I%):�#F%,vert%(1,L%,I%),vert%(2,L%,I%),vert%(3,L%,I%):�:� sfs(I%)=0 � �d\E � �L%=1 � sfs(I%):�K%=0 � 5:�#F%,sur(L%,K%,I%):�:�
�
�:�#F%
� �("*SETTYPE "+fn$+" 554"):�
�a��raysave(fn$):�seticon(10,1,fn$):XR%=�(�geticon(5,6)):YR%=�(�geticon(5,10)):� sfs(frm)=0 � �
�[XT%=�(�geticon(10,6)):YT%=�(�geticon(10,7)):ZT%=�(�geticon(10,8)):MA=�(�geticon(10,10))
|� � (�high(10,14) � �high(10,15) � �high(10,16)) � �message(0,"You must specify a format for the raytrace source file.")
ș "Hourglass_On":FC%=�(fn$)
6� �high(10,14) � �qrtsave:�("SETTYPE "+fn$+" FFF")
"6� �high(10,15) � �rensave:�("SETTYPE "+fn$+" D59")
, � �high(10,16) � �polsave
6ș "Hourglass_Off"
@�
J
T
��qrtsave
^-A$=�geticon(8,1):�#FC%,"{ ** "+A$+" ** }"
h�L%=1 � sfs(frm)
r{�K%=1 � 4:TX%(K%)=vert%(1,sur(L%,K%,frm),frm):TY%(K%)=vert%(2,sur(L%,K%,frm),frm):TZ%(K%)=vert%(3,sur(L%,K%,frm),frm):�
|
�K%=1 � 4
�yA=�angle(TX%(K%),TY%(K%)):A+=XR%:R%=(�((TX%(K%)*TX%(K%))+(TY%(K%)*TY%(K%)))*MA):TX%(K%)=�(�(A))*R%:TY%(K%)=�(�(A))*R%
�yA=�angle(TY%(K%),TZ%(K%)):A+=YR%:R%=(�((TY%(K%)*TY%(K%))+(TZ%(K%)*TZ%(K%)))*MA):TY%(K%)=�(�(A))*R%:TZ%(K%)=�(�(A))*R%
�NTX%(K%)+=XT%:TX%(K%)=-TX%(K%):TY%(K%)+=YT%:TZ%(K%)+=ZT%:Ȕ TY%(K%),TZ%(K%)
�t�:C%=sur(L%,0,frm):T%=sur(L%,5,frm):R=(((C% � %11))*4)+T%:G=(((C% � %1100)/4)*4)+T%:B=(((C% � %110000)/16)*4)+T%
�J�#FC%,�10+"TRIANGLE ( loc = ("+�TX%(1)+", "+�TY%(1)+", "+�TZ%(1)+"),";
�YV1%=TX%(2)-TX%(1):V2%=TY%(2)-TY%(1):V3%=TZ%(2)-TZ%(1):� V1%=0 � V2%=0 � V3%=0 � V2%=1
�;�#FC%," vect1 = ("+�(V1%)+", "+�(V2%)+", "+�(V3%)+"),";
�YV1%=TX%(3)-TX%(1):V2%=TY%(3)-TY%(1):V3%=TZ%(3)-TZ%(1):� V1%=0 � V2%=0 � V3%=0 � V2%=1
�:�#FC%," vect2 = ("+�(V1%)+", "+�(V2%)+", "+�(V3%)+"),"
�E�#FC%," diff = ("+�(R/15)+", "+�(G/15)+", "+�(B/15)+")"
��#FC%," );"+�10
�F�#FC%,"TRIANGLE ( loc = ("+�TX%(3)+", "+�TY%(3)+", "+�TZ%(3)+"),";
�YV1%=TX%(4)-TX%(3):V2%=TY%(4)-TY%(3):V3%=TZ%(4)-TZ%(3):� V1%=0 � V2%=0 � V3%=0 � V2%=1
;�#FC%," vect1 = ("+�(V1%)+", "+�(V2%)+", "+�(V3%)+"),";
YV1%=TX%(1)-TX%(3):V2%=TY%(1)-TY%(3):V3%=TZ%(1)-TZ%(3):� V1%=0 � V2%=0 � V3%=0 � V2%=1
:�#FC%," vect2 = ("+�(V1%)+", "+�(V2%)+", "+�(V3%)+"),"
&E�#FC%," diff = ("+�(R/15)+", "+�(G/15)+", "+�(B/15)+")"
0�#FC%," );"
:�
D �#FC%
N�
X
b
��polsave
lA$=�geticon(8,1)
v�pling(FC%,vts(frm))
��pling(FC%,sfs(frm))
��L%=1 � vts(frm)
�
�K%=1 � 3
� �pling(FC%,vert%(K%,L%,frm))
��
��
��L%=1 � sfs(frm)
�
�K%=1 � 4
� �pling(FC%,sur(L%,K%,frm))
��
�rC%=sur(L%,0,frm):T%=sur(L%,5,frm):R=(((C% � %11))*4)+T%:G=(((C% � %1100)/4)*4)+T%:B=(((C% � %110000)/16)*4)+T%
�R=R*16:G=G*16:B=B*16
�-�pling(FC%,R):�pling(FC%,G):�pling(FC%,B)
�
�#FC%
�
*��pling(CH%,WO%)
4�#CH%,(WO% � &FF)
> �#CH%,((WO% � &FF00)>>8)
H �#CH%,((WO% � &FF0000)>>16)
R!�#CH%,((WO% � &FF000000)>>24)
\�
f
p
��rensave
zA$=�geticon(8,1)
��L%=0 � REEX%-1
��#FC%,REND%?L%
��
��#FC%,"/ "+A$;
� �#FC%,13
� �#FC%,13
�&�#FC%,"lightpoint, 1, 10,100,100";
� �#FC%,13
�(�#FC%,"view, 40,50,200, at, 0,40,0";
� �#FC%,13
� �#FC%,13
��L%=1 � sfs(frm)
�{�K%=1 � 4:TX%(K%)=vert%(1,sur(L%,K%,frm),frm):TY%(K%)=vert%(2,sur(L%,K%,frm),frm):TZ%(K%)=vert%(3,sur(L%,K%,frm),frm):�
�K%=1 � 4
TX%(K%)=TX%(K%)*MA
TY%(K%)=TY%(K%)*MA
$TZ%(K%)=TZ%(K%)*MA
.=TX%(K%)+=XT%:TY%(K%)+=YT%:TZ%(K%)+=ZT%:Ȕ TY%(K%),TZ%(K%)
83�:C%=sur(L%,0,frm):� �tzI:� GC%=0 � C%:� COL$:�
BD�#FC%,"poly3, :"+COL$+", "+�TX%(1)+","+�TY%(1)+","+�TZ%(1)+", ";
L/�#FC%,�TX%(2)+","+�TY%(2)+","+�TZ%(2)+", ";
V*�#FC%,�TX%(3)+","+�TY%(3)+","+�TZ%(3);
` �#FC%,13
jD�#FC%,"poly3, :"+COL$+", "+�TX%(3)+","+�TY%(3)+","+�TZ%(3)+", ";
t/�#FC%,�TX%(4)+","+�TY%(4)+","+�TZ%(4)+", ";
~*�#FC%,�TX%(1)+","+�TY%(1)+","+�TZ%(1);
� �#FC%,13
��
� �#FC%
��
�
�u� BLACK,RED,RED,RED,GREEN,LIME,GOLD,GOLD,GREEN,GREEN,LIME,GOLD,GREEN,GREEN,LIME,YELLOW,BLUE,PURPLE,PURPLE,MAGENTA
�w� CYAN,CYAN,PINK,PINK,GREEN,LIME,YELLOW,GOLD,GREEN,GREEN,LIME,YELLOW,BLUE,BLUE,PURPLE,MAGENTA,BLUE,BLUE,PURPLE,PINK
� CYAN,SKYBLUE,SKYBLUE,PINK,GREEN,GREEN,LIME,YELLOW,BLUE,BLUE,PURPLE,PINK,BLUE,BLUE,PURPLE,PINK,SKYBLUE,SKYBLUE,SKYBLUE,PINK
�� CYAN,CYAN,CYAN,WHITE
�
�(��dragfin:� dragt%=HAND%(8) � � �DFJ
�7F$=�getrayicon(1):T$="":� �F$,".")=0 � T$=F$:� �TTJ
� �F$,1)="." � T$="":� �TTJ
4K%=�(F$):�:T$=�F$,K%,1)+T$:K%-=1:� �F$,K%,1)="."
"ș "Wimp_GetPointerInfo",,POI%
�POI%!20=64:POI%!32=0:POI%!36=1:POI%!40=POI%!12:POI%!44=POI%!16:POI%!48=!POI%:POI%!52=POI%!4:POI%!56=2048:POI%!60=&555:$(POI%+64)=T$
(4ș "Wimp_SendMessage",17,POI%+20,POI%!12,POI%!16
2�
<
F8F$=�getsaveicon(1):T$="":� �F$,".")=0 � T$=F$:� �DdJ
P � �F$,1)="." � T$="":� �DdJ
Z4K%=�(F$):�:T$=�F$,K%,1)+T$:K%-=1:� �F$,K%,1)="."
d"ș "Wimp_GetPointerInfo",,POI%
n�POI%!20=64:POI%!32=0:POI%!36=1:POI%!40=POI%!12:POI%!44=POI%!16:POI%!48=!POI%:POI%!52=POI%!4:POI%!56=2048:POI%!60=&555:$(POI%+64)=T$
x4ș "Wimp_SendMessage",17,POI%+20,POI%!12,POI%!16
��
�
�O��point:ș "Wimp_GetPointerInfo",,POI%:MOX%=!POI%:MOY%=POI%!4:MOB%=POI%!8:�
�
���startdrag
�%ș "Wimp_GetWindowState",,BLK%+12
�CX%=BLK%!16:Y%=BLK%!28:BLK%!16=0:ș "Wimp_GetIconState",,BLK%+12
�)BLK%!16=5:BLK%!20+=X%-2:BLK%!24+=Y%-4
� BLK%!28+=X%+2:BLK%!32+=Y%
�XBLK%!36=0:BLK%!40=0:BLK%!44=&7FFFFFFF:BLK%!48=&7FFFFFFF:ș "Wimp_DragBox",,BLK%+12:�
�
���inmessage(M%)
� Ȏ M% �
� 0:�die
� 2:�dragsave
*� 3,5:� BLK%!12=0 � BLK%!40=&554 �load
"� &400C0:�mainsub
,�:�
6
@b��mainsub:ICL%=BLK%!32:� ICL%<>0 � ICL%<>2 � ș"Wimp_CreateSubMenu",,BLK%!20,BLK%!24,BLK%!28:�
JAWHA%=BLK%!20:WXC%=BLK%!24:WYC%=BLK%!28:ICL%=BLK%!32:Ȏ ICL% �
TJ� 0:�seticon(4,1,�(vts(frm)+1)):ș"Wimp_CreateSubMenu",,WHA%,WXC%,WYC%
^J� 2:�seticon(9,1,�(sfs(frm)+1)):ș"Wimp_CreateSubMenu",,WHA%,WXC%,WYC%
h�
r�
|
�=��keypress:� BLK%!24<>13 � ș "Wimp_ProcessKey",BLK%!24:�
�Ȏ !BLK% �
�� HAND%(1):�number
�� HAND%(4):�vertret
�� HAND%(5):�contret
�� HAND%(9):�surfret
�� HAND%(2):�twoinp
�� HAND%(0):�animret
�" ș "Wimp_ProcessKey",BLK%!24
��:�
�
���drawsprite
��ș "OS_ReadModeVariable",-1,4 � ,,XP%:ș "OS_ReadModeVariable",-1,5 � ,,YP%:XP%=(630>>XP%):YP%=(630>>YP%):ș "OS_ReadModeVariable",-1,9 � ,,BP%:BP%=2^BP%:WB%=(XP%*BP%) � 8:� ((XP%*BP%) � 8)<>0 � WB%+=1
#WB%=WB%*YP%:� WB%<=49984 � �TfL
� OP%=1 � �clmain
0�message(3,"To big a screen to plot object")
&Zș "OS_SpriteOp",265,SPRITE:ș "OS_SpriteOp",271,SPRITE,"VIEW",,XP%,YP%,�:�draw(frm):�
0
:6��getor:WOX%=BLK%!4-BLK%!20:WOY%=BLK%!16-BLK%!24:�
D
N��openmain:OP%=1
X|!BLK%=HAND%(5):BLK%!4=678:BLK%!8=646:BLK%!12=1279:BLK%!16=1023:BLK%!20=0:BLK%!24=0:BLK%!28=-1:ș "Wimp_OpenWindow",,BLK%
by!BLK%=HAND%(6):BLK%!4=0:BLK%!8=390:BLK%!12=630:BLK%!16=1023:BLK%!20=0:BLK%!24=0:BLK%!28=-1:ș "Wimp_OpenWindow",,BLK%
l�
v
�w��message(M%,M$):ș "Wimp_DragBox",,0:!BLK%=M%:$(BLK%+4)=M$+�(0):ș "Wimp_ReportError",BLK%,1,"ThreeView":�action:�
��
�
� ��animrs
�Ȏ BLK%!16 �
�J� 17:� ANIM% � frm=ofrm:�seticon(5,25,�frm):�menoff:�forcedraw:ANIM%=�
�;� 16:� ANIM% � �message(12,"Animation already running")
�e� � �checkanim � �message(11,"Mistake in animation sequence") � �menoff:anstep=0:ofrm=frm:ANIM%=�
��:�
�sݤcheckanim:noanim=0:�:noanim+=1:anim(noanim)=��geticon(0,noanim):� noanim=15 � anim(noanim)=0:� anim(1)=0 � =�
�AT=�:�L%=1 � noanim-1:� anim(L%)<1 � anim(L%)>frms � T=�:� � �
�=T
�
2��animate:anstep+=1:� anstep=noanim � anstep=1
5frm=anim(anstep):�seticon(5,25,�frm):�forcedraw:�
6��oktwoinp:NU1%=��geticon(2,2):NU2%=��geticon(2,3)
*
Ȏ ICL% �
4i� 4:� NU1%<1 � NU2%<1 � NU1%>vts(frm) � NU2%>vts(frm) � �message(9,"Can't swap an undefined vertice")
>�Ȕ vert%(1,NU1%,frm),vert%(1,NU2%,frm):Ȕ vert%(2,NU1%,frm),vert%(2,NU2%,frm):Ȕ vert%(3,NU1%,frm),vert%(3,NU2%,frm):�menoff:�forcedraw
Hi� 5:� NU1%<1 � NU2%<1 � NU1%>sfs(frm) � NU2%>sfs(frm) � �message(9,"Can't swap an undefined surface")
RH� L%=0 � 5:Ȕ sur(NU1%,L%,frm),sur(NU2%,L%,frm):�:�menoff:�forcedraw
\h� 12:� NU1%<1 � NU2%<1 � NU1%>frms � NU2%>frms � �message(9,"Can't copy to/from an undefined frame")
fvts(NU2%)=vts(NU1%):sfs(NU2%)=sfs(NU1%):� vts(NU1%)>0 � �L%=1 � vts(NU1%):�K%=1 � 3:vert%(K%,L%,NU2%)=vert%(K%,L%,NU1%):�:�
pS� sfs(NU1%)>0 � �L%=1 � sfs(NU1%):�K%=0 � 5:sur(L%,K%,NU2%)=sur(L%,K%,NU1%):�:�
z �menoff:�forcedraw:�upcont
��:�
�
� ��number:NU%=��geticon(1,1)
�
Ȏ ICL% �
�J� 1:� NU%<1 � NU%>vts(frm) � �message(6,"That vertice is not defined")
�}�point:�seticon(4,1,�NU%):�seticon(4,6,�vert%(1,NU%,frm)):�seticon(4,7,�vert%(2,NU%,frm)):�seticon(4,8,�vert%(3,NU%,frm))
���menoff:!BLK%=HAND%(4):BLK%!4=MOX%-80:BLK%!8=MOY%-100:BLK%!12=MOX%+380:BLK%!16=MOY%+136:BLK%!20=0:BLK%!24=0:BLK%!28=-1:ș "Wimp_OpenWindow",,BLK%:ș "Wimp_SetCaretPosition",HAND%(4),6,,,-1,�(�vert%(1,NU%,frm))
�J� 3:� NU%<1 � NU%>sfs(frm) � �message(6,"That surface is not defined")
ԕ�point:�seticon(9,1,�NU%):�seticon(9,3,�sur(NU%,1,frm)):�seticon(9,8,�sur(NU%,2,frm)):�seticon(9,7,�sur(NU%,3,frm)):�seticon(9,9,�sur(NU%,4,frm))
���seticon(9,11,�sur(NU%,0,frm)):�seticon(9,13,�sur(NU%,5,frm)):�menoff:!BLK%=HAND%(9):BLK%!4=MOX%-80:BLK%!8=MOY%-100:BLK%!12=MOX%+556:BLK%!16=MOY%+172:BLK%!20=0:BLK%!24=0:BLK%!28=-1:ș "Wimp_OpenWindow",,BLK%
�Aș "Wimp_SetCaretPosition",HAND%(9),3,,,-1,�(�sur(NU%,1,frm))
�J� 6:� NU%<1 � NU%>vts(frm) � �message(6,"That vertice is not defined")
�� sfs(frm)=0 � �TZN
IIU=�:�L%=1 � sfs(frm):�K%=1 � 4:� sur(L%,K%,frm)=NU% � IU=�:�:� � �:�
1� IU=� � �message(8,"That vertice is in use")
�� NU%=vts(frm) � vts(frm)-=1 � �L%=NU%+1 � vts(frm):�K%=1 � 3:vert%(K%,L%-1,frm)=vert%(K%,L%,frm):�:�:vts(frm)-=1:� sfs(frm)=0 � � �TnN
$Q�L%=1 � sfs(frm):�K%=1 � 4:� sur(L%,K%,frm)>NU% � sur(L%,K%,frm)-=1:�:� � �:�
./�menoff:�forcedraw:�seticon(5,16,�vts(frm))
8J� 7:� NU%<1 � NU%>sfs(frm) � �message(6,"That surface is not defined")
Bq� NU%=sfs(frm) � sfs(frm)-=1 � �L%=NU%+1 � sfs(frm):�K%=0 � 5:sur(L%-1,K%,frm)=sur(L%,K%,frm):�:�:sfs(frm)-=1
L/�menoff:�forcedraw:�seticon(5,24,�sfs(frm))
Vi� 10:� NU%<1 � NU%>frms � �message(10,"That frame is undefined") � frm=NU%:�menoff:�upcont:�forcedraw
`K� 15:� NU%<1 � NU%>sfs(frm) � �message(6,"That surface is not defined")
j`Ȕ sur(NU%,1,frm),sur(NU%,4,frm):Ȕ sur(NU%,2,frm),sur(NU%,3,frm):�menoff:�upcont:�forcedraw
t�
~�
�
�4��adedvert:� BLK%!16<>2 � � � VN%=��geticon(4,1)
�>� VN%>200 � �message(5,"Can only have up to 200 vertices")
�<XC%=��geticon(4,6):YC%=��geticon(4,7):ZC%=��geticon(4,8)
��� VN%>vts(frm) � vts(frm)+=1:vert%(1,vts(frm),frm)=XC%:vert%(2,vts(frm),frm)=YC%:vert%(3,vts(frm),frm)=ZC%:�seticon(5,16,�vts(frm)):� �dDN
�Bvert%(1,NU%,frm)=XC%:vert%(2,NU%,frm)=YC%:vert%(3,NU%,frm)=ZC%
�C�menoff:!BLK%=HAND%(4):ș "Wimp_CloseWindow",,BLK%:�forcedraw:�
�
�;��adedsurf:VN%=0:� BLK%!16<>14 � � � VN%=��geticon(9,1)
�>� VN%>100 � �message(5,"Can only have up to 100 surfaces")
�A� VN%>sfs(frm) � sfs(frm)+=1:�seticon(5,24,�sfs(frm)):NU%=VN%
�KV1=��geticon(9,3):V2=��geticon(9,8):V3=��geticon(9,7):V4=��geticon(9,9)
d� V1<=vts(frm) � V2<=vts(frm) � V3<=vts(frm) � V4<=vts(frm) � V1>0 � V2>0 � V3>0 � V4>0 � � �T^O
4� VN%=NU% � sfs(frm)-=1:�seticon(5,24,�sfs(frm))
@�message(7,"Undefined vertices cannot be used in a surface")
�sur(NU%,1,frm)=��geticon(9,3):sur(NU%,2,frm)=��geticon(9,8):sur(NU%,3,frm)=��geticon(9,7):sur(NU%,4,frm)=��geticon(9,9):sur(NU%,5,frm)=��geticon(9,13):sur(NU%,0,frm)=��geticon(9,11)
(C�menoff:!BLK%=HAND%(9):ș "Wimp_CloseWindow",,BLK%:�forcedraw:�
2
<&��confirm:� BLK%!16<>1 � �menoff:�
FLfrm=�(�geticon(5,25)):sfs(frm)=0:vts(frm)=0:�menoff:�upcont:�forcedraw:�
P
Z��windmenu
dg$MENU%="3View Menu":MENU%?12=7:MENU%?13=2:MENU%?14=7:MENU%?15=0:MENU%!16=300:MENU%!20=44:MENU%!24=0
n�� Add vertice,4,8,Edit vertice,1,8,Add surface,9,8,Edit surface,1,10,Swap vertices,2,8,Swap surfaces,2,10,Delete vertice,1,8,Delete surface,1,10,Animate,0,8,Clear frame,3,10
xk� Frame number,1,8,Add frame,-1,8,Copy Frame,2,10,Wire frame,-1,8,Make Rayfile,10,10,Flip surface,1,136
�y� �DnO:�L%=0 � 15:� A$,B%,C%:MENU%!(28+(L%*24))=C%:� B%>-1 � MENU%!(28+(L%*24)+4)=HAND%(B%) � MENU%!(28+(L%*24)+4)=-1
�lMENU%!(28+(L%*24)+8)=1 � (7<<24) � 256:$(MENU%+500+(L%*20))=A$:MENU%!(28+(L%*24)+12)=(MENU%+500+(L%*20))
�=� L%=13 � WIFR% � MENU%!(28+(L%*24))=MENU%!(28+(L%*24))+1
�VMENU%!(28+(L%*24)+16)=MENU%+900:MENU%!(28+(L%*24)+20)=20:�:$(MENU%+900)="AA-Za-z":
�2ș "Wimp_CreateMenu",,MENU%,MOUX%-64,MOUY%+200
��
�
�Lݤgstr(AD%):W$="":� ?AD%<32 � =W$ � �:W$=W$+�(?AD%):AD%+=1:� ?AD%<32:=W$
�
�jݤgeticon(WH%,IC%):!ICBLK%=HAND%(WH%):ICBLK%!4=IC%:ș "Wimp_GetIconState",,ICBLK%:=�gstr(!(ICBLK%+28))
�
�hݤgetsaveicon(IC%):!ICBLK%=HAND%(8):ICBLK%!4=IC%:ș "Wimp_GetIconState",,ICBLK%:=�gstr(!(ICBLK%+28))
�
hݤgetrayicon(IC%):!ICBLK%=HAND%(10):ICBLK%!4=IC%:ș "Wimp_GetIconState",,ICBLK%:=�gstr(!(ICBLK%+28))
qݤhigh(WH%,IC%):!ICBLK%=HAND%(WH%):ICBLK%!4=IC%:ș "Wimp_GetIconState",,ICBLK%:=((?(ICBLK%+26)) � %100000)=32
"
,��hiticon:Ȏ BLK%!16 �
64� 1:rho%=�(�geticon(5,2))-20:� rho%<50 � rho%=50
@"�seticon(5,2,�rho%):�forcedraw
J8� 3:rho%=�(�geticon(5,2))+20:� rho%>9999 � rho%=9999
T"�seticon(5,2,�rho%):�forcedraw
^G� 5:the%=(�(�geticon(5,6))) � 360:the%-=10:� the%<0 � the%=360+the%
h"�seticon(5,6,�the%):�forcedraw
rG� 7:the%=(�(�geticon(5,6))+10) � 360:�seticon(5,6,�the%):�forcedraw
|H� 9:phi%=(�(�geticon(5,10))) � 360:phi%-=10:� phi%<0 � phi%=360+phi%
�#�seticon(5,10,�phi%):�forcedraw
�J� 11:phi%=(�(�geticon(5,10))+10) � 360:�seticon(5,10,�phi%):�forcedraw
�� 18,19,21:�forcedraw
��
��
�
�5��dragsave:A$=�getname:� dragt%=HAND%(8) � � �d`P
�8�raysave(A$):ș "Wimp_CreateMenu",-1:�setrayname(A$)
�UBLK%!12=BLK%!8:BLK%!16=3:!BLK%=64:ș "Wimp_SendMessage",17,BLK%,BLK%!20,BLK%!24:�
�
�save(A$)
�ș "Wimp_CreateMenu",-1
��setsavename(A$)
�UBLK%!12=BLK%!8:BLK%!16=3:!BLK%=64:ș "Wimp_SendMessage",17,BLK%,BLK%!20,BLK%!24:�
Kݤgetname:W$="":P%=BLK%+44:ȕ ?P%<>0 � ?P%<>13:W$=W$+�(?P%):P%+=1:�:=W$
& ��autoload:A$=LF$:� �DDQ
0
:e��load:ANIM%=�:A$=�getname:BLK%!12=BLK%!8:BLK%!16=4:!BLK%=64:ș "Wimp_SendMessage",17,BLK%,BLK%!4
D� OP%=0 � �openmain
N�setsavename(A$)
XsF%=�(A$):frm=1:�#F%,frms:�L%=1 � 15:�#F%,anim(L%):�seticon(0,L%,�anim(L%)):�:� I%=1 � frms:�#F%,vts(I%),sfs(I%)
bU� vts(I%)>0 � �L%=1 � vts(I%):�#F%,vert%(1,L%,I%),vert%(2,L%,I%),vert%(3,L%,I%):�
lB� sfs(I%)>0 � �L%=1 � sfs(I%):�K%=0 � 5:sur(L%,K%,I%)=�#F%:�:�
vM�:�#F%:DMDE%=-1:ș "Wimp_ForceRedraw",HAND%(6),0,-630,630,0:frm=1:�upcont
��
�
�i��upcont:�seticon(5,16,�vts(frm)):�seticon(5,24,�sfs(frm)):�seticon(5,15,�frms):�seticon(5,25,�frm):�
�-��animret:IC%=(BLK%!4)+1:� IC%>15 � IC%=1
�Bș"Wimp_SetCaretPosition",HAND%(0),IC%,,,-1,��geticon(0,IC%):�
�+��twoinp:IC%=(BLK%!4)+1:� IC%>3 � IC%=2
�Bș"Wimp_SetCaretPosition",HAND%(2),IC%,,,-1,��geticon(2,IC%):�
���contret:Ȏ BLK%!4 �
�/� 2:rho%=��geticon(5,2):� rho%<50 � rho%=50
�"�seticon(5,2,�rho%):�forcedraw
�B� 6:the%=(��geticon(5,6)) � 360:�seticon(5,6,�the%):�forcedraw
�E� 10:phi%=(��geticon(5,10)) � 360:�seticon(5,10,�phi%):�forcedraw
��:�
U��vertret:� BLK%!4=6 � ș"Wimp_SetCaretPosition",HAND%(4),7,,,-1,��geticon(4,7):�
K� BLK%!4=7 � ș"Wimp_SetCaretPosition",HAND%(4),8,,,-1,��geticon(4,8):�
O� BLK%!4=8 � ș"Wimp_SetCaretPosition",HAND%(4),6,,,-1,��geticon(4,6):� � �
*
4g��surfret:� �T~R:�:� F%,T%:� F%=BLK%!4:ș"Wimp_SetCaretPosition",HAND%(9),T%,,,-1,��geticon(9,T%):�
>!� 3,8,8,7,7,9,9,11,11,13,13,3
H
R6��fillanim:�L%=1 � 15:anim(L%)=��geticon(0,L%):�:�
\
fH��hfr:� suno=1 � sfs(frm):�csv(suno):�cnv:�closv(suno):�vt(suno):�:�
p
z���csv(suno):� i=1 � 3:vec1(i)=vert%(i,sur(suno,2,frm),frm)-vert%(i,sur(suno,1,frm),frm):vec2(i)=vert%(i,sur(suno,3,frm),frm)-vert%(i,sur(suno,1,frm),frm):�:�
�
�z��cnv:norx=vec1(2)*vec2(3)-vec2(2)*vec1(3):nory=vec1(3)*vec2(1)-vec2(3)*vec1(1):norz=vec1(1)*vec2(2)-vec2(1)*vec1(2):�
�
����closv(suno):losx=xvw-vert%(1,sur(suno,1,frm),frm):losy=yvw-vert%(2,sur(suno,1,frm),frm):losz=zvw-vert%(3,sur(suno,1,frm),frm):�
�
�>��vt(suno):visible(suno)=norx*losx+nory*losy+norz*losz>0:�
�
�C��pickcol:� C256 � �0,sur(suno,0,frm) Ȝ (sur(suno,5,frm)*64):�
ԚC=sur(suno,0,frm):R=(C � 3)*64:G=(C � 12)*16:B=(C � 48)*4:C=sur(suno,5,frm):R+=C:G+=C:B+=C:CTR%=(B<<24)+(G<<16)+(R<<8):ș "ColourTrans_SetGCOL",CTR%:�
�
�(��tap(suno):� vertexno,startx,starty
�\startx=xs(sur(suno,1,frm)):starty=ys(sur(suno,1,frm)):� startx,starty:� � WIFR% � � �TFS
���pickcol:�5,xs(sur(suno,2,frm)),ys(sur(suno,2,frm)):�5,xs(sur(suno,3,frm)),ys(sur(suno,3,frm)):�5,xs(sur(suno,4,frm)),ys(sur(suno,4,frm)):�5,startx,starty:� �TZS
6� xs(sur(suno,2,frm)),ys(sur(suno,2,frm)):�pickcol
k�85,xs(sur(suno,3,frm)),ys(sur(suno,3,frm)):� xs(sur(suno,4,frm)),ys(sur(suno,4,frm)):�85,startx,starty
.� � �high(5,18) � � � � �high(5,21) � �TxS
$� � �high(5,19) � �
.�5:�0,63 Ȝ 192:�L%=1 � 4:vus(sur(suno,L%,frm))=1:�4,xs(sur(suno,L%,frm)),ys(sur(suno,L%,frm)):�;sur(suno,L%,frm);:�:�4:�:�
8��5:�0,63 Ȝ 192:px=(xs(sur(suno,1,frm))+xs(sur(suno,3,frm)))/2:py=(ys(sur(suno,1,frm))+ys(sur(suno,3,frm)))/2:�4,px,py:�;suno;:�4:�
B�
L
V���ivt(rho%,the%,phi%):cthe=�(�(the%)):sthe=�(�(the%)):cphi=�(�(phi%)):sphi=�(�(phi%)):va=-sthe:vb=cthe:ve=-cthe*cphi:vf=-sthe*cphi:vg=sphi:vi=-cthe*sphi:vj=-sthe*sphi:vk=-cphi:vl=rho%:�
`
jG��vitr(x,y,z):xe=va*x+vb*y:ye=ve*x+vf*y+vg*z:ze=vi*x+vj*y+vk*z+vl:�
t
~.��petr(xe,ye,ze,d):sx=d*xe/ze:sy=d*ye/ze:�
�
���woco:� v=1 � vts(frm):�vitr(vert%(1,v,frm),vert%(2,v,frm),vert%(3,v,frm)):z(v)=ze:�petr(xe,ye,ze,d):xs(v)=sx:ys(v)=sy:�:�
����draw(I%):ș "OS_SpriteOp",316,SPRITE,"VIEW" � V1,V2,V3,V4:TS%=frm:frm=I%:�29,315;315;:ș "OS_ReadModeVariable",-1,3 � ,,NC%:� NC%=63 � C256=� � C256=�:�0,135:�
�_vus()=0:�ivt(rho%,the%,phi%):xvw=rho%*sphi*cthe:yvw=rho%*sphi*sthe:zvw=rho%*cphi:�hfr:�woco
�E�deso:�premvert:� WIFR% � � suno=1 � sfs(frm):�tap(suno):�:� �dNS
� � vis=0 � �premvert:� �dNS
�%� suno=1 � vis:�tap(de(suno,0)):�
�3frm=TS%:�29,0;0;:ș "OS_SpriteOp",V1,V2,V3,V4:�
�
�(��deso:vis=0:de()=0:� sfs(frm)=0 � �
�L�L%=1 � sfs(frm):� visible(L%) � vis+=1:de(vis,0)=L%:de(vis,1)=vis:� � �
��L%=1 � vis
kmax=z(sur(de(L%,0),1,frm)):� K%=2 � 4:� z(sur(de(L%,0),K%,frm))>max � max=z(sur(de(L%,0),K%,frm)):� � �
de(L%,1)=max:�
!�L%=1 � vis-1:�K%=L%+1 � vis:
�� de(K%,1)>de(L%,1) � Ȕ de(K%,1),de(L%,1):Ȕ de(K%,0),de(L%,0) � � de(K%,1)=de(L%,1) � de(K%,0)<de(L%,0) � Ȕ de(K%,1),de(L%,1):Ȕ de(K%,0),de(L%,0)
( �:�:�
2
</��premvert:� vts(frm)=0 � � �high(5,18) � �
F� � �high(5,19) � �
PI�0,60 Ȝ 192:�5:�L%=1 � vts(frm):� vus(L%)=0 � �4,xs(L%),ys(L%):�;L%;
Z �:�4:�:�
d
nݤangle(X%,Y%)
xC� X%=0 � Y%>0 � =90 � � X%=0 � Y%<0 � =270 � � X%=0 � Y%=0 � =0
�(A=�(�(Y%/X%)):� X%<0 � Y%>0 � =180+A
�� X%<0 � =180+A
�� Y%<0 � =360+A
�=A
� 00000000 0d 00 0a 20 f4 20 3e 3c 54 68 72 65 65 56 69 65 |... . ><ThreeVie|
00000010 77 24 44 69 72 3e 2e 21 52 75 6e 49 6d 61 67 65 |w$Dir>.!RunImage|
00000020 0d 00 14 0f ee 20 85 20 f2 6d 61 6b 65 72 72 0d |..... . .makerr.|
00000030 00 1e 5a c8 99 20 22 4f 53 5f 47 65 74 45 6e 76 |..Z.. "OS_GetEnv|
00000040 22 20 b8 20 41 24 3a c8 99 20 22 4f 53 5f 47 65 |" . A$:.. "OS_Ge|
00000050 74 45 6e 76 22 20 b8 20 41 24 3a e7 20 c2 41 24 |tEnv" . A$:. .A$|
00000060 2c 31 29 3c 3e 22 20 22 20 8c 20 4c 46 24 3d c1 |,1)<>" " . LF$=.|
00000070 41 24 2c a7 41 24 2c 22 22 22 20 22 29 2b 32 29 |A$,.A$,""" ")+2)|
00000080 20 8b 20 4c 46 24 3d 22 22 0d 00 28 0a f2 73 65 | . LF$=""..(..se|
00000090 74 75 70 0d 00 32 19 e7 20 4c 46 24 3c 3e 22 22 |tup..2.. LF$<>""|
000000a0 20 8c 20 f2 61 75 74 6f 6c 6f 61 64 0d 00 3c 0b | . .autoload..<.|
000000b0 f2 61 63 74 69 6f 6e 0d 00 46 08 f2 64 69 65 0d |.action..F..die.|
000000c0 00 50 05 e0 0d 00 5a 2a dd f2 73 65 74 75 70 3a |.P....Z*..setup:|
000000d0 4f 50 25 3d 30 3a 44 4d 44 45 25 3d 2d 31 3a 41 |OP%=0:DMDE%=-1:A|
000000e0 4e 49 4d 25 3d a3 3a 57 49 46 52 25 3d a3 0d 00 |NIM%=.:WIFR%=...|
000000f0 64 bc de 20 69 63 78 25 28 34 30 29 2c 69 63 79 |d.. icx%(40),icy|
00000100 25 28 34 30 29 2c 69 63 6c 25 28 34 30 29 2c 69 |%(40),icl%(40),i|
00000110 63 68 25 28 34 30 29 2c 76 74 73 28 31 35 29 2c |ch%(40),vts(15),|
00000120 73 66 73 28 31 35 29 2c 76 75 73 28 32 30 30 29 |sfs(15),vus(200)|
00000130 2c 76 65 72 74 25 28 33 2c 32 30 30 2c 31 35 29 |,vert%(3,200,15)|
00000140 2c 73 75 72 28 31 30 30 2c 35 2c 31 35 29 2c 64 |,sur(100,5,15),d|
00000150 65 28 31 30 30 2c 31 29 2c 7a 28 32 30 30 29 2c |e(100,1),z(200),|
00000160 76 65 63 31 28 33 29 2c 76 65 63 32 28 33 29 2c |vec1(3),vec2(3),|
00000170 78 73 28 32 30 30 29 2c 79 73 28 32 30 30 29 2c |xs(200),ys(200),|
00000180 76 69 73 69 62 6c 65 28 31 30 30 29 2c 61 6e 69 |visible(100),ani|
00000190 6d 28 31 35 29 2c 54 58 25 28 34 29 2c 54 59 25 |m(15),TX%(4),TY%|
000001a0 28 34 29 2c 54 5a 25 28 34 29 0d 00 6e 4c 76 74 |(4),TZ%(4)..nLvt|
000001b0 73 28 29 3d 30 3a 6f 70 74 3d 31 3a 73 66 73 28 |s()=0:opt=1:sfs(|
000001c0 29 3d 30 3a 66 72 6d 73 3d 31 3a 66 72 6d 3d 31 |)=0:frms=1:frm=1|
000001d0 3a 72 68 6f 25 3d 35 30 30 3a 74 68 65 25 3d 39 |:rho%=500:the%=9|
000001e0 30 3a 70 68 69 25 3d 39 30 3a 64 3d 31 30 30 30 |0:phi%=90:d=1000|
000001f0 3a 6d 72 6b 3d b9 0d 00 78 80 de 20 50 4f 49 25 |:mrk=...x.. POI%|
00000200 20 32 35 36 2c 54 41 53 25 20 32 30 30 30 2c 42 | 256,TAS% 2000,B|
00000210 4c 4b 25 20 31 30 30 30 2c 4d 45 4e 55 25 20 31 |LK% 1000,MENU% 1|
00000220 30 30 30 2c 53 45 4c 25 20 32 35 36 2c 49 43 42 |000,SEL% 256,ICB|
00000230 4c 4b 25 20 32 35 36 2c 53 50 52 49 54 45 20 35 |LK% 256,SPRITE 5|
00000240 30 30 30 30 3a 21 53 50 52 49 54 45 3d 35 30 30 |0000:!SPRITE=500|
00000250 30 30 3a 53 50 52 49 54 45 21 34 3d 30 3a 53 50 |00:SPRITE!4=0:SP|
00000260 52 49 54 45 21 38 3d 31 36 3a 53 50 52 49 54 45 |RITE!8=16:SPRITE|
00000270 21 31 32 3d 31 36 0d 00 82 42 24 54 41 53 25 3d |!12=16...B$TAS%=|
00000280 22 54 41 53 4b 22 3a c8 99 22 57 69 6d 70 5f 49 |"TASK":.."Wimp_I|
00000290 6e 69 74 69 61 6c 69 73 65 22 2c 32 30 30 2c 21 |nitialise",200,!|
000002a0 54 41 53 25 2c 22 54 68 72 65 65 56 69 65 77 22 |TAS%,"ThreeView"|
000002b0 20 b8 20 48 41 4e 44 25 0d 00 8c 10 f2 6c 6f 61 | . HAND%.....loa|
000002c0 64 73 70 72 69 74 65 73 0d 00 96 42 21 42 4c 4b |dsprites...B!BLK|
000002d0 25 3d 2d 31 3a 42 4c 4b 25 21 34 3d 30 3a 42 4c |%=-1:BLK%!4=0:BL|
000002e0 4b 25 21 38 3d 30 3a 42 4c 4b 25 21 31 32 3d 36 |K%!8=0:BLK%!12=6|
000002f0 34 3a 42 4c 4b 25 21 31 36 3d 36 34 3a 42 4c 4b |4:BLK%!16=64:BLK|
00000300 25 21 32 30 3d 26 32 31 30 32 0d 00 a0 44 de 20 |%!20=&2102...D. |
00000310 42 4c 4b 25 21 32 34 20 31 30 3a 24 28 42 4c 4b |BLK%!24 10:$(BLK|
00000320 25 21 32 34 29 3d 22 21 54 68 72 65 65 56 69 65 |%!24)="!ThreeVie|
00000330 77 22 3a 42 4c 4b 25 21 32 38 3d 53 50 52 49 54 |w":BLK%!28=SPRIT|
00000340 45 53 25 3a 42 4c 4b 25 21 33 32 3d 31 30 0d 00 |ES%:BLK%!32=10..|
00000350 aa 34 46 25 3d 8e 28 22 3c 54 68 72 65 65 56 69 |.4F%=.("<ThreeVi|
00000360 65 77 24 44 69 72 3e 2e 52 65 6e 64 42 61 73 65 |ew$Dir>.RendBase|
00000370 22 29 3a 52 45 45 58 25 3d a2 23 46 25 3a d9 23 |"):REEX%=.#F%:.#|
00000380 46 25 0d 00 b4 11 de 20 52 45 4e 44 25 20 52 45 |F%..... REND% RE|
00000390 45 58 25 0d 00 be 2f ff 28 22 4c 4f 41 44 20 3c |EX%.../.("LOAD <|
000003a0 54 68 72 65 65 56 69 65 77 24 44 69 72 3e 2e 52 |ThreeView$Dir>.R|
000003b0 65 6e 64 42 61 73 65 20 22 2b c3 7e 52 45 4e 44 |endBase "+.~REND|
000003c0 25 29 0d 00 c8 28 c8 99 20 22 57 69 6d 70 5f 43 |%)...(.. "Wimp_C|
000003d0 72 65 61 74 65 49 63 6f 6e 22 2c 2c 42 4c 4b 25 |reateIcon",,BLK%|
000003e0 20 b8 20 49 43 48 41 4e 44 25 0d 00 d2 37 c8 99 | . ICHAND%...7..|
000003f0 20 22 57 69 6d 70 5f 4f 70 65 6e 54 65 6d 70 6c | "Wimp_OpenTempl|
00000400 61 74 65 22 2c 2c 22 3c 54 68 72 65 65 56 69 65 |ate",,"<ThreeVie|
00000410 77 24 44 69 72 3e 2e 54 65 6d 70 6c 61 74 65 73 |w$Dir>.Templates|
00000420 22 0d 00 dc 7c de 20 53 54 4f 52 45 25 20 28 32 |"...|. STORE% (2|
00000430 32 2a 31 30 32 34 29 2c 42 55 46 25 28 31 30 29 |2*1024),BUF%(10)|
00000440 2c 49 4e 44 49 52 25 28 31 30 29 2c 48 41 4e 44 |,INDIR%(10),HAND|
00000450 25 28 31 30 29 3a e3 4c 25 3d 30 20 b8 20 31 30 |%(10):.L%=0 . 10|
00000460 3a 42 55 46 25 28 4c 25 29 3d 53 54 4f 52 45 25 |:BUF%(L%)=STORE%|
00000470 2b 28 4c 25 2a 31 30 32 34 29 3a 49 4e 44 49 52 |+(L%*1024):INDIR|
00000480 25 28 4c 25 29 3d 53 54 4f 52 45 25 2b 28 28 4c |%(L%)=STORE%+((L|
00000490 25 2b 31 31 29 2a 31 30 32 34 29 3a ed 0d 00 e6 |%+11)*1024):....|
000004a0 54 dc 20 41 6e 69 6d 61 74 65 2c 44 65 6c 65 74 |T. Animate,Delet|
000004b0 65 2c 53 77 61 70 2c 43 6f 6e 66 69 72 6d 2c 61 |e,Swap,Confirm,a|
000004c0 64 2f 65 64 2f 76 65 72 74 2c 43 6f 6e 74 72 6f |d/ed/vert,Contro|
000004d0 6c 2c 56 69 65 77 2c 49 6e 66 6f 2c 53 61 76 65 |l,View,Info,Save|
000004e0 2c 61 64 2f 65 64 2f 73 75 72 66 2c 73 61 76 65 |,ad/ed/surf,save|
000004f0 32 0d 00 f0 60 f7 20 8d 64 66 40 3a e3 4b 25 3d |2...`. .df@:.K%=|
00000500 30 20 b8 20 31 30 3a f3 20 41 24 3a c8 99 20 22 |0 . 10:. A$:.. "|
00000510 57 69 6d 70 5f 4c 6f 61 64 54 65 6d 70 6c 61 74 |Wimp_LoadTemplat|
00000520 65 22 2c 2c 42 55 46 25 28 4b 25 29 2c 49 4e 44 |e",,BUF%(K%),IND|
00000530 49 52 25 28 4b 25 29 2c 49 4e 44 49 52 25 28 4b |IR%(K%),INDIR%(K|
00000540 25 29 2b 31 30 32 34 2c 2d 31 2c 41 24 2c 30 3a |%)+1024,-1,A$,0:|
00000550 ed 0d 00 fa 49 f7 20 8d 64 66 40 3a e3 4b 25 3d |....I. .df@:.K%=|
00000560 30 20 b8 20 31 30 3a f3 20 41 24 3a c8 99 20 22 |0 . 10:. A$:.. "|
00000570 57 69 6d 70 5f 43 72 65 61 74 65 57 69 6e 64 6f |Wimp_CreateWindo|
00000580 77 22 2c 2c 42 55 46 25 28 4b 25 29 20 b8 20 48 |w",,BUF%(K%) . H|
00000590 41 4e 44 25 28 4b 25 29 3a ed 0d 01 04 1b c8 99 |AND%(K%):.......|
000005a0 20 22 57 69 6d 70 5f 43 6c 6f 73 65 54 65 6d 70 | "Wimp_CloseTemp|
000005b0 6c 61 74 65 22 0d 01 0e 05 e1 0d 01 18 04 0d 01 |late"...........|
000005c0 22 11 dd f2 6c 6f 61 64 73 70 72 69 74 65 73 0d |"...loadsprites.|
000005d0 01 2c 13 de 20 53 50 52 49 54 45 53 25 20 32 30 |.,.. SPRITES% 20|
000005e0 30 30 0d 01 36 6b 21 53 50 52 49 54 45 53 25 3d |00..6k!SPRITES%=|
000005f0 32 30 30 30 3a 53 50 52 49 54 45 53 25 21 34 3d |2000:SPRITES%!4=|
00000600 30 3a 53 50 52 49 54 45 53 25 21 38 3d 31 36 3a |0:SPRITES%!8=16:|
00000610 53 50 52 49 54 45 53 25 21 31 32 3d 31 36 3a c8 |SPRITES%!12=16:.|
00000620 99 20 26 32 45 2c 32 36 36 2c 53 50 52 49 54 45 |. &2E,266,SPRITE|
00000630 53 25 2c 22 3c 54 68 72 65 65 56 69 65 77 24 44 |S%,"<ThreeView$D|
00000640 69 72 3e 2e 21 53 70 72 69 74 65 73 22 0d 01 40 |ir>.!Sprites"..@|
00000650 05 e1 0d 01 4a 0c dd f2 61 63 74 69 6f 6e 0d 01 |....J...action..|
00000660 54 05 f5 0d 01 5e 09 f2 70 6f 6c 6c 0d 01 68 27 |T....^..poll..h'|
00000670 fd 20 28 52 45 41 53 25 3d 31 37 20 84 20 52 45 |. (REAS%=17 . RE|
00000680 41 53 25 3d 31 38 29 20 80 20 42 4c 4b 25 21 31 |AS%=18) . BLK%!1|
00000690 36 3d 30 0d 01 72 05 e1 0d 01 7c 0f dd f2 64 69 |6=0..r....|...di|
000006a0 65 3a 4f 50 25 3d 30 0d 01 86 23 c8 99 20 22 57 |e:OP%=0...#.. "W|
000006b0 69 6d 70 5f 43 6c 6f 73 65 44 6f 77 6e 22 2c 48 |imp_CloseDown",H|
000006c0 41 4e 44 25 2c 21 54 41 53 25 0d 01 90 05 e0 0d |AND%,!TAS%......|
000006d0 01 9a 05 e1 0d 01 a4 0a dd f2 70 6f 6c 6c 0d 01 |..........poll..|
000006e0 ae 1f 21 42 4c 4b 25 3d 25 31 30 30 31 31 31 31 |..!BLK%=%1001111|
000006f0 31 31 31 30 30 30 30 31 31 30 30 30 30 0d 01 b8 |1110000110000...|
00000700 21 c8 99 20 22 57 69 6d 70 5f 50 6f 6c 6c 22 2c |!.. "Wimp_Poll",|
00000710 30 2c 42 4c 4b 25 20 b8 20 52 45 41 53 25 0d 01 |0,BLK% . REAS%..|
00000720 c2 15 e7 20 52 45 41 53 25 3e 2d 31 20 8c 20 f2 |... REAS%>-1 . .|
00000730 61 63 74 0d 01 cc 05 e1 0d 01 d6 09 dd f2 61 63 |act...........ac|
00000740 74 0d 01 e0 0e c8 8e 20 52 45 41 53 25 20 ca 0d |t...... REAS% ..|
00000750 01 ea 1a c9 20 30 3a e7 20 41 4e 49 4d 25 20 8c |.... 0:. ANIM% .|
00000760 20 f2 61 6e 69 6d 61 74 65 0d 01 f4 0f c9 20 31 | .animate..... 1|
00000770 3a f2 72 65 64 72 61 77 0d 01 fe 0f c9 20 32 3a |:.redraw..... 2:|
00000780 f2 6f 70 6d 61 69 6e 0d 02 08 0f c9 20 33 3a f2 |.opmain..... 3:.|
00000790 63 6c 6d 61 69 6e 0d 02 12 0e c9 20 36 3a f2 6d |clmain..... 6:.m|
000007a0 6f 75 73 65 0d 02 1c 11 c9 20 38 3a f2 6b 65 79 |ouse..... 8:.key|
000007b0 70 72 65 73 73 0d 02 26 0d c9 20 39 3a f2 6d 65 |press..&.. 9:.me|
000007c0 6e 75 0d 02 30 10 c9 20 37 3a f2 64 72 61 67 66 |nu..0.. 7:.dragf|
000007d0 69 6e 0d 02 3a 1f c9 20 31 37 2c 31 38 3a f2 69 |in..:.. 17,18:.i|
000007e0 6e 6d 65 73 73 61 67 65 28 42 4c 4b 25 21 31 36 |nmessage(BLK%!16|
000007f0 29 0d 02 44 05 cb 0d 02 4e 05 e1 0d 02 58 87 dd |)..D....N....X..|
00000800 f2 66 6f 72 63 65 64 72 61 77 3a 21 42 4c 4b 25 |.forcedraw:!BLK%|
00000810 3d 48 41 4e 44 25 28 36 29 3a 42 4c 4b 25 21 34 |=HAND%(6):BLK%!4|
00000820 3d 30 3a 42 4c 4b 25 21 38 3d 2d 36 32 32 3a 42 |=0:BLK%!8=-622:B|
00000830 4c 4b 25 21 31 32 3d 36 33 30 3a 42 4c 4b 25 21 |LK%!12=630:BLK%!|
00000840 31 36 3d 30 3a c8 99 20 22 57 69 6d 70 5f 55 70 |16=0:.. "Wimp_Up|
00000850 64 61 74 65 57 69 6e 64 6f 77 22 2c 2c 42 4c 4b |dateWindow",,BLK|
00000860 25 20 b8 20 46 49 4e 25 3a f2 67 65 74 6f 72 3a |% . FIN%:.getor:|
00000870 f2 64 72 61 77 73 70 72 69 74 65 3a 44 4d 45 25 |.drawsprite:DME%|
00000880 3d eb 0d 02 62 3f c8 95 20 46 49 4e 25 3a f2 70 |=...b?.. FIN%:.p|
00000890 6c 6f 74 6f 62 6a 65 63 74 3a c8 99 20 22 57 69 |lotobject:.. "Wi|
000008a0 6d 70 5f 47 65 74 52 65 63 74 61 6e 67 6c 65 22 |mp_GetRectangle"|
000008b0 2c 2c 42 4c 4b 25 20 b8 20 46 49 4e 25 3a ce 3a |,,BLK% . FIN%:.:|
000008c0 e1 0d 02 6c 0c dd f2 72 65 64 72 61 77 0d 02 76 |...l...redraw..v|
000008d0 27 c8 99 20 22 57 69 6d 70 5f 52 65 64 72 61 77 |'.. "Wimp_Redraw|
000008e0 57 69 6e 64 6f 77 22 2c 2c 42 4c 4b 25 20 b8 20 |Window",,BLK% . |
000008f0 46 49 4e 25 0d 02 80 2b f2 67 65 74 6f 72 3a e7 |FIN%...+.getor:.|
00000900 20 44 4d 44 45 25 3c 3e eb 20 8c 20 f2 64 72 61 | DMDE%<>. . .dra|
00000910 77 73 70 72 69 74 65 3a 44 4d 44 45 25 3d eb 0d |wsprite:DMDE%=..|
00000920 02 8a 3b c8 95 20 46 49 4e 25 3a f2 70 6c 6f 74 |..;.. FIN%:.plot|
00000930 6f 62 6a 65 63 74 3a c8 99 20 22 57 69 6d 70 5f |object:.. "Wimp_|
00000940 47 65 74 52 65 63 74 61 6e 67 6c 65 22 2c 2c 42 |GetRectangle",,B|
00000950 4c 4b 25 20 b8 20 46 49 4e 25 0d 02 94 05 ce 0d |LK% . FIN%......|
00000960 02 9e 05 e1 0d 02 a8 43 dd f2 70 6c 6f 74 6f 62 |.......C..plotob|
00000970 6a 65 63 74 3a c8 99 20 22 4f 53 5f 53 70 72 69 |ject:.. "OS_Spri|
00000980 74 65 4f 70 22 2c 32 39 30 2c 53 50 52 49 54 45 |teOp",290,SPRITE|
00000990 2c 22 56 49 45 57 22 2c 57 4f 58 25 2c 57 4f 59 |,"VIEW",WOX%,WOY|
000009a0 25 2d 36 32 36 3a e1 0d 02 b2 12 dd f2 6f 70 6d |%-626:.......opm|
000009b0 61 69 6e 3a 4f 50 25 3d 31 0d 02 bc 1e c8 99 20 |ain:OP%=1...... |
000009c0 22 57 69 6d 70 5f 4f 70 65 6e 57 69 6e 64 6f 77 |"Wimp_OpenWindow|
000009d0 22 2c 2c 42 4c 4b 25 0d 02 c6 05 e1 0d 02 d0 12 |",,BLK%.........|
000009e0 dd f2 63 6c 6d 61 69 6e 3a 4f 50 25 3d 30 0d 02 |..clmain:OP%=0..|
000009f0 da 5d c8 99 20 22 57 69 6d 70 5f 43 6c 6f 73 65 |.].. "Wimp_Close|
00000a00 57 69 6e 64 6f 77 22 2c 2c 42 4c 4b 25 3a e7 20 |Window",,BLK%:. |
00000a10 21 42 4c 4b 25 3d 48 41 4e 44 25 28 36 29 20 8c |!BLK%=HAND%(6) .|
00000a20 20 21 42 4c 4b 25 3d 48 41 4e 44 25 28 35 29 3a | !BLK%=HAND%(5):|
00000a30 c8 99 20 22 57 69 6d 70 5f 43 6c 6f 73 65 57 69 |.. "Wimp_CloseWi|
00000a40 6e 64 6f 77 22 2c 2c 42 4c 4b 25 0d 02 e4 05 e1 |ndow",,BLK%.....|
00000a50 0d 02 ee 0c dd f2 6d 61 6b 65 72 72 0d 02 f8 18 |......makerr....|
00000a60 c8 99 20 22 57 69 6d 70 5f 44 72 61 67 42 6f 78 |.. "Wimp_DragBox|
00000a70 22 2c 2c 30 0d 03 02 0b 21 42 4c 4b 25 3d 9f 0d |",,0....!BLK%=..|
00000a80 03 0c 08 45 52 3d b9 0d 03 16 0a c8 8e 20 9f 20 |...ER=....... . |
00000a90 ca 0d 03 20 47 c9 20 32 32 32 3a 24 28 42 4c 4b |... G. 222:$(BLK|
00000aa0 25 2b 34 29 3d 22 46 69 6c 65 20 63 61 6e 6e 6f |%+4)="File canno|
00000ab0 74 20 62 65 20 66 6f 75 6e 64 20 28 61 74 20 6c |t be found (at l|
00000ac0 69 6e 65 20 22 2b c3 28 9e 29 2b 22 29 22 2b bd |ine "+.(.)+")"+.|
00000ad0 28 30 29 3a 45 52 3d a3 0d 03 2a 05 7f 0d 03 34 |(0):ER=...*....4|
00000ae0 26 24 28 42 4c 4b 25 2b 34 29 3d f6 24 2b 22 20 |&$(BLK%+4)=.$+" |
00000af0 61 74 20 6c 69 6e 65 20 22 2b c3 28 9e 29 2b bd |at line "+.(.)+.|
00000b00 28 30 29 0d 03 3e 05 cb 0d 03 48 2c c8 99 20 22 |(0)..>....H,.. "|
00000b10 57 69 6d 70 5f 52 65 70 6f 72 74 45 72 72 6f 72 |Wimp_ReportError|
00000b20 22 2c 42 4c 4b 25 2c 31 2c 22 54 68 72 65 65 56 |",BLK%,1,"ThreeV|
00000b30 69 65 77 22 0d 03 52 1b e7 20 45 52 20 8c 20 f2 |iew"..R.. ER . .|
00000b40 64 69 65 20 8b 20 f2 61 63 74 69 6f 6e 3a e0 0d |die . .action:..|
00000b50 03 5c 05 e1 0d 03 66 0b dd f2 6d 6f 75 73 65 0d |.\....f...mouse.|
00000b60 03 70 37 4d 4f 55 58 25 3d 21 42 4c 4b 25 3a 4d |.p7MOUX%=!BLK%:M|
00000b70 4f 55 59 25 3d 42 4c 4b 25 21 34 3a 4d 4f 55 42 |OUY%=BLK%!4:MOUB|
00000b80 25 3d 42 4c 4b 25 21 38 3a 4d 4f 55 48 25 3d 42 |%=BLK%!8:MOUH%=B|
00000b90 4c 4b 25 21 31 32 0d 03 7a 17 e7 20 4d 4f 55 42 |LK%!12..z.. MOUB|
00000ba0 25 3d 31 20 8c 20 4d 4f 55 42 25 3d 34 0d 03 84 |%=1 . MOUB%=4...|
00000bb0 0e c8 8e 20 4d 4f 55 42 25 20 ca 0d 03 8e 12 c9 |... MOUB% ......|
00000bc0 20 34 3a c8 8e 20 4d 4f 55 48 25 20 ca 0d 03 98 | 4:.. MOUH% ....|
00000bd0 12 c9 20 2d 32 3a f2 6f 70 65 6e 6d 61 69 6e 0d |.. -2:.openmain.|
00000be0 03 a2 17 c9 20 48 41 4e 44 25 28 35 29 3a f2 68 |.... HAND%(5):.h|
00000bf0 69 74 69 63 6f 6e 0d 03 ac 18 c9 20 48 41 4e 44 |iticon..... HAND|
00000c00 25 28 38 29 3a f2 73 61 76 65 77 69 6e 64 0d 03 |%(8):.savewind..|
00000c10 b6 18 c9 20 48 41 4e 44 25 28 31 30 29 3a f2 72 |... HAND%(10):.r|
00000c20 61 79 77 69 6e 64 0d 03 c0 17 c9 20 48 41 4e 44 |aywind..... HAND|
00000c30 25 28 33 29 3a f2 63 6f 6e 66 69 72 6d 0d 03 ca |%(3):.confirm...|
00000c40 18 c9 20 48 41 4e 44 25 28 34 29 3a f2 61 64 65 |.. HAND%(4):.ade|
00000c50 64 76 65 72 74 0d 03 d4 18 c9 20 48 41 4e 44 25 |dvert..... HAND%|
00000c60 28 39 29 3a f2 61 64 65 64 73 75 72 66 0d 03 de |(9):.adedsurf...|
00000c70 16 c9 20 48 41 4e 44 25 28 31 29 3a f2 6e 75 6d |.. HAND%(1):.num|
00000c80 62 65 72 0d 03 e8 18 c9 20 48 41 4e 44 25 28 32 |ber..... HAND%(2|
00000c90 29 3a f2 6f 6b 74 77 6f 69 6e 70 0d 03 f2 16 c9 |):.oktwoinp.....|
00000ca0 20 48 41 4e 44 25 28 30 29 3a f2 61 6e 69 6d 72 | HAND%(0):.animr|
00000cb0 73 0d 03 fc 05 cb 0d 04 06 3d c9 20 32 3a e7 20 |s........=. 2:. |
00000cc0 4d 4f 55 48 25 3d 2d 32 20 8c 20 f2 69 63 6f 6e |MOUH%=-2 . .icon|
00000cd0 6d 65 6e 75 20 8b 20 e7 20 4d 4f 55 48 25 3d 48 |menu . . MOUH%=H|
00000ce0 41 4e 44 25 28 36 29 20 8c 20 f2 77 69 6e 64 6d |AND%(6) . .windm|
00000cf0 65 6e 75 0d 04 10 48 c9 20 31 36 2c 36 34 3a 64 |enu...H. 16,64:d|
00000d00 72 61 67 74 25 3d 4d 4f 55 48 25 3a e7 20 4d 4f |ragt%=MOUH%:. MO|
00000d10 55 48 25 3d 48 41 4e 44 25 28 38 29 20 84 20 4d |UH%=HAND%(8) . M|
00000d20 4f 55 48 25 3d 48 41 4e 44 25 28 31 30 29 20 8c |OUH%=HAND%(10) .|
00000d30 20 f2 73 74 61 72 74 64 72 61 67 0d 04 1a 05 cb | .startdrag.....|
00000d40 0d 04 24 05 e1 0d 04 2e 26 dd f2 6d 65 6e 6f 66 |..$.....&..menof|
00000d50 66 3a c8 99 20 22 57 69 6d 70 5f 43 72 65 61 74 |f:.. "Wimp_Creat|
00000d60 65 4d 65 6e 75 22 2c 2d 31 3a e1 0d 04 38 0e dd |eMenu",-1:...8..|
00000d70 f2 69 63 6f 6e 6d 65 6e 75 0d 04 42 66 24 4d 45 |.iconmenu..Bf$ME|
00000d80 4e 55 25 3d 22 54 68 72 65 65 56 69 65 77 22 3a |NU%="ThreeView":|
00000d90 4d 45 4e 55 25 3f 31 32 3d 37 3a 4d 45 4e 55 25 |MENU%?12=7:MENU%|
00000da0 3f 31 33 3d 32 3a 4d 45 4e 55 25 3f 31 34 3d 37 |?13=2:MENU%?14=7|
00000db0 3a 4d 45 4e 55 25 3f 31 35 3d 30 3a 4d 45 4e 55 |:MENU%?15=0:MENU|
00000dc0 25 21 31 36 3d 31 30 30 3a 4d 45 4e 55 25 21 32 |%!16=100:MENU%!2|
00000dd0 30 3d 34 34 3a 4d 45 4e 55 25 21 32 34 3d 30 0d |0=44:MENU%!24=0.|
00000de0 04 4c 48 4d 45 4e 55 25 21 32 38 3d 30 3a 4d 45 |.LHMENU%!28=0:ME|
00000df0 4e 55 25 21 33 32 3d 48 41 4e 44 25 28 37 29 3a |NU%!32=HAND%(7):|
00000e00 4d 45 4e 55 25 21 33 36 3d 31 20 84 20 28 37 3c |MENU%!36=1 . (7<|
00000e10 3c 32 34 29 3a 24 28 4d 45 4e 55 25 2b 34 30 29 |<24):$(MENU%+40)|
00000e20 3d 22 49 6e 66 6f 22 0d 04 56 48 4d 45 4e 55 25 |="Info"..VHMENU%|
00000e30 21 35 32 3d 32 3a 4d 45 4e 55 25 21 35 36 3d 48 |!52=2:MENU%!56=H|
00000e40 41 4e 44 25 28 38 29 3a 4d 45 4e 55 25 21 36 30 |AND%(8):MENU%!60|
00000e50 3d 31 20 84 20 28 37 3c 3c 32 34 29 3a 24 28 4d |=1 . (7<<24):$(M|
00000e60 45 4e 55 25 2b 36 34 29 3d 22 53 61 76 65 22 0d |ENU%+64)="Save".|
00000e70 04 60 44 4d 45 4e 55 25 21 37 36 3d 31 32 38 3a |.`DMENU%!76=128:|
00000e80 4d 45 4e 55 25 21 38 30 3d 2d 31 3a 4d 45 4e 55 |MENU%!80=-1:MENU|
00000e90 25 21 38 34 3d 31 20 84 20 28 37 3c 3c 32 34 29 |%!84=1 . (7<<24)|
00000ea0 3a 24 28 4d 45 4e 55 25 2b 38 38 29 3d 22 51 75 |:$(MENU%+88)="Qu|
00000eb0 69 74 22 0d 04 6a 2c c8 99 20 22 57 69 6d 70 5f |it"..j,.. "Wimp_|
00000ec0 43 72 65 61 74 65 4d 65 6e 75 22 2c 2c 4d 45 4e |CreateMenu",,MEN|
00000ed0 55 25 2c 4d 4f 55 58 25 2d 36 34 2c 32 35 32 0d |U%,MOUX%-64,252.|
00000ee0 04 74 05 e1 0d 04 7e 0a dd f2 6d 65 6e 75 0d 04 |.t....~...menu..|
00000ef0 88 29 c8 99 20 22 57 69 6d 70 5f 44 65 63 6f 64 |.).. "Wimp_Decod|
00000f00 65 4d 65 6e 75 22 2c 2c 4d 45 4e 55 25 2c 42 4c |eMenu",,MENU%,BL|
00000f10 4b 25 2c 53 45 4c 25 0d 04 92 19 e7 20 24 53 45 |K%,SEL%..... $SE|
00000f20 4c 25 3d 22 51 75 69 74 22 20 8c 20 f2 64 69 65 |L%="Quit" . .die|
00000f30 0d 04 9c 51 e7 20 24 53 45 4c 25 3d 22 41 64 64 |...Q. $SEL%="Add|
00000f40 20 66 72 61 6d 65 22 20 80 20 66 72 6d 73 3d 31 | frame" . frms=1|
00000f50 35 20 8c 20 f2 6d 65 73 73 61 67 65 28 32 2c 22 |5 . .message(2,"|
00000f60 43 61 6e 6e 6f 74 20 68 61 76 65 20 6d 6f 72 65 |Cannot have more|
00000f70 20 74 68 61 6e 20 31 35 20 66 72 61 6d 65 73 22 | than 15 frames"|
00000f80 29 0d 04 a6 4b e7 20 24 53 45 4c 25 3d 22 41 64 |)...K. $SEL%="Ad|
00000f90 64 20 66 72 61 6d 65 22 20 8c 20 66 72 6d 73 2b |d frame" . frms+|
00000fa0 3d 31 3a 73 66 73 28 66 72 6d 73 29 3d 30 3a 76 |=1:sfs(frms)=0:v|
00000fb0 74 73 28 66 72 6d 73 29 3d 30 3a f2 75 70 63 6f |ts(frms)=0:.upco|
00000fc0 6e 74 3a f2 6d 65 6e 6f 66 66 3a e1 0d 04 b0 33 |nt:.menoff:....3|
00000fd0 e7 20 24 53 45 4c 25 3d 22 57 69 72 65 20 66 72 |. $SEL%="Wire fr|
00000fe0 61 6d 65 22 20 8c 20 57 49 46 52 25 3d ac 20 57 |ame" . WIFR%=. W|
00000ff0 49 46 52 25 3a f2 66 6f 72 63 65 64 72 61 77 0d |IFR%:.forcedraw.|
00001000 04 ba 05 e1 0d 04 c4 98 dd f2 73 65 74 73 61 76 |..........setsav|
00001010 65 6e 61 6d 65 28 57 24 29 3a 21 49 43 42 4c 4b |ename(W$):!ICBLK|
00001020 25 3d 48 41 4e 44 25 28 38 29 3a 49 43 42 4c 4b |%=HAND%(8):ICBLK|
00001030 25 21 34 3d 31 3a c8 99 20 22 57 69 6d 70 5f 47 |%!4=1:.. "Wimp_G|
00001040 65 74 49 63 6f 6e 53 74 61 74 65 22 2c 2c 49 43 |etIconState",,IC|
00001050 42 4c 4b 25 3a 49 43 42 4c 4b 25 21 38 3d 30 3a |BLK%:ICBLK%!8=0:|
00001060 49 43 42 4c 4b 25 21 31 32 3d 30 3a 24 28 49 43 |ICBLK%!12=0:$(IC|
00001070 42 4c 4b 25 21 32 38 29 3d 57 24 3a c8 99 20 22 |BLK%!28)=W$:.. "|
00001080 57 69 6d 70 5f 53 65 74 49 63 6f 6e 53 74 61 74 |Wimp_SetIconStat|
00001090 65 22 2c 2c 49 43 42 4c 4b 25 3a e1 0d 04 ce 98 |e",,ICBLK%:.....|
000010a0 dd f2 73 65 74 72 61 79 6e 61 6d 65 28 57 24 29 |..setrayname(W$)|
000010b0 3a 21 49 43 42 4c 4b 25 3d 48 41 4e 44 25 28 31 |:!ICBLK%=HAND%(1|
000010c0 30 29 3a 49 43 42 4c 4b 25 21 34 3d 31 3a c8 99 |0):ICBLK%!4=1:..|
000010d0 20 22 57 69 6d 70 5f 47 65 74 49 63 6f 6e 53 74 | "Wimp_GetIconSt|
000010e0 61 74 65 22 2c 2c 49 43 42 4c 4b 25 3a 49 43 42 |ate",,ICBLK%:ICB|
000010f0 4c 4b 25 21 38 3d 30 3a 49 43 42 4c 4b 25 21 31 |LK%!8=0:ICBLK%!1|
00001100 32 3d 30 3a 24 28 49 43 42 4c 4b 25 21 32 38 29 |2=0:$(ICBLK%!28)|
00001110 3d 57 24 3a c8 99 20 22 57 69 6d 70 5f 53 65 74 |=W$:.. "Wimp_Set|
00001120 49 63 6f 6e 53 74 61 74 65 22 2c 2c 49 43 42 4c |IconState",,ICBL|
00001130 4b 25 3a e1 0d 04 d8 a4 dd f2 73 65 74 69 63 6f |K%:.......setico|
00001140 6e 28 57 48 25 2c 49 43 25 2c 53 45 54 24 29 3a |n(WH%,IC%,SET$):|
00001150 21 49 43 42 4c 4b 25 3d 48 41 4e 44 25 28 57 48 |!ICBLK%=HAND%(WH|
00001160 25 29 3a 49 43 42 4c 4b 25 21 34 3d 49 43 25 3a |%):ICBLK%!4=IC%:|
00001170 c8 99 20 22 57 69 6d 70 5f 47 65 74 49 63 6f 6e |.. "Wimp_GetIcon|
00001180 53 74 61 74 65 22 2c 2c 49 43 42 4c 4b 25 3a 49 |State",,ICBLK%:I|
00001190 43 42 4c 4b 25 21 38 3d 30 3a 49 43 42 4c 4b 25 |CBLK%!8=0:ICBLK%|
000011a0 21 31 32 3d 30 3a 24 28 49 43 42 4c 4b 25 21 32 |!12=0:$(ICBLK%!2|
000011b0 38 29 3d 53 45 54 24 3a c8 99 20 22 57 69 6d 70 |8)=SET$:.. "Wimp|
000011c0 5f 53 65 74 49 63 6f 6e 53 74 61 74 65 22 2c 2c |_SetIconState",,|
000011d0 49 43 42 4c 4b 25 3a e1 0d 04 e2 71 dd a4 68 69 |ICBLK%:....q..hi|
000011e0 67 68 28 57 48 25 2c 49 43 25 29 3a 21 49 43 42 |gh(WH%,IC%):!ICB|
000011f0 4c 4b 25 3d 48 41 4e 44 25 28 57 48 25 29 3a 49 |LK%=HAND%(WH%):I|
00001200 43 42 4c 4b 25 21 34 3d 49 43 25 3a c8 99 20 22 |CBLK%!4=IC%:.. "|
00001210 57 69 6d 70 5f 47 65 74 49 63 6f 6e 53 74 61 74 |Wimp_GetIconStat|
00001220 65 22 2c 2c 49 43 42 4c 4b 25 3a 3d 28 28 3f 28 |e",,ICBLK%:=((?(|
00001230 49 43 42 4c 4b 25 2b 32 36 29 29 20 80 20 25 31 |ICBLK%+26)) . %1|
00001240 30 30 30 30 30 29 3d 33 32 0d 04 ec 1b dd f2 73 |00000)=32......s|
00001250 61 76 65 77 69 6e 64 3a 49 43 4e 25 3d 42 4c 4b |avewind:ICN%=BLK|
00001260 25 21 31 36 0d 04 f6 0d c8 8e 20 49 43 4e 25 20 |%!16...... ICN% |
00001270 ca 0d 05 00 0f c9 20 32 3a f2 6f 6b 73 61 76 65 |...... 2:.oksave|
00001280 0d 05 0a 05 cb 0d 05 14 05 e1 0d 05 1e 1f dd f2 |................|
00001290 6f 6b 73 61 76 65 3a 46 24 3d a4 67 65 74 73 61 |oksave:F$=.getsa|
000012a0 76 65 69 63 6f 6e 28 31 29 0d 05 28 4e e7 20 a7 |veicon(1)..(N. .|
000012b0 46 24 2c 22 2e 22 29 3d 30 20 8c 20 f2 6d 65 73 |F$,".")=0 . .mes|
000012c0 73 61 67 65 28 30 2c 22 54 6f 20 73 61 76 65 2c |sage(0,"To save,|
000012d0 20 64 72 61 67 20 74 68 65 20 69 63 6f 6e 20 74 | drag the icon t|
000012e0 6f 20 61 20 64 69 72 65 63 74 6f 72 79 20 76 69 |o a directory vi|
000012f0 65 77 65 72 2e 22 29 0d 05 32 0d f2 73 61 76 65 |ewer.")..2..save|
00001300 28 46 24 29 0d 05 3c 1b c8 99 20 22 57 69 6d 70 |(F$)..<... "Wimp|
00001310 5f 43 72 65 61 74 65 4d 65 6e 75 22 2c 2d 31 0d |_CreateMenu",-1.|
00001320 05 46 05 e1 0d 05 50 1a dd f2 72 61 79 77 69 6e |.F....P...raywin|
00001330 64 3a 49 43 4e 25 3d 42 4c 4b 25 21 31 36 0d 05 |d:ICN%=BLK%!16..|
00001340 5a 0d c8 8e 20 49 43 4e 25 20 ca 0d 05 64 0e c9 |Z... ICN% ...d..|
00001350 20 32 3a f2 6f 6b 72 61 79 0d 05 6e 05 cb 0d 05 | 2:.okray..n....|
00001360 78 05 e1 0d 05 82 1d dd f2 6f 6b 72 61 79 3a 46 |x........okray:F|
00001370 24 3d a4 67 65 74 72 61 79 69 63 6f 6e 28 31 29 |$=.getrayicon(1)|
00001380 0d 05 8c 4e e7 20 a7 46 24 2c 22 2e 22 29 3d 30 |...N. .F$,".")=0|
00001390 20 8c 20 f2 6d 65 73 73 61 67 65 28 30 2c 22 54 | . .message(0,"T|
000013a0 6f 20 73 61 76 65 2c 20 64 72 61 67 20 74 68 65 |o save, drag the|
000013b0 20 69 63 6f 6e 20 74 6f 20 61 20 64 69 72 65 63 | icon to a direc|
000013c0 74 6f 72 79 20 76 69 65 77 65 72 2e 22 29 0d 05 |tory viewer.")..|
000013d0 96 10 f2 72 61 79 73 61 76 65 28 46 24 29 0d 05 |...raysave(F$)..|
000013e0 a0 1b c8 99 20 22 57 69 6d 70 5f 43 72 65 61 74 |.... "Wimp_Creat|
000013f0 65 4d 65 6e 75 22 2c 2d 31 0d 05 aa 05 e1 0d 05 |eMenu",-1.......|
00001400 b4 0f dd f2 73 61 76 65 28 66 6e 24 29 0d 05 be |....save(fn$)...|
00001410 0d f2 66 69 6c 6c 61 6e 69 6d 0d 05 c8 52 46 25 |..fillanim...RF%|
00001420 3d ae 28 66 6e 24 29 3a f1 23 46 25 2c 66 72 6d |=.(fn$):.#F%,frm|
00001430 73 3a e3 4c 25 3d 31 20 b8 20 31 35 3a f1 23 46 |s:.L%=1 . 15:.#F|
00001440 25 2c 61 6e 69 6d 28 4c 25 29 3a ed 3a e3 49 25 |%,anim(L%):.:.I%|
00001450 3d 31 20 b8 20 66 72 6d 73 3a e7 20 76 74 73 28 |=1 . frms:. vts(|
00001460 49 25 29 3d 30 20 8c 20 8d 64 5c 45 0d 05 d2 a2 |I%)=0 . .d\E....|
00001470 f1 23 46 25 2c 76 74 73 28 49 25 29 2c 73 66 73 |.#F%,vts(I%),sfs|
00001480 28 49 25 29 3a e3 4c 25 3d 31 20 b8 20 76 74 73 |(I%):.L%=1 . vts|
00001490 28 49 25 29 3a f1 23 46 25 2c 76 65 72 74 25 28 |(I%):.#F%,vert%(|
000014a0 31 2c 4c 25 2c 49 25 29 2c 76 65 72 74 25 28 32 |1,L%,I%),vert%(2|
000014b0 2c 4c 25 2c 49 25 29 2c 76 65 72 74 25 28 33 2c |,L%,I%),vert%(3,|
000014c0 4c 25 2c 49 25 29 3a ed 3a e7 20 73 66 73 28 49 |L%,I%):.:. sfs(I|
000014d0 25 29 3d 30 20 8c 20 8d 64 5c 45 20 8b 20 e3 4c |%)=0 . .d\E . .L|
000014e0 25 3d 31 20 b8 20 73 66 73 28 49 25 29 3a e3 4b |%=1 . sfs(I%):.K|
000014f0 25 3d 30 20 b8 20 35 3a d5 23 46 25 2c 73 75 72 |%=0 . 5:.#F%,sur|
00001500 28 4c 25 2c 4b 25 2c 49 25 29 3a ed 3a ed 0d 05 |(L%,K%,I%):.:...|
00001510 dc 0a ed 3a d9 23 46 25 0d 05 e6 1f ff 28 22 2a |...:.#F%.....("*|
00001520 53 45 54 54 59 50 45 20 22 2b 66 6e 24 2b 22 20 |SETTYPE "+fn$+" |
00001530 35 35 34 22 29 3a e1 0d 05 f0 61 dd f2 72 61 79 |554"):....a..ray|
00001540 73 61 76 65 28 66 6e 24 29 3a f2 73 65 74 69 63 |save(fn$):.setic|
00001550 6f 6e 28 31 30 2c 31 2c 66 6e 24 29 3a 58 52 25 |on(10,1,fn$):XR%|
00001560 3d bb 28 a4 67 65 74 69 63 6f 6e 28 35 2c 36 29 |=.(.geticon(5,6)|
00001570 29 3a 59 52 25 3d bb 28 a4 67 65 74 69 63 6f 6e |):YR%=.(.geticon|
00001580 28 35 2c 31 30 29 29 3a e7 20 73 66 73 28 66 72 |(5,10)):. sfs(fr|
00001590 6d 29 3d 30 20 8c 20 e1 0d 05 fa 5b 58 54 25 3d |m)=0 . ....[XT%=|
000015a0 bb 28 a4 67 65 74 69 63 6f 6e 28 31 30 2c 36 29 |.(.geticon(10,6)|
000015b0 29 3a 59 54 25 3d bb 28 a4 67 65 74 69 63 6f 6e |):YT%=.(.geticon|
000015c0 28 31 30 2c 37 29 29 3a 5a 54 25 3d bb 28 a4 67 |(10,7)):ZT%=.(.g|
000015d0 65 74 69 63 6f 6e 28 31 30 2c 38 29 29 3a 4d 41 |eticon(10,8)):MA|
000015e0 3d bb 28 a4 67 65 74 69 63 6f 6e 28 31 30 2c 31 |=.(.geticon(10,1|
000015f0 30 29 29 0d 06 04 7c e7 20 ac 20 28 a4 68 69 67 |0))...|. . (.hig|
00001600 68 28 31 30 2c 31 34 29 20 84 20 a4 68 69 67 68 |h(10,14) . .high|
00001610 28 31 30 2c 31 35 29 20 84 20 a4 68 69 67 68 28 |(10,15) . .high(|
00001620 31 30 2c 31 36 29 29 20 8c 20 f2 6d 65 73 73 61 |10,16)) . .messa|
00001630 67 65 28 30 2c 22 59 6f 75 20 6d 75 73 74 20 73 |ge(0,"You must s|
00001640 70 65 63 69 66 79 20 61 20 66 6f 72 6d 61 74 20 |pecify a format |
00001650 66 6f 72 20 74 68 65 20 72 61 79 74 72 61 63 65 |for the raytrace|
00001660 20 73 6f 75 72 63 65 20 66 69 6c 65 2e 22 29 0d | source file.").|
00001670 06 0e 20 c8 99 20 22 48 6f 75 72 67 6c 61 73 73 |.. .. "Hourglass|
00001680 5f 4f 6e 22 3a 46 43 25 3d ae 28 66 6e 24 29 0d |_On":FC%=.(fn$).|
00001690 06 18 36 e7 20 a4 68 69 67 68 28 31 30 2c 31 34 |..6. .high(10,14|
000016a0 29 20 8c 20 f2 71 72 74 73 61 76 65 3a ff 28 22 |) . .qrtsave:.("|
000016b0 53 45 54 54 59 50 45 20 22 2b 66 6e 24 2b 22 20 |SETTYPE "+fn$+" |
000016c0 46 46 46 22 29 0d 06 22 36 e7 20 a4 68 69 67 68 |FFF").."6. .high|
000016d0 28 31 30 2c 31 35 29 20 8c 20 f2 72 65 6e 73 61 |(10,15) . .rensa|
000016e0 76 65 3a ff 28 22 53 45 54 54 59 50 45 20 22 2b |ve:.("SETTYPE "+|
000016f0 66 6e 24 2b 22 20 44 35 39 22 29 0d 06 2c 1d e7 |fn$+" D59")..,..|
00001700 20 a4 68 69 67 68 28 31 30 2c 31 36 29 20 8c 20 | .high(10,16) . |
00001710 f2 70 6f 6c 73 61 76 65 0d 06 36 16 c8 99 20 22 |.polsave..6... "|
00001720 48 6f 75 72 67 6c 61 73 73 5f 4f 66 66 22 0d 06 |Hourglass_Off"..|
00001730 40 05 e1 0d 06 4a 04 0d 06 54 0d dd f2 71 72 74 |@....J...T...qrt|
00001740 73 61 76 65 0d 06 5e 2d 41 24 3d a4 67 65 74 69 |save..^-A$=.geti|
00001750 63 6f 6e 28 38 2c 31 29 3a d5 23 46 43 25 2c 22 |con(8,1):.#FC%,"|
00001760 7b 20 2a 2a 20 22 2b 41 24 2b 22 20 2a 2a 20 7d |{ ** "+A$+" ** }|
00001770 22 0d 06 68 14 e3 4c 25 3d 31 20 b8 20 73 66 73 |"..h..L%=1 . sfs|
00001780 28 66 72 6d 29 0d 06 72 7b e3 4b 25 3d 31 20 b8 |(frm)..r{.K%=1 .|
00001790 20 34 3a 54 58 25 28 4b 25 29 3d 76 65 72 74 25 | 4:TX%(K%)=vert%|
000017a0 28 31 2c 73 75 72 28 4c 25 2c 4b 25 2c 66 72 6d |(1,sur(L%,K%,frm|
000017b0 29 2c 66 72 6d 29 3a 54 59 25 28 4b 25 29 3d 76 |),frm):TY%(K%)=v|
000017c0 65 72 74 25 28 32 2c 73 75 72 28 4c 25 2c 4b 25 |ert%(2,sur(L%,K%|
000017d0 2c 66 72 6d 29 2c 66 72 6d 29 3a 54 5a 25 28 4b |,frm),frm):TZ%(K|
000017e0 25 29 3d 76 65 72 74 25 28 33 2c 73 75 72 28 4c |%)=vert%(3,sur(L|
000017f0 25 2c 4b 25 2c 66 72 6d 29 2c 66 72 6d 29 3a ed |%,K%,frm),frm):.|
00001800 0d 06 7c 0d e3 4b 25 3d 31 20 b8 20 34 0d 06 86 |..|..K%=1 . 4...|
00001810 79 41 3d a4 61 6e 67 6c 65 28 54 58 25 28 4b 25 |yA=.angle(TX%(K%|
00001820 29 2c 54 59 25 28 4b 25 29 29 3a 41 2b 3d 58 52 |),TY%(K%)):A+=XR|
00001830 25 3a 52 25 3d 28 b6 28 28 54 58 25 28 4b 25 29 |%:R%=(.((TX%(K%)|
00001840 2a 54 58 25 28 4b 25 29 29 2b 28 54 59 25 28 4b |*TX%(K%))+(TY%(K|
00001850 25 29 2a 54 59 25 28 4b 25 29 29 29 2a 4d 41 29 |%)*TY%(K%)))*MA)|
00001860 3a 54 58 25 28 4b 25 29 3d 9b 28 b2 28 41 29 29 |:TX%(K%)=.(.(A))|
00001870 2a 52 25 3a 54 59 25 28 4b 25 29 3d b5 28 b2 28 |*R%:TY%(K%)=.(.(|
00001880 41 29 29 2a 52 25 0d 06 90 79 41 3d a4 61 6e 67 |A))*R%...yA=.ang|
00001890 6c 65 28 54 59 25 28 4b 25 29 2c 54 5a 25 28 4b |le(TY%(K%),TZ%(K|
000018a0 25 29 29 3a 41 2b 3d 59 52 25 3a 52 25 3d 28 b6 |%)):A+=YR%:R%=(.|
000018b0 28 28 54 59 25 28 4b 25 29 2a 54 59 25 28 4b 25 |((TY%(K%)*TY%(K%|
000018c0 29 29 2b 28 54 5a 25 28 4b 25 29 2a 54 5a 25 28 |))+(TZ%(K%)*TZ%(|
000018d0 4b 25 29 29 29 2a 4d 41 29 3a 54 59 25 28 4b 25 |K%)))*MA):TY%(K%|
000018e0 29 3d 9b 28 b2 28 41 29 29 2a 52 25 3a 54 5a 25 |)=.(.(A))*R%:TZ%|
000018f0 28 4b 25 29 3d b5 28 b2 28 41 29 29 2a 52 25 0d |(K%)=.(.(A))*R%.|
00001900 06 9a 4e 54 58 25 28 4b 25 29 2b 3d 58 54 25 3a |..NTX%(K%)+=XT%:|
00001910 54 58 25 28 4b 25 29 3d 2d 54 58 25 28 4b 25 29 |TX%(K%)=-TX%(K%)|
00001920 3a 54 59 25 28 4b 25 29 2b 3d 59 54 25 3a 54 5a |:TY%(K%)+=YT%:TZ|
00001930 25 28 4b 25 29 2b 3d 5a 54 25 3a c8 94 20 54 59 |%(K%)+=ZT%:.. TY|
00001940 25 28 4b 25 29 2c 54 5a 25 28 4b 25 29 0d 06 a4 |%(K%),TZ%(K%)...|
00001950 74 ed 3a 43 25 3d 73 75 72 28 4c 25 2c 30 2c 66 |t.:C%=sur(L%,0,f|
00001960 72 6d 29 3a 54 25 3d 73 75 72 28 4c 25 2c 35 2c |rm):T%=sur(L%,5,|
00001970 66 72 6d 29 3a 52 3d 28 28 28 43 25 20 80 20 25 |frm):R=(((C% . %|
00001980 31 31 29 29 2a 34 29 2b 54 25 3a 47 3d 28 28 28 |11))*4)+T%:G=(((|
00001990 43 25 20 80 20 25 31 31 30 30 29 2f 34 29 2a 34 |C% . %1100)/4)*4|
000019a0 29 2b 54 25 3a 42 3d 28 28 28 43 25 20 80 20 25 |)+T%:B=(((C% . %|
000019b0 31 31 30 30 30 30 29 2f 31 36 29 2a 34 29 2b 54 |110000)/16)*4)+T|
000019c0 25 0d 06 ae 4a d5 23 46 43 25 2c bd 31 30 2b 22 |%...J.#FC%,.10+"|
000019d0 54 52 49 41 4e 47 4c 45 20 28 20 6c 6f 63 20 3d |TRIANGLE ( loc =|
000019e0 20 28 22 2b c3 54 58 25 28 31 29 2b 22 2c 20 22 | ("+.TX%(1)+", "|
000019f0 2b c3 54 59 25 28 31 29 2b 22 2c 20 22 2b c3 54 |+.TY%(1)+", "+.T|
00001a00 5a 25 28 31 29 2b 22 29 2c 22 3b 0d 06 b8 59 56 |Z%(1)+"),";...YV|
00001a10 31 25 3d 54 58 25 28 32 29 2d 54 58 25 28 31 29 |1%=TX%(2)-TX%(1)|
00001a20 3a 56 32 25 3d 54 59 25 28 32 29 2d 54 59 25 28 |:V2%=TY%(2)-TY%(|
00001a30 31 29 3a 56 33 25 3d 54 5a 25 28 32 29 2d 54 5a |1):V3%=TZ%(2)-TZ|
00001a40 25 28 31 29 3a e7 20 56 31 25 3d 30 20 80 20 56 |%(1):. V1%=0 . V|
00001a50 32 25 3d 30 20 80 20 56 33 25 3d 30 20 8c 20 56 |2%=0 . V3%=0 . V|
00001a60 32 25 3d 31 0d 06 c2 3b d5 23 46 43 25 2c 22 20 |2%=1...;.#FC%," |
00001a70 76 65 63 74 31 20 3d 20 28 22 2b c3 28 56 31 25 |vect1 = ("+.(V1%|
00001a80 29 2b 22 2c 20 22 2b c3 28 56 32 25 29 2b 22 2c |)+", "+.(V2%)+",|
00001a90 20 22 2b c3 28 56 33 25 29 2b 22 29 2c 22 3b 0d | "+.(V3%)+"),";.|
00001aa0 06 cc 59 56 31 25 3d 54 58 25 28 33 29 2d 54 58 |..YV1%=TX%(3)-TX|
00001ab0 25 28 31 29 3a 56 32 25 3d 54 59 25 28 33 29 2d |%(1):V2%=TY%(3)-|
00001ac0 54 59 25 28 31 29 3a 56 33 25 3d 54 5a 25 28 33 |TY%(1):V3%=TZ%(3|
00001ad0 29 2d 54 5a 25 28 31 29 3a e7 20 56 31 25 3d 30 |)-TZ%(1):. V1%=0|
00001ae0 20 80 20 56 32 25 3d 30 20 80 20 56 33 25 3d 30 | . V2%=0 . V3%=0|
00001af0 20 8c 20 56 32 25 3d 31 0d 06 d6 3a d5 23 46 43 | . V2%=1...:.#FC|
00001b00 25 2c 22 20 76 65 63 74 32 20 3d 20 28 22 2b c3 |%," vect2 = ("+.|
00001b10 28 56 31 25 29 2b 22 2c 20 22 2b c3 28 56 32 25 |(V1%)+", "+.(V2%|
00001b20 29 2b 22 2c 20 22 2b c3 28 56 33 25 29 2b 22 29 |)+", "+.(V3%)+")|
00001b30 2c 22 0d 06 e0 45 d5 23 46 43 25 2c 22 20 20 20 |,"...E.#FC%," |
00001b40 20 20 20 20 20 20 20 20 64 69 66 66 20 3d 20 28 | diff = (|
00001b50 22 2b c3 28 52 2f 31 35 29 2b 22 2c 20 22 2b c3 |"+.(R/15)+", "+.|
00001b60 28 47 2f 31 35 29 2b 22 2c 20 22 2b c3 28 42 2f |(G/15)+", "+.(B/|
00001b70 31 35 29 2b 22 29 22 0d 06 ea 1b d5 23 46 43 25 |15)+")".....#FC%|
00001b80 2c 22 20 20 20 20 20 20 20 20 20 29 3b 22 2b bd |," );"+.|
00001b90 31 30 0d 06 f4 46 d5 23 46 43 25 2c 22 54 52 49 |10...F.#FC%,"TRI|
00001ba0 41 4e 47 4c 45 20 28 20 6c 6f 63 20 3d 20 28 22 |ANGLE ( loc = ("|
00001bb0 2b c3 54 58 25 28 33 29 2b 22 2c 20 22 2b c3 54 |+.TX%(3)+", "+.T|
00001bc0 59 25 28 33 29 2b 22 2c 20 22 2b c3 54 5a 25 28 |Y%(3)+", "+.TZ%(|
00001bd0 33 29 2b 22 29 2c 22 3b 0d 06 fe 59 56 31 25 3d |3)+"),";...YV1%=|
00001be0 54 58 25 28 34 29 2d 54 58 25 28 33 29 3a 56 32 |TX%(4)-TX%(3):V2|
00001bf0 25 3d 54 59 25 28 34 29 2d 54 59 25 28 33 29 3a |%=TY%(4)-TY%(3):|
00001c00 56 33 25 3d 54 5a 25 28 34 29 2d 54 5a 25 28 33 |V3%=TZ%(4)-TZ%(3|
00001c10 29 3a e7 20 56 31 25 3d 30 20 80 20 56 32 25 3d |):. V1%=0 . V2%=|
00001c20 30 20 80 20 56 33 25 3d 30 20 8c 20 56 32 25 3d |0 . V3%=0 . V2%=|
00001c30 31 0d 07 08 3b d5 23 46 43 25 2c 22 20 76 65 63 |1...;.#FC%," vec|
00001c40 74 31 20 3d 20 28 22 2b c3 28 56 31 25 29 2b 22 |t1 = ("+.(V1%)+"|
00001c50 2c 20 22 2b c3 28 56 32 25 29 2b 22 2c 20 22 2b |, "+.(V2%)+", "+|
00001c60 c3 28 56 33 25 29 2b 22 29 2c 22 3b 0d 07 12 59 |.(V3%)+"),";...Y|
00001c70 56 31 25 3d 54 58 25 28 31 29 2d 54 58 25 28 33 |V1%=TX%(1)-TX%(3|
00001c80 29 3a 56 32 25 3d 54 59 25 28 31 29 2d 54 59 25 |):V2%=TY%(1)-TY%|
00001c90 28 33 29 3a 56 33 25 3d 54 5a 25 28 31 29 2d 54 |(3):V3%=TZ%(1)-T|
00001ca0 5a 25 28 33 29 3a e7 20 56 31 25 3d 30 20 80 20 |Z%(3):. V1%=0 . |
00001cb0 56 32 25 3d 30 20 80 20 56 33 25 3d 30 20 8c 20 |V2%=0 . V3%=0 . |
00001cc0 56 32 25 3d 31 0d 07 1c 3a d5 23 46 43 25 2c 22 |V2%=1...:.#FC%,"|
00001cd0 20 76 65 63 74 32 20 3d 20 28 22 2b c3 28 56 31 | vect2 = ("+.(V1|
00001ce0 25 29 2b 22 2c 20 22 2b c3 28 56 32 25 29 2b 22 |%)+", "+.(V2%)+"|
00001cf0 2c 20 22 2b c3 28 56 33 25 29 2b 22 29 2c 22 0d |, "+.(V3%)+"),".|
00001d00 07 26 45 d5 23 46 43 25 2c 22 20 20 20 20 20 20 |.&E.#FC%," |
00001d10 20 20 20 20 20 64 69 66 66 20 3d 20 28 22 2b c3 | diff = ("+.|
00001d20 28 52 2f 31 35 29 2b 22 2c 20 22 2b c3 28 47 2f |(R/15)+", "+.(G/|
00001d30 31 35 29 2b 22 2c 20 22 2b c3 28 42 2f 31 35 29 |15)+", "+.(B/15)|
00001d40 2b 22 29 22 0d 07 30 17 d5 23 46 43 25 2c 22 20 |+")"..0..#FC%," |
00001d50 20 20 20 20 20 20 20 20 29 3b 22 0d 07 3a 05 ed | );"..:..|
00001d60 0d 07 44 09 d9 23 46 43 25 0d 07 4e 05 e1 0d 07 |..D..#FC%..N....|
00001d70 58 04 0d 07 62 0d dd f2 70 6f 6c 73 61 76 65 0d |X...b...polsave.|
00001d80 07 6c 14 41 24 3d a4 67 65 74 69 63 6f 6e 28 38 |.l.A$=.geticon(8|
00001d90 2c 31 29 0d 07 76 18 f2 70 6c 69 6e 67 28 46 43 |,1)..v..pling(FC|
00001da0 25 2c 76 74 73 28 66 72 6d 29 29 0d 07 80 18 f2 |%,vts(frm)).....|
00001db0 70 6c 69 6e 67 28 46 43 25 2c 73 66 73 28 66 72 |pling(FC%,sfs(fr|
00001dc0 6d 29 29 0d 07 8a 14 e3 4c 25 3d 31 20 b8 20 76 |m)).....L%=1 . v|
00001dd0 74 73 28 66 72 6d 29 0d 07 94 0d e3 4b 25 3d 31 |ts(frm).....K%=1|
00001de0 20 b8 20 33 0d 07 9e 20 f2 70 6c 69 6e 67 28 46 | . 3... .pling(F|
00001df0 43 25 2c 76 65 72 74 25 28 4b 25 2c 4c 25 2c 66 |C%,vert%(K%,L%,f|
00001e00 72 6d 29 29 0d 07 a8 05 ed 0d 07 b2 05 ed 0d 07 |rm))............|
00001e10 bc 14 e3 4c 25 3d 31 20 b8 20 73 66 73 28 66 72 |...L%=1 . sfs(fr|
00001e20 6d 29 0d 07 c6 0d e3 4b 25 3d 31 20 b8 20 34 0d |m).....K%=1 . 4.|
00001e30 07 d0 1e f2 70 6c 69 6e 67 28 46 43 25 2c 73 75 |....pling(FC%,su|
00001e40 72 28 4c 25 2c 4b 25 2c 66 72 6d 29 29 0d 07 da |r(L%,K%,frm))...|
00001e50 05 ed 0d 07 e4 72 43 25 3d 73 75 72 28 4c 25 2c |.....rC%=sur(L%,|
00001e60 30 2c 66 72 6d 29 3a 54 25 3d 73 75 72 28 4c 25 |0,frm):T%=sur(L%|
00001e70 2c 35 2c 66 72 6d 29 3a 52 3d 28 28 28 43 25 20 |,5,frm):R=(((C% |
00001e80 80 20 25 31 31 29 29 2a 34 29 2b 54 25 3a 47 3d |. %11))*4)+T%:G=|
00001e90 28 28 28 43 25 20 80 20 25 31 31 30 30 29 2f 34 |(((C% . %1100)/4|
00001ea0 29 2a 34 29 2b 54 25 3a 42 3d 28 28 28 43 25 20 |)*4)+T%:B=(((C% |
00001eb0 80 20 25 31 31 30 30 30 30 29 2f 31 36 29 2a 34 |. %110000)/16)*4|
00001ec0 29 2b 54 25 0d 07 ee 18 52 3d 52 2a 31 36 3a 47 |)+T%....R=R*16:G|
00001ed0 3d 47 2a 31 36 3a 42 3d 42 2a 31 36 0d 07 f8 2d |=G*16:B=B*16...-|
00001ee0 f2 70 6c 69 6e 67 28 46 43 25 2c 52 29 3a f2 70 |.pling(FC%,R):.p|
00001ef0 6c 69 6e 67 28 46 43 25 2c 47 29 3a f2 70 6c 69 |ling(FC%,G):.pli|
00001f00 6e 67 28 46 43 25 2c 42 29 0d 08 02 05 ed 0d 08 |ng(FC%,B).......|
00001f10 0c 09 d9 23 46 43 25 0d 08 16 05 e1 0d 08 20 04 |...#FC%....... .|
00001f20 0d 08 2a 14 dd f2 70 6c 69 6e 67 28 43 48 25 2c |..*...pling(CH%,|
00001f30 57 4f 25 29 0d 08 34 15 d5 23 43 48 25 2c 28 57 |WO%)..4..#CH%,(W|
00001f40 4f 25 20 80 20 26 46 46 29 0d 08 3e 1c d5 23 43 |O% . &FF)..>..#C|
00001f50 48 25 2c 28 28 57 4f 25 20 80 20 26 46 46 30 30 |H%,((WO% . &FF00|
00001f60 29 3e 3e 38 29 0d 08 48 1f d5 23 43 48 25 2c 28 |)>>8)..H..#CH%,(|
00001f70 28 57 4f 25 20 80 20 26 46 46 30 30 30 30 29 3e |(WO% . &FF0000)>|
00001f80 3e 31 36 29 0d 08 52 21 d5 23 43 48 25 2c 28 28 |>16)..R!.#CH%,((|
00001f90 57 4f 25 20 80 20 26 46 46 30 30 30 30 30 30 29 |WO% . &FF000000)|
00001fa0 3e 3e 32 34 29 0d 08 5c 05 e1 0d 08 66 04 0d 08 |>>24)..\....f...|
00001fb0 70 0d dd f2 72 65 6e 73 61 76 65 0d 08 7a 14 41 |p...rensave..z.A|
00001fc0 24 3d a4 67 65 74 69 63 6f 6e 28 38 2c 31 29 0d |$=.geticon(8,1).|
00001fd0 08 84 13 e3 4c 25 3d 30 20 b8 20 52 45 45 58 25 |....L%=0 . REEX%|
00001fe0 2d 31 0d 08 8e 12 d5 23 46 43 25 2c 52 45 4e 44 |-1.....#FC%,REND|
00001ff0 25 3f 4c 25 0d 08 98 05 ed 0d 08 a2 12 d5 23 46 |%?L%..........#F|
00002000 43 25 2c 22 2f 20 22 2b 41 24 3b 0d 08 ac 0c d5 |C%,"/ "+A$;.....|
00002010 23 46 43 25 2c 31 33 0d 08 b6 0c d5 23 46 43 25 |#FC%,13.....#FC%|
00002020 2c 31 33 0d 08 c0 26 d5 23 46 43 25 2c 22 6c 69 |,13...&.#FC%,"li|
00002030 67 68 74 70 6f 69 6e 74 2c 20 31 2c 20 31 30 2c |ghtpoint, 1, 10,|
00002040 31 30 30 2c 31 30 30 22 3b 0d 08 ca 0c d5 23 46 |100,100";.....#F|
00002050 43 25 2c 31 33 0d 08 d4 28 d5 23 46 43 25 2c 22 |C%,13...(.#FC%,"|
00002060 76 69 65 77 2c 20 34 30 2c 35 30 2c 32 30 30 2c |view, 40,50,200,|
00002070 20 61 74 2c 20 30 2c 34 30 2c 30 22 3b 0d 08 de | at, 0,40,0";...|
00002080 0c d5 23 46 43 25 2c 31 33 0d 08 e8 0c d5 23 46 |..#FC%,13.....#F|
00002090 43 25 2c 31 33 0d 08 f2 14 e3 4c 25 3d 31 20 b8 |C%,13.....L%=1 .|
000020a0 20 73 66 73 28 66 72 6d 29 0d 08 fc 7b e3 4b 25 | sfs(frm)...{.K%|
000020b0 3d 31 20 b8 20 34 3a 54 58 25 28 4b 25 29 3d 76 |=1 . 4:TX%(K%)=v|
000020c0 65 72 74 25 28 31 2c 73 75 72 28 4c 25 2c 4b 25 |ert%(1,sur(L%,K%|
000020d0 2c 66 72 6d 29 2c 66 72 6d 29 3a 54 59 25 28 4b |,frm),frm):TY%(K|
000020e0 25 29 3d 76 65 72 74 25 28 32 2c 73 75 72 28 4c |%)=vert%(2,sur(L|
000020f0 25 2c 4b 25 2c 66 72 6d 29 2c 66 72 6d 29 3a 54 |%,K%,frm),frm):T|
00002100 5a 25 28 4b 25 29 3d 76 65 72 74 25 28 33 2c 73 |Z%(K%)=vert%(3,s|
00002110 75 72 28 4c 25 2c 4b 25 2c 66 72 6d 29 2c 66 72 |ur(L%,K%,frm),fr|
00002120 6d 29 3a ed 0d 09 06 0d e3 4b 25 3d 31 20 b8 20 |m):......K%=1 . |
00002130 34 0d 09 10 16 54 58 25 28 4b 25 29 3d 54 58 25 |4....TX%(K%)=TX%|
00002140 28 4b 25 29 2a 4d 41 0d 09 1a 16 54 59 25 28 4b |(K%)*MA....TY%(K|
00002150 25 29 3d 54 59 25 28 4b 25 29 2a 4d 41 0d 09 24 |%)=TY%(K%)*MA..$|
00002160 16 54 5a 25 28 4b 25 29 3d 54 5a 25 28 4b 25 29 |.TZ%(K%)=TZ%(K%)|
00002170 2a 4d 41 0d 09 2e 3d 54 58 25 28 4b 25 29 2b 3d |*MA...=TX%(K%)+=|
00002180 58 54 25 3a 54 59 25 28 4b 25 29 2b 3d 59 54 25 |XT%:TY%(K%)+=YT%|
00002190 3a 54 5a 25 28 4b 25 29 2b 3d 5a 54 25 3a c8 94 |:TZ%(K%)+=ZT%:..|
000021a0 20 54 59 25 28 4b 25 29 2c 54 5a 25 28 4b 25 29 | TY%(K%),TZ%(K%)|
000021b0 0d 09 38 33 ed 3a 43 25 3d 73 75 72 28 4c 25 2c |..83.:C%=sur(L%,|
000021c0 30 2c 66 72 6d 29 3a f7 20 8d 74 7a 49 3a e3 20 |0,frm):. .tzI:. |
000021d0 47 43 25 3d 30 20 b8 20 43 25 3a f3 20 43 4f 4c |GC%=0 . C%:. COL|
000021e0 24 3a ed 0d 09 42 44 d5 23 46 43 25 2c 22 70 6f |$:...BD.#FC%,"po|
000021f0 6c 79 33 2c 20 3a 22 2b 43 4f 4c 24 2b 22 2c 20 |ly3, :"+COL$+", |
00002200 22 2b c3 54 58 25 28 31 29 2b 22 2c 22 2b c3 54 |"+.TX%(1)+","+.T|
00002210 59 25 28 31 29 2b 22 2c 22 2b c3 54 5a 25 28 31 |Y%(1)+","+.TZ%(1|
00002220 29 2b 22 2c 20 22 3b 0d 09 4c 2f d5 23 46 43 25 |)+", ";..L/.#FC%|
00002230 2c c3 54 58 25 28 32 29 2b 22 2c 22 2b c3 54 59 |,.TX%(2)+","+.TY|
00002240 25 28 32 29 2b 22 2c 22 2b c3 54 5a 25 28 32 29 |%(2)+","+.TZ%(2)|
00002250 2b 22 2c 20 22 3b 0d 09 56 2a d5 23 46 43 25 2c |+", ";..V*.#FC%,|
00002260 c3 54 58 25 28 33 29 2b 22 2c 22 2b c3 54 59 25 |.TX%(3)+","+.TY%|
00002270 28 33 29 2b 22 2c 22 2b c3 54 5a 25 28 33 29 3b |(3)+","+.TZ%(3);|
00002280 0d 09 60 0c d5 23 46 43 25 2c 31 33 0d 09 6a 44 |..`..#FC%,13..jD|
00002290 d5 23 46 43 25 2c 22 70 6f 6c 79 33 2c 20 3a 22 |.#FC%,"poly3, :"|
000022a0 2b 43 4f 4c 24 2b 22 2c 20 22 2b c3 54 58 25 28 |+COL$+", "+.TX%(|
000022b0 33 29 2b 22 2c 22 2b c3 54 59 25 28 33 29 2b 22 |3)+","+.TY%(3)+"|
000022c0 2c 22 2b c3 54 5a 25 28 33 29 2b 22 2c 20 22 3b |,"+.TZ%(3)+", ";|
000022d0 0d 09 74 2f d5 23 46 43 25 2c c3 54 58 25 28 34 |..t/.#FC%,.TX%(4|
000022e0 29 2b 22 2c 22 2b c3 54 59 25 28 34 29 2b 22 2c |)+","+.TY%(4)+",|
000022f0 22 2b c3 54 5a 25 28 34 29 2b 22 2c 20 22 3b 0d |"+.TZ%(4)+", ";.|
00002300 09 7e 2a d5 23 46 43 25 2c c3 54 58 25 28 31 29 |.~*.#FC%,.TX%(1)|
00002310 2b 22 2c 22 2b c3 54 59 25 28 31 29 2b 22 2c 22 |+","+.TY%(1)+","|
00002320 2b c3 54 5a 25 28 31 29 3b 0d 09 88 0c d5 23 46 |+.TZ%(1);.....#F|
00002330 43 25 2c 31 33 0d 09 92 05 ed 0d 09 9c 09 d9 23 |C%,13..........#|
00002340 46 43 25 0d 09 a6 05 e1 0d 09 b0 04 0d 09 ba 75 |FC%............u|
00002350 dc 20 42 4c 41 43 4b 2c 52 45 44 2c 52 45 44 2c |. BLACK,RED,RED,|
00002360 52 45 44 2c 47 52 45 45 4e 2c 4c 49 4d 45 2c 47 |RED,GREEN,LIME,G|
00002370 4f 4c 44 2c 47 4f 4c 44 2c 47 52 45 45 4e 2c 47 |OLD,GOLD,GREEN,G|
00002380 52 45 45 4e 2c 4c 49 4d 45 2c 47 4f 4c 44 2c 47 |REEN,LIME,GOLD,G|
00002390 52 45 45 4e 2c 47 52 45 45 4e 2c 4c 49 4d 45 2c |REEN,GREEN,LIME,|
000023a0 59 45 4c 4c 4f 57 2c 42 4c 55 45 2c 50 55 52 50 |YELLOW,BLUE,PURP|
000023b0 4c 45 2c 50 55 52 50 4c 45 2c 4d 41 47 45 4e 54 |LE,PURPLE,MAGENT|
000023c0 41 0d 09 c4 77 dc 20 43 59 41 4e 2c 43 59 41 4e |A...w. CYAN,CYAN|
000023d0 2c 50 49 4e 4b 2c 50 49 4e 4b 2c 47 52 45 45 4e |,PINK,PINK,GREEN|
000023e0 2c 4c 49 4d 45 2c 59 45 4c 4c 4f 57 2c 47 4f 4c |,LIME,YELLOW,GOL|
000023f0 44 2c 47 52 45 45 4e 2c 47 52 45 45 4e 2c 4c 49 |D,GREEN,GREEN,LI|
00002400 4d 45 2c 59 45 4c 4c 4f 57 2c 42 4c 55 45 2c 42 |ME,YELLOW,BLUE,B|
00002410 4c 55 45 2c 50 55 52 50 4c 45 2c 4d 41 47 45 4e |LUE,PURPLE,MAGEN|
00002420 54 41 2c 42 4c 55 45 2c 42 4c 55 45 2c 50 55 52 |TA,BLUE,BLUE,PUR|
00002430 50 4c 45 2c 50 49 4e 4b 0d 09 ce 80 dc 20 43 59 |PLE,PINK..... CY|
00002440 41 4e 2c 53 4b 59 42 4c 55 45 2c 53 4b 59 42 4c |AN,SKYBLUE,SKYBL|
00002450 55 45 2c 50 49 4e 4b 2c 47 52 45 45 4e 2c 47 52 |UE,PINK,GREEN,GR|
00002460 45 45 4e 2c 4c 49 4d 45 2c 59 45 4c 4c 4f 57 2c |EEN,LIME,YELLOW,|
00002470 42 4c 55 45 2c 42 4c 55 45 2c 50 55 52 50 4c 45 |BLUE,BLUE,PURPLE|
00002480 2c 50 49 4e 4b 2c 42 4c 55 45 2c 42 4c 55 45 2c |,PINK,BLUE,BLUE,|
00002490 50 55 52 50 4c 45 2c 50 49 4e 4b 2c 53 4b 59 42 |PURPLE,PINK,SKYB|
000024a0 4c 55 45 2c 53 4b 59 42 4c 55 45 2c 53 4b 59 42 |LUE,SKYBLUE,SKYB|
000024b0 4c 55 45 2c 50 49 4e 4b 0d 09 d8 1a dc 20 43 59 |LUE,PINK..... CY|
000024c0 41 4e 2c 43 59 41 4e 2c 43 59 41 4e 2c 57 48 49 |AN,CYAN,CYAN,WHI|
000024d0 54 45 0d 09 e2 04 0d 09 ec 28 dd f2 64 72 61 67 |TE.......(..drag|
000024e0 66 69 6e 3a e7 20 64 72 61 67 74 25 3d 48 41 4e |fin:. dragt%=HAN|
000024f0 44 25 28 38 29 20 8c 20 e5 20 8d 44 46 4a 0d 09 |D%(8) . . .DFJ..|
00002500 f6 37 46 24 3d a4 67 65 74 72 61 79 69 63 6f 6e |.7F$=.getrayicon|
00002510 28 31 29 3a 54 24 3d 22 22 3a e7 20 a7 46 24 2c |(1):T$="":. .F$,|
00002520 22 2e 22 29 3d 30 20 8c 20 54 24 3d 46 24 3a e5 |".")=0 . T$=F$:.|
00002530 20 8d 54 54 4a 0d 0a 00 1f e7 20 c2 46 24 2c 31 | .TTJ..... .F$,1|
00002540 29 3d 22 2e 22 20 8c 20 54 24 3d 22 22 3a e5 20 |)="." . T$="":. |
00002550 8d 54 54 4a 0d 0a 0a 34 4b 25 3d a9 28 46 24 29 |.TTJ...4K%=.(F$)|
00002560 3a f5 3a 54 24 3d c1 46 24 2c 4b 25 2c 31 29 2b |:.:T$=.F$,K%,1)+|
00002570 54 24 3a 4b 25 2d 3d 31 3a fd 20 c1 46 24 2c 4b |T$:K%-=1:. .F$,K|
00002580 25 2c 31 29 3d 22 2e 22 0d 0a 14 22 c8 99 20 22 |%,1)="."...".. "|
00002590 57 69 6d 70 5f 47 65 74 50 6f 69 6e 74 65 72 49 |Wimp_GetPointerI|
000025a0 6e 66 6f 22 2c 2c 50 4f 49 25 0d 0a 1e 87 50 4f |nfo",,POI%....PO|
000025b0 49 25 21 32 30 3d 36 34 3a 50 4f 49 25 21 33 32 |I%!20=64:POI%!32|
000025c0 3d 30 3a 50 4f 49 25 21 33 36 3d 31 3a 50 4f 49 |=0:POI%!36=1:POI|
000025d0 25 21 34 30 3d 50 4f 49 25 21 31 32 3a 50 4f 49 |%!40=POI%!12:POI|
000025e0 25 21 34 34 3d 50 4f 49 25 21 31 36 3a 50 4f 49 |%!44=POI%!16:POI|
000025f0 25 21 34 38 3d 21 50 4f 49 25 3a 50 4f 49 25 21 |%!48=!POI%:POI%!|
00002600 35 32 3d 50 4f 49 25 21 34 3a 50 4f 49 25 21 35 |52=POI%!4:POI%!5|
00002610 36 3d 32 30 34 38 3a 50 4f 49 25 21 36 30 3d 26 |6=2048:POI%!60=&|
00002620 35 35 35 3a 24 28 50 4f 49 25 2b 36 34 29 3d 54 |555:$(POI%+64)=T|
00002630 24 0d 0a 28 34 c8 99 20 22 57 69 6d 70 5f 53 65 |$..(4.. "Wimp_Se|
00002640 6e 64 4d 65 73 73 61 67 65 22 2c 31 37 2c 50 4f |ndMessage",17,PO|
00002650 49 25 2b 32 30 2c 50 4f 49 25 21 31 32 2c 50 4f |I%+20,POI%!12,PO|
00002660 49 25 21 31 36 0d 0a 32 05 e1 0d 0a 3c 04 0d 0a |I%!16..2....<...|
00002670 46 38 46 24 3d a4 67 65 74 73 61 76 65 69 63 6f |F8F$=.getsaveico|
00002680 6e 28 31 29 3a 54 24 3d 22 22 3a e7 20 a7 46 24 |n(1):T$="":. .F$|
00002690 2c 22 2e 22 29 3d 30 20 8c 20 54 24 3d 46 24 3a |,".")=0 . T$=F$:|
000026a0 e5 20 8d 44 64 4a 0d 0a 50 1f e7 20 c2 46 24 2c |. .DdJ..P.. .F$,|
000026b0 31 29 3d 22 2e 22 20 8c 20 54 24 3d 22 22 3a e5 |1)="." . T$="":.|
000026c0 20 8d 44 64 4a 0d 0a 5a 34 4b 25 3d a9 28 46 24 | .DdJ..Z4K%=.(F$|
000026d0 29 3a f5 3a 54 24 3d c1 46 24 2c 4b 25 2c 31 29 |):.:T$=.F$,K%,1)|
000026e0 2b 54 24 3a 4b 25 2d 3d 31 3a fd 20 c1 46 24 2c |+T$:K%-=1:. .F$,|
000026f0 4b 25 2c 31 29 3d 22 2e 22 0d 0a 64 22 c8 99 20 |K%,1)="."..d".. |
00002700 22 57 69 6d 70 5f 47 65 74 50 6f 69 6e 74 65 72 |"Wimp_GetPointer|
00002710 49 6e 66 6f 22 2c 2c 50 4f 49 25 0d 0a 6e 87 50 |Info",,POI%..n.P|
00002720 4f 49 25 21 32 30 3d 36 34 3a 50 4f 49 25 21 33 |OI%!20=64:POI%!3|
00002730 32 3d 30 3a 50 4f 49 25 21 33 36 3d 31 3a 50 4f |2=0:POI%!36=1:PO|
00002740 49 25 21 34 30 3d 50 4f 49 25 21 31 32 3a 50 4f |I%!40=POI%!12:PO|
00002750 49 25 21 34 34 3d 50 4f 49 25 21 31 36 3a 50 4f |I%!44=POI%!16:PO|
00002760 49 25 21 34 38 3d 21 50 4f 49 25 3a 50 4f 49 25 |I%!48=!POI%:POI%|
00002770 21 35 32 3d 50 4f 49 25 21 34 3a 50 4f 49 25 21 |!52=POI%!4:POI%!|
00002780 35 36 3d 32 30 34 38 3a 50 4f 49 25 21 36 30 3d |56=2048:POI%!60=|
00002790 26 35 35 35 3a 24 28 50 4f 49 25 2b 36 34 29 3d |&555:$(POI%+64)=|
000027a0 54 24 0d 0a 78 34 c8 99 20 22 57 69 6d 70 5f 53 |T$..x4.. "Wimp_S|
000027b0 65 6e 64 4d 65 73 73 61 67 65 22 2c 31 37 2c 50 |endMessage",17,P|
000027c0 4f 49 25 2b 32 30 2c 50 4f 49 25 21 31 32 2c 50 |OI%+20,POI%!12,P|
000027d0 4f 49 25 21 31 36 0d 0a 82 05 e1 0d 0a 8c 04 0d |OI%!16..........|
000027e0 0a 96 4f dd f2 70 6f 69 6e 74 3a c8 99 20 22 57 |..O..point:.. "W|
000027f0 69 6d 70 5f 47 65 74 50 6f 69 6e 74 65 72 49 6e |imp_GetPointerIn|
00002800 66 6f 22 2c 2c 50 4f 49 25 3a 4d 4f 58 25 3d 21 |fo",,POI%:MOX%=!|
00002810 50 4f 49 25 3a 4d 4f 59 25 3d 50 4f 49 25 21 34 |POI%:MOY%=POI%!4|
00002820 3a 4d 4f 42 25 3d 50 4f 49 25 21 38 3a e1 0d 0a |:MOB%=POI%!8:...|
00002830 a0 04 0d 0a aa 0f dd f2 73 74 61 72 74 64 72 61 |........startdra|
00002840 67 0d 0a b4 25 c8 99 20 22 57 69 6d 70 5f 47 65 |g...%.. "Wimp_Ge|
00002850 74 57 69 6e 64 6f 77 53 74 61 74 65 22 2c 2c 42 |tWindowState",,B|
00002860 4c 4b 25 2b 31 32 0d 0a be 43 58 25 3d 42 4c 4b |LK%+12...CX%=BLK|
00002870 25 21 31 36 3a 59 25 3d 42 4c 4b 25 21 32 38 3a |%!16:Y%=BLK%!28:|
00002880 42 4c 4b 25 21 31 36 3d 30 3a c8 99 20 22 57 69 |BLK%!16=0:.. "Wi|
00002890 6d 70 5f 47 65 74 49 63 6f 6e 53 74 61 74 65 22 |mp_GetIconState"|
000028a0 2c 2c 42 4c 4b 25 2b 31 32 0d 0a c8 29 42 4c 4b |,,BLK%+12...)BLK|
000028b0 25 21 31 36 3d 35 3a 42 4c 4b 25 21 32 30 2b 3d |%!16=5:BLK%!20+=|
000028c0 58 25 2d 32 3a 42 4c 4b 25 21 32 34 2b 3d 59 25 |X%-2:BLK%!24+=Y%|
000028d0 2d 34 0d 0a d2 1d 42 4c 4b 25 21 32 38 2b 3d 58 |-4....BLK%!28+=X|
000028e0 25 2b 32 3a 42 4c 4b 25 21 33 32 2b 3d 59 25 0d |%+2:BLK%!32+=Y%.|
000028f0 0a dc 58 42 4c 4b 25 21 33 36 3d 30 3a 42 4c 4b |..XBLK%!36=0:BLK|
00002900 25 21 34 30 3d 30 3a 42 4c 4b 25 21 34 34 3d 26 |%!40=0:BLK%!44=&|
00002910 37 46 46 46 46 46 46 46 3a 42 4c 4b 25 21 34 38 |7FFFFFFF:BLK%!48|
00002920 3d 26 37 46 46 46 46 46 46 46 3a c8 99 20 22 57 |=&7FFFFFFF:.. "W|
00002930 69 6d 70 5f 44 72 61 67 42 6f 78 22 2c 2c 42 4c |imp_DragBox",,BL|
00002940 4b 25 2b 31 32 3a e1 0d 0a e6 04 0d 0a f0 13 dd |K%+12:..........|
00002950 f2 69 6e 6d 65 73 73 61 67 65 28 4d 25 29 0d 0a |.inmessage(M%)..|
00002960 fa 0b c8 8e 20 4d 25 20 ca 0d 0b 04 0c c9 20 30 |.... M% ...... 0|
00002970 3a f2 64 69 65 0d 0b 0e 11 c9 20 32 3a f2 64 72 |:.die..... 2:.dr|
00002980 61 67 73 61 76 65 0d 0b 18 2a c9 20 33 2c 35 3a |agsave...*. 3,5:|
00002990 e7 20 42 4c 4b 25 21 31 32 3d 30 20 80 20 42 4c |. BLK%!12=0 . BL|
000029a0 4b 25 21 34 30 3d 26 35 35 34 20 f2 6c 6f 61 64 |K%!40=&554 .load|
000029b0 0d 0b 22 15 c9 20 26 34 30 30 43 30 3a f2 6d 61 |..".. &400C0:.ma|
000029c0 69 6e 73 75 62 0d 0b 2c 07 cb 3a e1 0d 0b 36 04 |insub..,..:...6.|
000029d0 0d 0b 40 62 dd f2 6d 61 69 6e 73 75 62 3a 49 43 |..@b..mainsub:IC|
000029e0 4c 25 3d 42 4c 4b 25 21 33 32 3a e7 20 49 43 4c |L%=BLK%!32:. ICL|
000029f0 25 3c 3e 30 20 80 20 49 43 4c 25 3c 3e 32 20 8c |%<>0 . ICL%<>2 .|
00002a00 20 c8 99 22 57 69 6d 70 5f 43 72 65 61 74 65 53 | .."Wimp_CreateS|
00002a10 75 62 4d 65 6e 75 22 2c 2c 42 4c 4b 25 21 32 30 |ubMenu",,BLK%!20|
00002a20 2c 42 4c 4b 25 21 32 34 2c 42 4c 4b 25 21 32 38 |,BLK%!24,BLK%!28|
00002a30 3a e1 0d 0b 4a 41 57 48 41 25 3d 42 4c 4b 25 21 |:...JAWHA%=BLK%!|
00002a40 32 30 3a 57 58 43 25 3d 42 4c 4b 25 21 32 34 3a |20:WXC%=BLK%!24:|
00002a50 57 59 43 25 3d 42 4c 4b 25 21 32 38 3a 49 43 4c |WYC%=BLK%!28:ICL|
00002a60 25 3d 42 4c 4b 25 21 33 32 3a c8 8e 20 49 43 4c |%=BLK%!32:.. ICL|
00002a70 25 20 ca 0d 0b 54 4a c9 20 30 3a f2 73 65 74 69 |% ...TJ. 0:.seti|
00002a80 63 6f 6e 28 34 2c 31 2c c3 28 76 74 73 28 66 72 |con(4,1,.(vts(fr|
00002a90 6d 29 2b 31 29 29 3a c8 99 22 57 69 6d 70 5f 43 |m)+1)):.."Wimp_C|
00002aa0 72 65 61 74 65 53 75 62 4d 65 6e 75 22 2c 2c 57 |reateSubMenu",,W|
00002ab0 48 41 25 2c 57 58 43 25 2c 57 59 43 25 0d 0b 5e |HA%,WXC%,WYC%..^|
00002ac0 4a c9 20 32 3a f2 73 65 74 69 63 6f 6e 28 39 2c |J. 2:.seticon(9,|
00002ad0 31 2c c3 28 73 66 73 28 66 72 6d 29 2b 31 29 29 |1,.(sfs(frm)+1))|
00002ae0 3a c8 99 22 57 69 6d 70 5f 43 72 65 61 74 65 53 |:.."Wimp_CreateS|
00002af0 75 62 4d 65 6e 75 22 2c 2c 57 48 41 25 2c 57 58 |ubMenu",,WHA%,WX|
00002b00 43 25 2c 57 59 43 25 0d 0b 68 05 cb 0d 0b 72 05 |C%,WYC%..h....r.|
00002b10 e1 0d 0b 7c 04 0d 0b 86 3d dd f2 6b 65 79 70 72 |...|....=..keypr|
00002b20 65 73 73 3a e7 20 42 4c 4b 25 21 32 34 3c 3e 31 |ess:. BLK%!24<>1|
00002b30 33 20 8c 20 c8 99 20 22 57 69 6d 70 5f 50 72 6f |3 . .. "Wimp_Pro|
00002b40 63 65 73 73 4b 65 79 22 2c 42 4c 4b 25 21 32 34 |cessKey",BLK%!24|
00002b50 3a e1 0d 0b 90 0e c8 8e 20 21 42 4c 4b 25 20 ca |:....... !BLK% .|
00002b60 0d 0b 9a 16 c9 20 48 41 4e 44 25 28 31 29 3a f2 |..... HAND%(1):.|
00002b70 6e 75 6d 62 65 72 0d 0b a4 17 c9 20 48 41 4e 44 |number..... HAND|
00002b80 25 28 34 29 3a f2 76 65 72 74 72 65 74 0d 0b ae |%(4):.vertret...|
00002b90 17 c9 20 48 41 4e 44 25 28 35 29 3a f2 63 6f 6e |.. HAND%(5):.con|
00002ba0 74 72 65 74 0d 0b b8 17 c9 20 48 41 4e 44 25 28 |tret..... HAND%(|
00002bb0 39 29 3a f2 73 75 72 66 72 65 74 0d 0b c2 16 c9 |9):.surfret.....|
00002bc0 20 48 41 4e 44 25 28 32 29 3a f2 74 77 6f 69 6e | HAND%(2):.twoin|
00002bd0 70 0d 0b cc 17 c9 20 48 41 4e 44 25 28 30 29 3a |p..... HAND%(0):|
00002be0 f2 61 6e 69 6d 72 65 74 0d 0b d6 22 7f 20 c8 99 |.animret...". ..|
00002bf0 20 22 57 69 6d 70 5f 50 72 6f 63 65 73 73 4b 65 | "Wimp_ProcessKe|
00002c00 79 22 2c 42 4c 4b 25 21 32 34 0d 0b e0 07 cb 3a |y",BLK%!24.....:|
00002c10 e1 0d 0b ea 04 0d 0b f4 10 dd f2 64 72 61 77 73 |...........draws|
00002c20 70 72 69 74 65 0d 0b fe cd c8 99 20 22 4f 53 5f |prite...... "OS_|
00002c30 52 65 61 64 4d 6f 64 65 56 61 72 69 61 62 6c 65 |ReadModeVariable|
00002c40 22 2c 2d 31 2c 34 20 b8 20 2c 2c 58 50 25 3a c8 |",-1,4 . ,,XP%:.|
00002c50 99 20 22 4f 53 5f 52 65 61 64 4d 6f 64 65 56 61 |. "OS_ReadModeVa|
00002c60 72 69 61 62 6c 65 22 2c 2d 31 2c 35 20 b8 20 2c |riable",-1,5 . ,|
00002c70 2c 59 50 25 3a 58 50 25 3d 28 36 33 30 3e 3e 58 |,YP%:XP%=(630>>X|
00002c80 50 25 29 3a 59 50 25 3d 28 36 33 30 3e 3e 59 50 |P%):YP%=(630>>YP|
00002c90 25 29 3a c8 99 20 22 4f 53 5f 52 65 61 64 4d 6f |%):.. "OS_ReadMo|
00002ca0 64 65 56 61 72 69 61 62 6c 65 22 2c 2d 31 2c 39 |deVariable",-1,9|
00002cb0 20 b8 20 2c 2c 42 50 25 3a 42 50 25 3d 32 5e 42 | . ,,BP%:BP%=2^B|
00002cc0 50 25 3a 57 42 25 3d 28 58 50 25 2a 42 50 25 29 |P%:WB%=(XP%*BP%)|
00002cd0 20 81 20 38 3a e7 20 28 28 58 50 25 2a 42 50 25 | . 8:. ((XP%*BP%|
00002ce0 29 20 83 20 38 29 3c 3e 30 20 8c 20 57 42 25 2b |) . 8)<>0 . WB%+|
00002cf0 3d 31 0d 0c 08 23 57 42 25 3d 57 42 25 2a 59 50 |=1...#WB%=WB%*YP|
00002d00 25 3a e7 20 57 42 25 3c 3d 34 39 39 38 34 20 8c |%:. WB%<=49984 .|
00002d10 20 8d 54 66 4c 0d 0c 12 15 e7 20 4f 50 25 3d 31 | .TfL..... OP%=1|
00002d20 20 8c 20 f2 63 6c 6d 61 69 6e 0d 0c 1c 30 f2 6d | . .clmain...0.m|
00002d30 65 73 73 61 67 65 28 33 2c 22 54 6f 20 62 69 67 |essage(3,"To big|
00002d40 20 61 20 73 63 72 65 65 6e 20 74 6f 20 70 6c 6f | a screen to plo|
00002d50 74 20 6f 62 6a 65 63 74 22 29 0d 0c 26 5a c8 99 |t object")..&Z..|
00002d60 20 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c 32 | "OS_SpriteOp",2|
00002d70 36 35 2c 53 50 52 49 54 45 3a c8 99 20 22 4f 53 |65,SPRITE:.. "OS|
00002d80 5f 53 70 72 69 74 65 4f 70 22 2c 32 37 31 2c 53 |_SpriteOp",271,S|
00002d90 50 52 49 54 45 2c 22 56 49 45 57 22 2c 2c 58 50 |PRITE,"VIEW",,XP|
00002da0 25 2c 59 50 25 2c eb 3a f2 64 72 61 77 28 66 72 |%,YP%,.:.draw(fr|
00002db0 6d 29 3a e1 0d 0c 30 04 0d 0c 3a 36 dd f2 67 65 |m):...0...:6..ge|
00002dc0 74 6f 72 3a 57 4f 58 25 3d 42 4c 4b 25 21 34 2d |tor:WOX%=BLK%!4-|
00002dd0 42 4c 4b 25 21 32 30 3a 57 4f 59 25 3d 42 4c 4b |BLK%!20:WOY%=BLK|
00002de0 25 21 31 36 2d 42 4c 4b 25 21 32 34 3a e1 0d 0c |%!16-BLK%!24:...|
00002df0 44 04 0d 0c 4e 14 dd f2 6f 70 65 6e 6d 61 69 6e |D...N...openmain|
00002e00 3a 4f 50 25 3d 31 0d 0c 58 7c 21 42 4c 4b 25 3d |:OP%=1..X|!BLK%=|
00002e10 48 41 4e 44 25 28 35 29 3a 42 4c 4b 25 21 34 3d |HAND%(5):BLK%!4=|
00002e20 36 37 38 3a 42 4c 4b 25 21 38 3d 36 34 36 3a 42 |678:BLK%!8=646:B|
00002e30 4c 4b 25 21 31 32 3d 31 32 37 39 3a 42 4c 4b 25 |LK%!12=1279:BLK%|
00002e40 21 31 36 3d 31 30 32 33 3a 42 4c 4b 25 21 32 30 |!16=1023:BLK%!20|
00002e50 3d 30 3a 42 4c 4b 25 21 32 34 3d 30 3a 42 4c 4b |=0:BLK%!24=0:BLK|
00002e60 25 21 32 38 3d 2d 31 3a c8 99 20 22 57 69 6d 70 |%!28=-1:.. "Wimp|
00002e70 5f 4f 70 65 6e 57 69 6e 64 6f 77 22 2c 2c 42 4c |_OpenWindow",,BL|
00002e80 4b 25 0d 0c 62 79 21 42 4c 4b 25 3d 48 41 4e 44 |K%..by!BLK%=HAND|
00002e90 25 28 36 29 3a 42 4c 4b 25 21 34 3d 30 3a 42 4c |%(6):BLK%!4=0:BL|
00002ea0 4b 25 21 38 3d 33 39 30 3a 42 4c 4b 25 21 31 32 |K%!8=390:BLK%!12|
00002eb0 3d 36 33 30 3a 42 4c 4b 25 21 31 36 3d 31 30 32 |=630:BLK%!16=102|
00002ec0 33 3a 42 4c 4b 25 21 32 30 3d 30 3a 42 4c 4b 25 |3:BLK%!20=0:BLK%|
00002ed0 21 32 34 3d 30 3a 42 4c 4b 25 21 32 38 3d 2d 31 |!24=0:BLK%!28=-1|
00002ee0 3a c8 99 20 22 57 69 6d 70 5f 4f 70 65 6e 57 69 |:.. "Wimp_OpenWi|
00002ef0 6e 64 6f 77 22 2c 2c 42 4c 4b 25 0d 0c 6c 05 e1 |ndow",,BLK%..l..|
00002f00 0d 0c 76 04 0d 0c 80 77 dd f2 6d 65 73 73 61 67 |..v....w..messag|
00002f10 65 28 4d 25 2c 4d 24 29 3a c8 99 20 22 57 69 6d |e(M%,M$):.. "Wim|
00002f20 70 5f 44 72 61 67 42 6f 78 22 2c 2c 30 3a 21 42 |p_DragBox",,0:!B|
00002f30 4c 4b 25 3d 4d 25 3a 24 28 42 4c 4b 25 2b 34 29 |LK%=M%:$(BLK%+4)|
00002f40 3d 4d 24 2b bd 28 30 29 3a c8 99 20 22 57 69 6d |=M$+.(0):.. "Wim|
00002f50 70 5f 52 65 70 6f 72 74 45 72 72 6f 72 22 2c 42 |p_ReportError",B|
00002f60 4c 4b 25 2c 31 2c 22 54 68 72 65 65 56 69 65 77 |LK%,1,"ThreeView|
00002f70 22 3a f2 61 63 74 69 6f 6e 3a e0 0d 0c 8a 05 e1 |":.action:......|
00002f80 0d 0c 94 04 0d 0c 9e 0c dd f2 61 6e 69 6d 72 73 |..........animrs|
00002f90 0d 0c a8 10 c8 8e 20 42 4c 4b 25 21 31 36 20 ca |...... BLK%!16 .|
00002fa0 0d 0c b2 4a c9 20 31 37 3a e7 20 41 4e 49 4d 25 |...J. 17:. ANIM%|
00002fb0 20 8c 20 66 72 6d 3d 6f 66 72 6d 3a f2 73 65 74 | . frm=ofrm:.set|
00002fc0 69 63 6f 6e 28 35 2c 32 35 2c c3 66 72 6d 29 3a |icon(5,25,.frm):|
00002fd0 f2 6d 65 6e 6f 66 66 3a f2 66 6f 72 63 65 64 72 |.menoff:.forcedr|
00002fe0 61 77 3a 41 4e 49 4d 25 3d a3 0d 0c bc 3b c9 20 |aw:ANIM%=....;. |
00002ff0 31 36 3a e7 20 41 4e 49 4d 25 20 8c 20 f2 6d 65 |16:. ANIM% . .me|
00003000 73 73 61 67 65 28 31 32 2c 22 41 6e 69 6d 61 74 |ssage(12,"Animat|
00003010 69 6f 6e 20 61 6c 72 65 61 64 79 20 72 75 6e 6e |ion already runn|
00003020 69 6e 67 22 29 0d 0c c6 65 e7 20 ac 20 a4 63 68 |ing")...e. . .ch|
00003030 65 63 6b 61 6e 69 6d 20 8c 20 f2 6d 65 73 73 61 |eckanim . .messa|
00003040 67 65 28 31 31 2c 22 4d 69 73 74 61 6b 65 20 69 |ge(11,"Mistake i|
00003050 6e 20 61 6e 69 6d 61 74 69 6f 6e 20 73 65 71 75 |n animation sequ|
00003060 65 6e 63 65 22 29 20 8b 20 f2 6d 65 6e 6f 66 66 |ence") . .menoff|
00003070 3a 61 6e 73 74 65 70 3d 30 3a 6f 66 72 6d 3d 66 |:anstep=0:ofrm=f|
00003080 72 6d 3a 41 4e 49 4d 25 3d b9 0d 0c d0 07 cb 3a |rm:ANIM%=......:|
00003090 e1 0d 0c da 73 dd a4 63 68 65 63 6b 61 6e 69 6d |....s..checkanim|
000030a0 3a 6e 6f 61 6e 69 6d 3d 30 3a f5 3a 6e 6f 61 6e |:noanim=0:.:noan|
000030b0 69 6d 2b 3d 31 3a 61 6e 69 6d 28 6e 6f 61 6e 69 |im+=1:anim(noani|
000030c0 6d 29 3d bb a4 67 65 74 69 63 6f 6e 28 30 2c 6e |m)=..geticon(0,n|
000030d0 6f 61 6e 69 6d 29 3a fd 20 6e 6f 61 6e 69 6d 3d |oanim):. noanim=|
000030e0 31 35 20 84 20 61 6e 69 6d 28 6e 6f 61 6e 69 6d |15 . anim(noanim|
000030f0 29 3d 30 3a e7 20 61 6e 69 6d 28 31 29 3d 30 20 |)=0:. anim(1)=0 |
00003100 8c 20 3d a3 0d 0c e4 41 54 3d b9 3a e3 4c 25 3d |. =....AT=.:.L%=|
00003110 31 20 b8 20 6e 6f 61 6e 69 6d 2d 31 3a e7 20 61 |1 . noanim-1:. a|
00003120 6e 69 6d 28 4c 25 29 3c 31 20 84 20 61 6e 69 6d |nim(L%)<1 . anim|
00003130 28 4c 25 29 3e 66 72 6d 73 20 8c 20 54 3d a3 3a |(L%)>frms . T=.:|
00003140 ed 20 8b 20 ed 0d 0c ee 06 3d 54 0d 0c f8 04 0d |. . .....=T.....|
00003150 0d 02 32 dd f2 61 6e 69 6d 61 74 65 3a 61 6e 73 |..2..animate:ans|
00003160 74 65 70 2b 3d 31 3a e7 20 61 6e 73 74 65 70 3d |tep+=1:. anstep=|
00003170 6e 6f 61 6e 69 6d 20 8c 20 61 6e 73 74 65 70 3d |noanim . anstep=|
00003180 31 0d 0d 0c 35 66 72 6d 3d 61 6e 69 6d 28 61 6e |1...5frm=anim(an|
00003190 73 74 65 70 29 3a f2 73 65 74 69 63 6f 6e 28 35 |step):.seticon(5|
000031a0 2c 32 35 2c c3 66 72 6d 29 3a f2 66 6f 72 63 65 |,25,.frm):.force|
000031b0 64 72 61 77 3a e1 0d 0d 16 04 0d 0d 20 36 dd f2 |draw:....... 6..|
000031c0 6f 6b 74 77 6f 69 6e 70 3a 4e 55 31 25 3d bb a4 |oktwoinp:NU1%=..|
000031d0 67 65 74 69 63 6f 6e 28 32 2c 32 29 3a 4e 55 32 |geticon(2,2):NU2|
000031e0 25 3d bb a4 67 65 74 69 63 6f 6e 28 32 2c 33 29 |%=..geticon(2,3)|
000031f0 0d 0d 2a 0d c8 8e 20 49 43 4c 25 20 ca 0d 0d 34 |..*... ICL% ...4|
00003200 69 c9 20 34 3a e7 20 4e 55 31 25 3c 31 20 84 20 |i. 4:. NU1%<1 . |
00003210 4e 55 32 25 3c 31 20 84 20 4e 55 31 25 3e 76 74 |NU2%<1 . NU1%>vt|
00003220 73 28 66 72 6d 29 20 84 20 4e 55 32 25 3e 76 74 |s(frm) . NU2%>vt|
00003230 73 28 66 72 6d 29 20 8c 20 f2 6d 65 73 73 61 67 |s(frm) . .messag|
00003240 65 28 39 2c 22 43 61 6e 27 74 20 73 77 61 70 20 |e(9,"Can't swap |
00003250 61 6e 20 75 6e 64 65 66 69 6e 65 64 20 76 65 72 |an undefined ver|
00003260 74 69 63 65 22 29 0d 0d 3e 8b c8 94 20 76 65 72 |tice")..>... ver|
00003270 74 25 28 31 2c 4e 55 31 25 2c 66 72 6d 29 2c 76 |t%(1,NU1%,frm),v|
00003280 65 72 74 25 28 31 2c 4e 55 32 25 2c 66 72 6d 29 |ert%(1,NU2%,frm)|
00003290 3a c8 94 20 76 65 72 74 25 28 32 2c 4e 55 31 25 |:.. vert%(2,NU1%|
000032a0 2c 66 72 6d 29 2c 76 65 72 74 25 28 32 2c 4e 55 |,frm),vert%(2,NU|
000032b0 32 25 2c 66 72 6d 29 3a c8 94 20 76 65 72 74 25 |2%,frm):.. vert%|
000032c0 28 33 2c 4e 55 31 25 2c 66 72 6d 29 2c 76 65 72 |(3,NU1%,frm),ver|
000032d0 74 25 28 33 2c 4e 55 32 25 2c 66 72 6d 29 3a f2 |t%(3,NU2%,frm):.|
000032e0 6d 65 6e 6f 66 66 3a f2 66 6f 72 63 65 64 72 61 |menoff:.forcedra|
000032f0 77 0d 0d 48 69 c9 20 35 3a e7 20 4e 55 31 25 3c |w..Hi. 5:. NU1%<|
00003300 31 20 84 20 4e 55 32 25 3c 31 20 84 20 4e 55 31 |1 . NU2%<1 . NU1|
00003310 25 3e 73 66 73 28 66 72 6d 29 20 84 20 4e 55 32 |%>sfs(frm) . NU2|
00003320 25 3e 73 66 73 28 66 72 6d 29 20 8c 20 f2 6d 65 |%>sfs(frm) . .me|
00003330 73 73 61 67 65 28 39 2c 22 43 61 6e 27 74 20 73 |ssage(9,"Can't s|
00003340 77 61 70 20 61 6e 20 75 6e 64 65 66 69 6e 65 64 |wap an undefined|
00003350 20 73 75 72 66 61 63 65 22 29 0d 0d 52 48 e3 20 | surface")..RH. |
00003360 4c 25 3d 30 20 b8 20 35 3a c8 94 20 73 75 72 28 |L%=0 . 5:.. sur(|
00003370 4e 55 31 25 2c 4c 25 2c 66 72 6d 29 2c 73 75 72 |NU1%,L%,frm),sur|
00003380 28 4e 55 32 25 2c 4c 25 2c 66 72 6d 29 3a ed 3a |(NU2%,L%,frm):.:|
00003390 f2 6d 65 6e 6f 66 66 3a f2 66 6f 72 63 65 64 72 |.menoff:.forcedr|
000033a0 61 77 0d 0d 5c 68 c9 20 31 32 3a e7 20 4e 55 31 |aw..\h. 12:. NU1|
000033b0 25 3c 31 20 84 20 4e 55 32 25 3c 31 20 84 20 4e |%<1 . NU2%<1 . N|
000033c0 55 31 25 3e 66 72 6d 73 20 84 20 4e 55 32 25 3e |U1%>frms . NU2%>|
000033d0 66 72 6d 73 20 8c 20 f2 6d 65 73 73 61 67 65 28 |frms . .message(|
000033e0 39 2c 22 43 61 6e 27 74 20 63 6f 70 79 20 74 6f |9,"Can't copy to|
000033f0 2f 66 72 6f 6d 20 61 6e 20 75 6e 64 65 66 69 6e |/from an undefin|
00003400 65 64 20 66 72 61 6d 65 22 29 0d 0d 66 7f 76 74 |ed frame")..f.vt|
00003410 73 28 4e 55 32 25 29 3d 76 74 73 28 4e 55 31 25 |s(NU2%)=vts(NU1%|
00003420 29 3a 73 66 73 28 4e 55 32 25 29 3d 73 66 73 28 |):sfs(NU2%)=sfs(|
00003430 4e 55 31 25 29 3a e7 20 76 74 73 28 4e 55 31 25 |NU1%):. vts(NU1%|
00003440 29 3e 30 20 8c 20 e3 4c 25 3d 31 20 b8 20 76 74 |)>0 . .L%=1 . vt|
00003450 73 28 4e 55 31 25 29 3a e3 4b 25 3d 31 20 b8 20 |s(NU1%):.K%=1 . |
00003460 33 3a 76 65 72 74 25 28 4b 25 2c 4c 25 2c 4e 55 |3:vert%(K%,L%,NU|
00003470 32 25 29 3d 76 65 72 74 25 28 4b 25 2c 4c 25 2c |2%)=vert%(K%,L%,|
00003480 4e 55 31 25 29 3a ed 3a ed 0d 0d 70 53 e7 20 73 |NU1%):.:...pS. s|
00003490 66 73 28 4e 55 31 25 29 3e 30 20 8c 20 e3 4c 25 |fs(NU1%)>0 . .L%|
000034a0 3d 31 20 b8 20 73 66 73 28 4e 55 31 25 29 3a e3 |=1 . sfs(NU1%):.|
000034b0 4b 25 3d 30 20 b8 20 35 3a 73 75 72 28 4c 25 2c |K%=0 . 5:sur(L%,|
000034c0 4b 25 2c 4e 55 32 25 29 3d 73 75 72 28 4c 25 2c |K%,NU2%)=sur(L%,|
000034d0 4b 25 2c 4e 55 31 25 29 3a ed 3a ed 0d 0d 7a 1e |K%,NU1%):.:...z.|
000034e0 f2 6d 65 6e 6f 66 66 3a f2 66 6f 72 63 65 64 72 |.menoff:.forcedr|
000034f0 61 77 3a f2 75 70 63 6f 6e 74 0d 0d 84 07 cb 3a |aw:.upcont.....:|
00003500 e1 0d 0d 8e 04 0d 0d 98 1f dd f2 6e 75 6d 62 65 |...........numbe|
00003510 72 3a 4e 55 25 3d bb a4 67 65 74 69 63 6f 6e 28 |r:NU%=..geticon(|
00003520 31 2c 31 29 0d 0d a2 0d c8 8e 20 49 43 4c 25 20 |1,1)...... ICL% |
00003530 ca 0d 0d ac 4a c9 20 31 3a e7 20 4e 55 25 3c 31 |....J. 1:. NU%<1|
00003540 20 84 20 4e 55 25 3e 76 74 73 28 66 72 6d 29 20 | . NU%>vts(frm) |
00003550 8c 20 f2 6d 65 73 73 61 67 65 28 36 2c 22 54 68 |. .message(6,"Th|
00003560 61 74 20 76 65 72 74 69 63 65 20 69 73 20 6e 6f |at vertice is no|
00003570 74 20 64 65 66 69 6e 65 64 22 29 0d 0d b6 7d f2 |t defined")...}.|
00003580 70 6f 69 6e 74 3a f2 73 65 74 69 63 6f 6e 28 34 |point:.seticon(4|
00003590 2c 31 2c c3 4e 55 25 29 3a f2 73 65 74 69 63 6f |,1,.NU%):.setico|
000035a0 6e 28 34 2c 36 2c c3 76 65 72 74 25 28 31 2c 4e |n(4,6,.vert%(1,N|
000035b0 55 25 2c 66 72 6d 29 29 3a f2 73 65 74 69 63 6f |U%,frm)):.setico|
000035c0 6e 28 34 2c 37 2c c3 76 65 72 74 25 28 32 2c 4e |n(4,7,.vert%(2,N|
000035d0 55 25 2c 66 72 6d 29 29 3a f2 73 65 74 69 63 6f |U%,frm)):.setico|
000035e0 6e 28 34 2c 38 2c c3 76 65 72 74 25 28 33 2c 4e |n(4,8,.vert%(3,N|
000035f0 55 25 2c 66 72 6d 29 29 0d 0d c0 d5 f2 6d 65 6e |U%,frm)).....men|
00003600 6f 66 66 3a 21 42 4c 4b 25 3d 48 41 4e 44 25 28 |off:!BLK%=HAND%(|
00003610 34 29 3a 42 4c 4b 25 21 34 3d 4d 4f 58 25 2d 38 |4):BLK%!4=MOX%-8|
00003620 30 3a 42 4c 4b 25 21 38 3d 4d 4f 59 25 2d 31 30 |0:BLK%!8=MOY%-10|
00003630 30 3a 42 4c 4b 25 21 31 32 3d 4d 4f 58 25 2b 33 |0:BLK%!12=MOX%+3|
00003640 38 30 3a 42 4c 4b 25 21 31 36 3d 4d 4f 59 25 2b |80:BLK%!16=MOY%+|
00003650 31 33 36 3a 42 4c 4b 25 21 32 30 3d 30 3a 42 4c |136:BLK%!20=0:BL|
00003660 4b 25 21 32 34 3d 30 3a 42 4c 4b 25 21 32 38 3d |K%!24=0:BLK%!28=|
00003670 2d 31 3a c8 99 20 22 57 69 6d 70 5f 4f 70 65 6e |-1:.. "Wimp_Open|
00003680 57 69 6e 64 6f 77 22 2c 2c 42 4c 4b 25 3a c8 99 |Window",,BLK%:..|
00003690 20 22 57 69 6d 70 5f 53 65 74 43 61 72 65 74 50 | "Wimp_SetCaretP|
000036a0 6f 73 69 74 69 6f 6e 22 2c 48 41 4e 44 25 28 34 |osition",HAND%(4|
000036b0 29 2c 36 2c 2c 2c 2d 31 2c a9 28 c3 76 65 72 74 |),6,,,-1,.(.vert|
000036c0 25 28 31 2c 4e 55 25 2c 66 72 6d 29 29 0d 0d ca |%(1,NU%,frm))...|
000036d0 4a c9 20 33 3a e7 20 4e 55 25 3c 31 20 84 20 4e |J. 3:. NU%<1 . N|
000036e0 55 25 3e 73 66 73 28 66 72 6d 29 20 8c 20 f2 6d |U%>sfs(frm) . .m|
000036f0 65 73 73 61 67 65 28 36 2c 22 54 68 61 74 20 73 |essage(6,"That s|
00003700 75 72 66 61 63 65 20 69 73 20 6e 6f 74 20 64 65 |urface is not de|
00003710 66 69 6e 65 64 22 29 0d 0d d4 95 f2 70 6f 69 6e |fined").....poin|
00003720 74 3a f2 73 65 74 69 63 6f 6e 28 39 2c 31 2c c3 |t:.seticon(9,1,.|
00003730 4e 55 25 29 3a f2 73 65 74 69 63 6f 6e 28 39 2c |NU%):.seticon(9,|
00003740 33 2c c3 73 75 72 28 4e 55 25 2c 31 2c 66 72 6d |3,.sur(NU%,1,frm|
00003750 29 29 3a f2 73 65 74 69 63 6f 6e 28 39 2c 38 2c |)):.seticon(9,8,|
00003760 c3 73 75 72 28 4e 55 25 2c 32 2c 66 72 6d 29 29 |.sur(NU%,2,frm))|
00003770 3a f2 73 65 74 69 63 6f 6e 28 39 2c 37 2c c3 73 |:.seticon(9,7,.s|
00003780 75 72 28 4e 55 25 2c 33 2c 66 72 6d 29 29 3a f2 |ur(NU%,3,frm)):.|
00003790 73 65 74 69 63 6f 6e 28 39 2c 39 2c c3 73 75 72 |seticon(9,9,.sur|
000037a0 28 4e 55 25 2c 34 2c 66 72 6d 29 29 0d 0d de d3 |(NU%,4,frm))....|
000037b0 f2 73 65 74 69 63 6f 6e 28 39 2c 31 31 2c c3 73 |.seticon(9,11,.s|
000037c0 75 72 28 4e 55 25 2c 30 2c 66 72 6d 29 29 3a f2 |ur(NU%,0,frm)):.|
000037d0 73 65 74 69 63 6f 6e 28 39 2c 31 33 2c c3 73 75 |seticon(9,13,.su|
000037e0 72 28 4e 55 25 2c 35 2c 66 72 6d 29 29 3a f2 6d |r(NU%,5,frm)):.m|
000037f0 65 6e 6f 66 66 3a 21 42 4c 4b 25 3d 48 41 4e 44 |enoff:!BLK%=HAND|
00003800 25 28 39 29 3a 42 4c 4b 25 21 34 3d 4d 4f 58 25 |%(9):BLK%!4=MOX%|
00003810 2d 38 30 3a 42 4c 4b 25 21 38 3d 4d 4f 59 25 2d |-80:BLK%!8=MOY%-|
00003820 31 30 30 3a 42 4c 4b 25 21 31 32 3d 4d 4f 58 25 |100:BLK%!12=MOX%|
00003830 2b 35 35 36 3a 42 4c 4b 25 21 31 36 3d 4d 4f 59 |+556:BLK%!16=MOY|
00003840 25 2b 31 37 32 3a 42 4c 4b 25 21 32 30 3d 30 3a |%+172:BLK%!20=0:|
00003850 42 4c 4b 25 21 32 34 3d 30 3a 42 4c 4b 25 21 32 |BLK%!24=0:BLK%!2|
00003860 38 3d 2d 31 3a c8 99 20 22 57 69 6d 70 5f 4f 70 |8=-1:.. "Wimp_Op|
00003870 65 6e 57 69 6e 64 6f 77 22 2c 2c 42 4c 4b 25 0d |enWindow",,BLK%.|
00003880 0d e8 41 c8 99 20 22 57 69 6d 70 5f 53 65 74 43 |..A.. "Wimp_SetC|
00003890 61 72 65 74 50 6f 73 69 74 69 6f 6e 22 2c 48 41 |aretPosition",HA|
000038a0 4e 44 25 28 39 29 2c 33 2c 2c 2c 2d 31 2c a9 28 |ND%(9),3,,,-1,.(|
000038b0 c3 73 75 72 28 4e 55 25 2c 31 2c 66 72 6d 29 29 |.sur(NU%,1,frm))|
000038c0 0d 0d f2 4a c9 20 36 3a e7 20 4e 55 25 3c 31 20 |...J. 6:. NU%<1 |
000038d0 84 20 4e 55 25 3e 76 74 73 28 66 72 6d 29 20 8c |. NU%>vts(frm) .|
000038e0 20 f2 6d 65 73 73 61 67 65 28 36 2c 22 54 68 61 | .message(6,"Tha|
000038f0 74 20 76 65 72 74 69 63 65 20 69 73 20 6e 6f 74 |t vertice is not|
00003900 20 64 65 66 69 6e 65 64 22 29 0d 0d fc 17 e7 20 | defined")..... |
00003910 73 66 73 28 66 72 6d 29 3d 30 20 8c 20 8d 54 5a |sfs(frm)=0 . .TZ|
00003920 4e 0d 0e 06 49 49 55 3d a3 3a e3 4c 25 3d 31 20 |N...IIU=.:.L%=1 |
00003930 b8 20 73 66 73 28 66 72 6d 29 3a e3 4b 25 3d 31 |. sfs(frm):.K%=1|
00003940 20 b8 20 34 3a e7 20 73 75 72 28 4c 25 2c 4b 25 | . 4:. sur(L%,K%|
00003950 2c 66 72 6d 29 3d 4e 55 25 20 8c 20 49 55 3d b9 |,frm)=NU% . IU=.|
00003960 3a ed 3a ed 20 8b 20 ed 3a ed 0d 0e 10 31 e7 20 |:.:. . .:....1. |
00003970 49 55 3d b9 20 8c 20 f2 6d 65 73 73 61 67 65 28 |IU=. . .message(|
00003980 38 2c 22 54 68 61 74 20 76 65 72 74 69 63 65 20 |8,"That vertice |
00003990 69 73 20 69 6e 20 75 73 65 22 29 0d 0e 1a 8b e7 |is in use").....|
000039a0 20 4e 55 25 3d 76 74 73 28 66 72 6d 29 20 8c 20 | NU%=vts(frm) . |
000039b0 76 74 73 28 66 72 6d 29 2d 3d 31 20 8b 20 e3 4c |vts(frm)-=1 . .L|
000039c0 25 3d 4e 55 25 2b 31 20 b8 20 76 74 73 28 66 72 |%=NU%+1 . vts(fr|
000039d0 6d 29 3a e3 4b 25 3d 31 20 b8 20 33 3a 76 65 72 |m):.K%=1 . 3:ver|
000039e0 74 25 28 4b 25 2c 4c 25 2d 31 2c 66 72 6d 29 3d |t%(K%,L%-1,frm)=|
000039f0 76 65 72 74 25 28 4b 25 2c 4c 25 2c 66 72 6d 29 |vert%(K%,L%,frm)|
00003a00 3a ed 3a ed 3a 76 74 73 28 66 72 6d 29 2d 3d 31 |:.:.:vts(frm)-=1|
00003a10 3a e7 20 73 66 73 28 66 72 6d 29 3d 30 20 8c 20 |:. sfs(frm)=0 . |
00003a20 e5 20 8d 54 6e 4e 0d 0e 24 51 e3 4c 25 3d 31 20 |. .TnN..$Q.L%=1 |
00003a30 b8 20 73 66 73 28 66 72 6d 29 3a e3 4b 25 3d 31 |. sfs(frm):.K%=1|
00003a40 20 b8 20 34 3a e7 20 73 75 72 28 4c 25 2c 4b 25 | . 4:. sur(L%,K%|
00003a50 2c 66 72 6d 29 3e 4e 55 25 20 8c 20 73 75 72 28 |,frm)>NU% . sur(|
00003a60 4c 25 2c 4b 25 2c 66 72 6d 29 2d 3d 31 3a ed 3a |L%,K%,frm)-=1:.:|
00003a70 ed 20 8b 20 ed 3a ed 0d 0e 2e 2f f2 6d 65 6e 6f |. . .:..../.meno|
00003a80 66 66 3a f2 66 6f 72 63 65 64 72 61 77 3a f2 73 |ff:.forcedraw:.s|
00003a90 65 74 69 63 6f 6e 28 35 2c 31 36 2c c3 76 74 73 |eticon(5,16,.vts|
00003aa0 28 66 72 6d 29 29 0d 0e 38 4a c9 20 37 3a e7 20 |(frm))..8J. 7:. |
00003ab0 4e 55 25 3c 31 20 84 20 4e 55 25 3e 73 66 73 28 |NU%<1 . NU%>sfs(|
00003ac0 66 72 6d 29 20 8c 20 f2 6d 65 73 73 61 67 65 28 |frm) . .message(|
00003ad0 36 2c 22 54 68 61 74 20 73 75 72 66 61 63 65 20 |6,"That surface |
00003ae0 69 73 20 6e 6f 74 20 64 65 66 69 6e 65 64 22 29 |is not defined")|
00003af0 0d 0e 42 71 e7 20 4e 55 25 3d 73 66 73 28 66 72 |..Bq. NU%=sfs(fr|
00003b00 6d 29 20 8c 20 73 66 73 28 66 72 6d 29 2d 3d 31 |m) . sfs(frm)-=1|
00003b10 20 8b 20 e3 4c 25 3d 4e 55 25 2b 31 20 b8 20 73 | . .L%=NU%+1 . s|
00003b20 66 73 28 66 72 6d 29 3a e3 4b 25 3d 30 20 b8 20 |fs(frm):.K%=0 . |
00003b30 35 3a 73 75 72 28 4c 25 2d 31 2c 4b 25 2c 66 72 |5:sur(L%-1,K%,fr|
00003b40 6d 29 3d 73 75 72 28 4c 25 2c 4b 25 2c 66 72 6d |m)=sur(L%,K%,frm|
00003b50 29 3a ed 3a ed 3a 73 66 73 28 66 72 6d 29 2d 3d |):.:.:sfs(frm)-=|
00003b60 31 0d 0e 4c 2f f2 6d 65 6e 6f 66 66 3a f2 66 6f |1..L/.menoff:.fo|
00003b70 72 63 65 64 72 61 77 3a f2 73 65 74 69 63 6f 6e |rcedraw:.seticon|
00003b80 28 35 2c 32 34 2c c3 73 66 73 28 66 72 6d 29 29 |(5,24,.sfs(frm))|
00003b90 0d 0e 56 69 c9 20 31 30 3a e7 20 4e 55 25 3c 31 |..Vi. 10:. NU%<1|
00003ba0 20 84 20 4e 55 25 3e 66 72 6d 73 20 8c 20 f2 6d | . NU%>frms . .m|
00003bb0 65 73 73 61 67 65 28 31 30 2c 22 54 68 61 74 20 |essage(10,"That |
00003bc0 66 72 61 6d 65 20 69 73 20 75 6e 64 65 66 69 6e |frame is undefin|
00003bd0 65 64 22 29 20 8b 20 66 72 6d 3d 4e 55 25 3a f2 |ed") . frm=NU%:.|
00003be0 6d 65 6e 6f 66 66 3a f2 75 70 63 6f 6e 74 3a f2 |menoff:.upcont:.|
00003bf0 66 6f 72 63 65 64 72 61 77 0d 0e 60 4b c9 20 31 |forcedraw..`K. 1|
00003c00 35 3a e7 20 4e 55 25 3c 31 20 84 20 4e 55 25 3e |5:. NU%<1 . NU%>|
00003c10 73 66 73 28 66 72 6d 29 20 8c 20 f2 6d 65 73 73 |sfs(frm) . .mess|
00003c20 61 67 65 28 36 2c 22 54 68 61 74 20 73 75 72 66 |age(6,"That surf|
00003c30 61 63 65 20 69 73 20 6e 6f 74 20 64 65 66 69 6e |ace is not defin|
00003c40 65 64 22 29 0d 0e 6a 60 c8 94 20 73 75 72 28 4e |ed")..j`.. sur(N|
00003c50 55 25 2c 31 2c 66 72 6d 29 2c 73 75 72 28 4e 55 |U%,1,frm),sur(NU|
00003c60 25 2c 34 2c 66 72 6d 29 3a c8 94 20 73 75 72 28 |%,4,frm):.. sur(|
00003c70 4e 55 25 2c 32 2c 66 72 6d 29 2c 73 75 72 28 4e |NU%,2,frm),sur(N|
00003c80 55 25 2c 33 2c 66 72 6d 29 3a f2 6d 65 6e 6f 66 |U%,3,frm):.menof|
00003c90 66 3a f2 75 70 63 6f 6e 74 3a f2 66 6f 72 63 65 |f:.upcont:.force|
00003ca0 64 72 61 77 0d 0e 74 05 cb 0d 0e 7e 05 e1 0d 0e |draw..t....~....|
00003cb0 88 04 0d 0e 92 34 dd f2 61 64 65 64 76 65 72 74 |.....4..adedvert|
00003cc0 3a e7 20 42 4c 4b 25 21 31 36 3c 3e 32 20 8c 20 |:. BLK%!16<>2 . |
00003cd0 e1 20 8b 20 56 4e 25 3d bb a4 67 65 74 69 63 6f |. . VN%=..getico|
00003ce0 6e 28 34 2c 31 29 0d 0e 9c 3e e7 20 56 4e 25 3e |n(4,1)...>. VN%>|
00003cf0 32 30 30 20 8c 20 f2 6d 65 73 73 61 67 65 28 35 |200 . .message(5|
00003d00 2c 22 43 61 6e 20 6f 6e 6c 79 20 68 61 76 65 20 |,"Can only have |
00003d10 75 70 20 74 6f 20 32 30 30 20 76 65 72 74 69 63 |up to 200 vertic|
00003d20 65 73 22 29 0d 0e a6 3c 58 43 25 3d bb a4 67 65 |es")...<XC%=..ge|
00003d30 74 69 63 6f 6e 28 34 2c 36 29 3a 59 43 25 3d bb |ticon(4,6):YC%=.|
00003d40 a4 67 65 74 69 63 6f 6e 28 34 2c 37 29 3a 5a 43 |.geticon(4,7):ZC|
00003d50 25 3d bb a4 67 65 74 69 63 6f 6e 28 34 2c 38 29 |%=..geticon(4,8)|
00003d60 0d 0e b0 8e e7 20 56 4e 25 3e 76 74 73 28 66 72 |..... VN%>vts(fr|
00003d70 6d 29 20 8c 20 76 74 73 28 66 72 6d 29 2b 3d 31 |m) . vts(frm)+=1|
00003d80 3a 76 65 72 74 25 28 31 2c 76 74 73 28 66 72 6d |:vert%(1,vts(frm|
00003d90 29 2c 66 72 6d 29 3d 58 43 25 3a 76 65 72 74 25 |),frm)=XC%:vert%|
00003da0 28 32 2c 76 74 73 28 66 72 6d 29 2c 66 72 6d 29 |(2,vts(frm),frm)|
00003db0 3d 59 43 25 3a 76 65 72 74 25 28 33 2c 76 74 73 |=YC%:vert%(3,vts|
00003dc0 28 66 72 6d 29 2c 66 72 6d 29 3d 5a 43 25 3a f2 |(frm),frm)=ZC%:.|
00003dd0 73 65 74 69 63 6f 6e 28 35 2c 31 36 2c c3 76 74 |seticon(5,16,.vt|
00003de0 73 28 66 72 6d 29 29 3a e5 20 8d 64 44 4e 0d 0e |s(frm)):. .dDN..|
00003df0 ba 42 76 65 72 74 25 28 31 2c 4e 55 25 2c 66 72 |.Bvert%(1,NU%,fr|
00003e00 6d 29 3d 58 43 25 3a 76 65 72 74 25 28 32 2c 4e |m)=XC%:vert%(2,N|
00003e10 55 25 2c 66 72 6d 29 3d 59 43 25 3a 76 65 72 74 |U%,frm)=YC%:vert|
00003e20 25 28 33 2c 4e 55 25 2c 66 72 6d 29 3d 5a 43 25 |%(3,NU%,frm)=ZC%|
00003e30 0d 0e c4 43 f2 6d 65 6e 6f 66 66 3a 21 42 4c 4b |...C.menoff:!BLK|
00003e40 25 3d 48 41 4e 44 25 28 34 29 3a c8 99 20 22 57 |%=HAND%(4):.. "W|
00003e50 69 6d 70 5f 43 6c 6f 73 65 57 69 6e 64 6f 77 22 |imp_CloseWindow"|
00003e60 2c 2c 42 4c 4b 25 3a f2 66 6f 72 63 65 64 72 61 |,,BLK%:.forcedra|
00003e70 77 3a e1 0d 0e ce 04 0d 0e d8 3b dd f2 61 64 65 |w:........;..ade|
00003e80 64 73 75 72 66 3a 56 4e 25 3d 30 3a e7 20 42 4c |dsurf:VN%=0:. BL|
00003e90 4b 25 21 31 36 3c 3e 31 34 20 8c 20 e1 20 8b 20 |K%!16<>14 . . . |
00003ea0 56 4e 25 3d bb a4 67 65 74 69 63 6f 6e 28 39 2c |VN%=..geticon(9,|
00003eb0 31 29 0d 0e e2 3e e7 20 56 4e 25 3e 31 30 30 20 |1)...>. VN%>100 |
00003ec0 8c 20 f2 6d 65 73 73 61 67 65 28 35 2c 22 43 61 |. .message(5,"Ca|
00003ed0 6e 20 6f 6e 6c 79 20 68 61 76 65 20 75 70 20 74 |n only have up t|
00003ee0 6f 20 31 30 30 20 73 75 72 66 61 63 65 73 22 29 |o 100 surfaces")|
00003ef0 0d 0e ec 41 e7 20 56 4e 25 3e 73 66 73 28 66 72 |...A. VN%>sfs(fr|
00003f00 6d 29 20 8c 20 73 66 73 28 66 72 6d 29 2b 3d 31 |m) . sfs(frm)+=1|
00003f10 3a f2 73 65 74 69 63 6f 6e 28 35 2c 32 34 2c c3 |:.seticon(5,24,.|
00003f20 73 66 73 28 66 72 6d 29 29 3a 4e 55 25 3d 56 4e |sfs(frm)):NU%=VN|
00003f30 25 0d 0e f6 4b 56 31 3d bb a4 67 65 74 69 63 6f |%...KV1=..getico|
00003f40 6e 28 39 2c 33 29 3a 56 32 3d bb a4 67 65 74 69 |n(9,3):V2=..geti|
00003f50 63 6f 6e 28 39 2c 38 29 3a 56 33 3d bb a4 67 65 |con(9,8):V3=..ge|
00003f60 74 69 63 6f 6e 28 39 2c 37 29 3a 56 34 3d bb a4 |ticon(9,7):V4=..|
00003f70 67 65 74 69 63 6f 6e 28 39 2c 39 29 0d 0f 00 64 |geticon(9,9)...d|
00003f80 e7 20 56 31 3c 3d 76 74 73 28 66 72 6d 29 20 80 |. V1<=vts(frm) .|
00003f90 20 56 32 3c 3d 76 74 73 28 66 72 6d 29 20 80 20 | V2<=vts(frm) . |
00003fa0 56 33 3c 3d 76 74 73 28 66 72 6d 29 20 80 20 56 |V3<=vts(frm) . V|
00003fb0 34 3c 3d 76 74 73 28 66 72 6d 29 20 80 20 56 31 |4<=vts(frm) . V1|
00003fc0 3e 30 20 80 20 56 32 3e 30 20 80 20 56 33 3e 30 |>0 . V2>0 . V3>0|
00003fd0 20 80 20 56 34 3e 30 20 8c 20 e5 20 8d 54 5e 4f | . V4>0 . . .T^O|
00003fe0 0d 0f 0a 34 e7 20 56 4e 25 3d 4e 55 25 20 8c 20 |...4. VN%=NU% . |
00003ff0 73 66 73 28 66 72 6d 29 2d 3d 31 3a f2 73 65 74 |sfs(frm)-=1:.set|
00004000 69 63 6f 6e 28 35 2c 32 34 2c c3 73 66 73 28 66 |icon(5,24,.sfs(f|
00004010 72 6d 29 29 0d 0f 14 40 f2 6d 65 73 73 61 67 65 |rm))...@.message|
00004020 28 37 2c 22 55 6e 64 65 66 69 6e 65 64 20 76 65 |(7,"Undefined ve|
00004030 72 74 69 63 65 73 20 63 61 6e 6e 6f 74 20 62 65 |rtices cannot be|
00004040 20 75 73 65 64 20 69 6e 20 61 20 73 75 72 66 61 | used in a surfa|
00004050 63 65 22 29 0d 0f 1e b9 73 75 72 28 4e 55 25 2c |ce")....sur(NU%,|
00004060 31 2c 66 72 6d 29 3d bb a4 67 65 74 69 63 6f 6e |1,frm)=..geticon|
00004070 28 39 2c 33 29 3a 73 75 72 28 4e 55 25 2c 32 2c |(9,3):sur(NU%,2,|
00004080 66 72 6d 29 3d bb a4 67 65 74 69 63 6f 6e 28 39 |frm)=..geticon(9|
00004090 2c 38 29 3a 73 75 72 28 4e 55 25 2c 33 2c 66 72 |,8):sur(NU%,3,fr|
000040a0 6d 29 3d bb a4 67 65 74 69 63 6f 6e 28 39 2c 37 |m)=..geticon(9,7|
000040b0 29 3a 73 75 72 28 4e 55 25 2c 34 2c 66 72 6d 29 |):sur(NU%,4,frm)|
000040c0 3d bb a4 67 65 74 69 63 6f 6e 28 39 2c 39 29 3a |=..geticon(9,9):|
000040d0 73 75 72 28 4e 55 25 2c 35 2c 66 72 6d 29 3d bb |sur(NU%,5,frm)=.|
000040e0 a4 67 65 74 69 63 6f 6e 28 39 2c 31 33 29 3a 73 |.geticon(9,13):s|
000040f0 75 72 28 4e 55 25 2c 30 2c 66 72 6d 29 3d bb a4 |ur(NU%,0,frm)=..|
00004100 67 65 74 69 63 6f 6e 28 39 2c 31 31 29 0d 0f 28 |geticon(9,11)..(|
00004110 43 f2 6d 65 6e 6f 66 66 3a 21 42 4c 4b 25 3d 48 |C.menoff:!BLK%=H|
00004120 41 4e 44 25 28 39 29 3a c8 99 20 22 57 69 6d 70 |AND%(9):.. "Wimp|
00004130 5f 43 6c 6f 73 65 57 69 6e 64 6f 77 22 2c 2c 42 |_CloseWindow",,B|
00004140 4c 4b 25 3a f2 66 6f 72 63 65 64 72 61 77 3a e1 |LK%:.forcedraw:.|
00004150 0d 0f 32 04 0d 0f 3c 26 dd f2 63 6f 6e 66 69 72 |..2...<&..confir|
00004160 6d 3a e7 20 42 4c 4b 25 21 31 36 3c 3e 31 20 8c |m:. BLK%!16<>1 .|
00004170 20 f2 6d 65 6e 6f 66 66 3a e1 0d 0f 46 4c 66 72 | .menoff:...FLfr|
00004180 6d 3d bb 28 a4 67 65 74 69 63 6f 6e 28 35 2c 32 |m=.(.geticon(5,2|
00004190 35 29 29 3a 73 66 73 28 66 72 6d 29 3d 30 3a 76 |5)):sfs(frm)=0:v|
000041a0 74 73 28 66 72 6d 29 3d 30 3a f2 6d 65 6e 6f 66 |ts(frm)=0:.menof|
000041b0 66 3a f2 75 70 63 6f 6e 74 3a f2 66 6f 72 63 65 |f:.upcont:.force|
000041c0 64 72 61 77 3a e1 0d 0f 50 04 0d 0f 5a 0e dd f2 |draw:...P...Z...|
000041d0 77 69 6e 64 6d 65 6e 75 0d 0f 64 67 24 4d 45 4e |windmenu..dg$MEN|
000041e0 55 25 3d 22 33 56 69 65 77 20 4d 65 6e 75 22 3a |U%="3View Menu":|
000041f0 4d 45 4e 55 25 3f 31 32 3d 37 3a 4d 45 4e 55 25 |MENU%?12=7:MENU%|
00004200 3f 31 33 3d 32 3a 4d 45 4e 55 25 3f 31 34 3d 37 |?13=2:MENU%?14=7|
00004210 3a 4d 45 4e 55 25 3f 31 35 3d 30 3a 4d 45 4e 55 |:MENU%?15=0:MENU|
00004220 25 21 31 36 3d 33 30 30 3a 4d 45 4e 55 25 21 32 |%!16=300:MENU%!2|
00004230 30 3d 34 34 3a 4d 45 4e 55 25 21 32 34 3d 30 0d |0=44:MENU%!24=0.|
00004240 0f 6e b1 dc 20 41 64 64 20 76 65 72 74 69 63 65 |.n.. Add vertice|
00004250 2c 34 2c 38 2c 45 64 69 74 20 76 65 72 74 69 63 |,4,8,Edit vertic|
00004260 65 2c 31 2c 38 2c 41 64 64 20 73 75 72 66 61 63 |e,1,8,Add surfac|
00004270 65 2c 39 2c 38 2c 45 64 69 74 20 73 75 72 66 61 |e,9,8,Edit surfa|
00004280 63 65 2c 31 2c 31 30 2c 53 77 61 70 20 76 65 72 |ce,1,10,Swap ver|
00004290 74 69 63 65 73 2c 32 2c 38 2c 53 77 61 70 20 73 |tices,2,8,Swap s|
000042a0 75 72 66 61 63 65 73 2c 32 2c 31 30 2c 44 65 6c |urfaces,2,10,Del|
000042b0 65 74 65 20 76 65 72 74 69 63 65 2c 31 2c 38 2c |ete vertice,1,8,|
000042c0 44 65 6c 65 74 65 20 73 75 72 66 61 63 65 2c 31 |Delete surface,1|
000042d0 2c 31 30 2c 41 6e 69 6d 61 74 65 2c 30 2c 38 2c |,10,Animate,0,8,|
000042e0 43 6c 65 61 72 20 66 72 61 6d 65 2c 33 2c 31 30 |Clear frame,3,10|
000042f0 0d 0f 78 6b dc 20 46 72 61 6d 65 20 6e 75 6d 62 |..xk. Frame numb|
00004300 65 72 2c 31 2c 38 2c 41 64 64 20 66 72 61 6d 65 |er,1,8,Add frame|
00004310 2c 2d 31 2c 38 2c 43 6f 70 79 20 46 72 61 6d 65 |,-1,8,Copy Frame|
00004320 2c 32 2c 31 30 2c 57 69 72 65 20 66 72 61 6d 65 |,2,10,Wire frame|
00004330 2c 2d 31 2c 38 2c 4d 61 6b 65 20 52 61 79 66 69 |,-1,8,Make Rayfi|
00004340 6c 65 2c 31 30 2c 31 30 2c 46 6c 69 70 20 73 75 |le,10,10,Flip su|
00004350 72 66 61 63 65 2c 31 2c 31 33 36 0d 0f 82 79 f7 |rface,1,136...y.|
00004360 20 8d 44 6e 4f 3a e3 4c 25 3d 30 20 b8 20 31 35 | .DnO:.L%=0 . 15|
00004370 3a f3 20 41 24 2c 42 25 2c 43 25 3a 4d 45 4e 55 |:. A$,B%,C%:MENU|
00004380 25 21 28 32 38 2b 28 4c 25 2a 32 34 29 29 3d 43 |%!(28+(L%*24))=C|
00004390 25 3a e7 20 42 25 3e 2d 31 20 8c 20 4d 45 4e 55 |%:. B%>-1 . MENU|
000043a0 25 21 28 32 38 2b 28 4c 25 2a 32 34 29 2b 34 29 |%!(28+(L%*24)+4)|
000043b0 3d 48 41 4e 44 25 28 42 25 29 20 8b 20 4d 45 4e |=HAND%(B%) . MEN|
000043c0 55 25 21 28 32 38 2b 28 4c 25 2a 32 34 29 2b 34 |U%!(28+(L%*24)+4|
000043d0 29 3d 2d 31 0d 0f 8c 6c 4d 45 4e 55 25 21 28 32 |)=-1...lMENU%!(2|
000043e0 38 2b 28 4c 25 2a 32 34 29 2b 38 29 3d 31 20 84 |8+(L%*24)+8)=1 .|
000043f0 20 28 37 3c 3c 32 34 29 20 84 20 32 35 36 3a 24 | (7<<24) . 256:$|
00004400 28 4d 45 4e 55 25 2b 35 30 30 2b 28 4c 25 2a 32 |(MENU%+500+(L%*2|
00004410 30 29 29 3d 41 24 3a 4d 45 4e 55 25 21 28 32 38 |0))=A$:MENU%!(28|
00004420 2b 28 4c 25 2a 32 34 29 2b 31 32 29 3d 28 4d 45 |+(L%*24)+12)=(ME|
00004430 4e 55 25 2b 35 30 30 2b 28 4c 25 2a 32 30 29 29 |NU%+500+(L%*20))|
00004440 0d 0f 96 3d e7 20 4c 25 3d 31 33 20 80 20 57 49 |...=. L%=13 . WI|
00004450 46 52 25 20 8c 20 4d 45 4e 55 25 21 28 32 38 2b |FR% . MENU%!(28+|
00004460 28 4c 25 2a 32 34 29 29 3d 4d 45 4e 55 25 21 28 |(L%*24))=MENU%!(|
00004470 32 38 2b 28 4c 25 2a 32 34 29 29 2b 31 0d 0f a0 |28+(L%*24))+1...|
00004480 56 4d 45 4e 55 25 21 28 32 38 2b 28 4c 25 2a 32 |VMENU%!(28+(L%*2|
00004490 34 29 2b 31 36 29 3d 4d 45 4e 55 25 2b 39 30 30 |4)+16)=MENU%+900|
000044a0 3a 4d 45 4e 55 25 21 28 32 38 2b 28 4c 25 2a 32 |:MENU%!(28+(L%*2|
000044b0 34 29 2b 32 30 29 3d 32 30 3a ed 3a 24 28 4d 45 |4)+20)=20:.:$(ME|
000044c0 4e 55 25 2b 39 30 30 29 3d 22 41 41 2d 5a 61 2d |NU%+900)="AA-Za-|
000044d0 7a 22 3a 0d 0f aa 32 c8 99 20 22 57 69 6d 70 5f |z":...2.. "Wimp_|
000044e0 43 72 65 61 74 65 4d 65 6e 75 22 2c 2c 4d 45 4e |CreateMenu",,MEN|
000044f0 55 25 2c 4d 4f 55 58 25 2d 36 34 2c 4d 4f 55 59 |U%,MOUX%-64,MOUY|
00004500 25 2b 32 30 30 0d 0f b4 05 e1 0d 0f be 04 0d 0f |%+200...........|
00004510 c8 4c dd a4 67 73 74 72 28 41 44 25 29 3a 57 24 |.L..gstr(AD%):W$|
00004520 3d 22 22 3a e7 20 3f 41 44 25 3c 33 32 20 8c 20 |="":. ?AD%<32 . |
00004530 3d 57 24 20 8b 20 f5 3a 57 24 3d 57 24 2b bd 28 |=W$ . .:W$=W$+.(|
00004540 3f 41 44 25 29 3a 41 44 25 2b 3d 31 3a fd 20 3f |?AD%):AD%+=1:. ?|
00004550 41 44 25 3c 33 32 3a 3d 57 24 0d 0f d2 04 0d 0f |AD%<32:=W$......|
00004560 dc 6a dd a4 67 65 74 69 63 6f 6e 28 57 48 25 2c |.j..geticon(WH%,|
00004570 49 43 25 29 3a 21 49 43 42 4c 4b 25 3d 48 41 4e |IC%):!ICBLK%=HAN|
00004580 44 25 28 57 48 25 29 3a 49 43 42 4c 4b 25 21 34 |D%(WH%):ICBLK%!4|
00004590 3d 49 43 25 3a c8 99 20 22 57 69 6d 70 5f 47 65 |=IC%:.. "Wimp_Ge|
000045a0 74 49 63 6f 6e 53 74 61 74 65 22 2c 2c 49 43 42 |tIconState",,ICB|
000045b0 4c 4b 25 3a 3d a4 67 73 74 72 28 21 28 49 43 42 |LK%:=.gstr(!(ICB|
000045c0 4c 4b 25 2b 32 38 29 29 0d 0f e6 04 0d 0f f0 68 |LK%+28)).......h|
000045d0 dd a4 67 65 74 73 61 76 65 69 63 6f 6e 28 49 43 |..getsaveicon(IC|
000045e0 25 29 3a 21 49 43 42 4c 4b 25 3d 48 41 4e 44 25 |%):!ICBLK%=HAND%|
000045f0 28 38 29 3a 49 43 42 4c 4b 25 21 34 3d 49 43 25 |(8):ICBLK%!4=IC%|
00004600 3a c8 99 20 22 57 69 6d 70 5f 47 65 74 49 63 6f |:.. "Wimp_GetIco|
00004610 6e 53 74 61 74 65 22 2c 2c 49 43 42 4c 4b 25 3a |nState",,ICBLK%:|
00004620 3d a4 67 73 74 72 28 21 28 49 43 42 4c 4b 25 2b |=.gstr(!(ICBLK%+|
00004630 32 38 29 29 0d 0f fa 04 0d 10 04 68 dd a4 67 65 |28)).......h..ge|
00004640 74 72 61 79 69 63 6f 6e 28 49 43 25 29 3a 21 49 |trayicon(IC%):!I|
00004650 43 42 4c 4b 25 3d 48 41 4e 44 25 28 31 30 29 3a |CBLK%=HAND%(10):|
00004660 49 43 42 4c 4b 25 21 34 3d 49 43 25 3a c8 99 20 |ICBLK%!4=IC%:.. |
00004670 22 57 69 6d 70 5f 47 65 74 49 63 6f 6e 53 74 61 |"Wimp_GetIconSta|
00004680 74 65 22 2c 2c 49 43 42 4c 4b 25 3a 3d a4 67 73 |te",,ICBLK%:=.gs|
00004690 74 72 28 21 28 49 43 42 4c 4b 25 2b 32 38 29 29 |tr(!(ICBLK%+28))|
000046a0 0d 10 0e 04 0d 10 18 71 dd a4 68 69 67 68 28 57 |.......q..high(W|
000046b0 48 25 2c 49 43 25 29 3a 21 49 43 42 4c 4b 25 3d |H%,IC%):!ICBLK%=|
000046c0 48 41 4e 44 25 28 57 48 25 29 3a 49 43 42 4c 4b |HAND%(WH%):ICBLK|
000046d0 25 21 34 3d 49 43 25 3a c8 99 20 22 57 69 6d 70 |%!4=IC%:.. "Wimp|
000046e0 5f 47 65 74 49 63 6f 6e 53 74 61 74 65 22 2c 2c |_GetIconState",,|
000046f0 49 43 42 4c 4b 25 3a 3d 28 28 3f 28 49 43 42 4c |ICBLK%:=((?(ICBL|
00004700 4b 25 2b 32 36 29 29 20 80 20 25 31 30 30 30 30 |K%+26)) . %10000|
00004710 30 29 3d 33 32 0d 10 22 04 0d 10 2c 1a dd f2 68 |0)=32.."...,...h|
00004720 69 74 69 63 6f 6e 3a c8 8e 20 42 4c 4b 25 21 31 |iticon:.. BLK%!1|
00004730 36 20 ca 0d 10 36 34 c9 20 31 3a 72 68 6f 25 3d |6 ...64. 1:rho%=|
00004740 bb 28 a4 67 65 74 69 63 6f 6e 28 35 2c 32 29 29 |.(.geticon(5,2))|
00004750 2d 32 30 3a e7 20 72 68 6f 25 3c 35 30 20 8c 20 |-20:. rho%<50 . |
00004760 72 68 6f 25 3d 35 30 0d 10 40 22 f2 73 65 74 69 |rho%=50..@".seti|
00004770 63 6f 6e 28 35 2c 32 2c c3 72 68 6f 25 29 3a f2 |con(5,2,.rho%):.|
00004780 66 6f 72 63 65 64 72 61 77 0d 10 4a 38 c9 20 33 |forcedraw..J8. 3|
00004790 3a 72 68 6f 25 3d bb 28 a4 67 65 74 69 63 6f 6e |:rho%=.(.geticon|
000047a0 28 35 2c 32 29 29 2b 32 30 3a e7 20 72 68 6f 25 |(5,2))+20:. rho%|
000047b0 3e 39 39 39 39 20 8c 20 72 68 6f 25 3d 39 39 39 |>9999 . rho%=999|
000047c0 39 0d 10 54 22 f2 73 65 74 69 63 6f 6e 28 35 2c |9..T".seticon(5,|
000047d0 32 2c c3 72 68 6f 25 29 3a f2 66 6f 72 63 65 64 |2,.rho%):.forced|
000047e0 72 61 77 0d 10 5e 47 c9 20 35 3a 74 68 65 25 3d |raw..^G. 5:the%=|
000047f0 28 bb 28 a4 67 65 74 69 63 6f 6e 28 35 2c 36 29 |(.(.geticon(5,6)|
00004800 29 29 20 83 20 33 36 30 3a 74 68 65 25 2d 3d 31 |)) . 360:the%-=1|
00004810 30 3a e7 20 74 68 65 25 3c 30 20 8c 20 74 68 65 |0:. the%<0 . the|
00004820 25 3d 33 36 30 2b 74 68 65 25 0d 10 68 22 f2 73 |%=360+the%..h".s|
00004830 65 74 69 63 6f 6e 28 35 2c 36 2c c3 74 68 65 25 |eticon(5,6,.the%|
00004840 29 3a f2 66 6f 72 63 65 64 72 61 77 0d 10 72 47 |):.forcedraw..rG|
00004850 c9 20 37 3a 74 68 65 25 3d 28 bb 28 a4 67 65 74 |. 7:the%=(.(.get|
00004860 69 63 6f 6e 28 35 2c 36 29 29 2b 31 30 29 20 83 |icon(5,6))+10) .|
00004870 20 33 36 30 3a f2 73 65 74 69 63 6f 6e 28 35 2c | 360:.seticon(5,|
00004880 36 2c c3 74 68 65 25 29 3a f2 66 6f 72 63 65 64 |6,.the%):.forced|
00004890 72 61 77 0d 10 7c 48 c9 20 39 3a 70 68 69 25 3d |raw..|H. 9:phi%=|
000048a0 28 bb 28 a4 67 65 74 69 63 6f 6e 28 35 2c 31 30 |(.(.geticon(5,10|
000048b0 29 29 29 20 83 20 33 36 30 3a 70 68 69 25 2d 3d |))) . 360:phi%-=|
000048c0 31 30 3a e7 20 70 68 69 25 3c 30 20 8c 20 70 68 |10:. phi%<0 . ph|
000048d0 69 25 3d 33 36 30 2b 70 68 69 25 0d 10 86 23 f2 |i%=360+phi%...#.|
000048e0 73 65 74 69 63 6f 6e 28 35 2c 31 30 2c c3 70 68 |seticon(5,10,.ph|
000048f0 69 25 29 3a f2 66 6f 72 63 65 64 72 61 77 0d 10 |i%):.forcedraw..|
00004900 90 4a c9 20 31 31 3a 70 68 69 25 3d 28 bb 28 a4 |.J. 11:phi%=(.(.|
00004910 67 65 74 69 63 6f 6e 28 35 2c 31 30 29 29 2b 31 |geticon(5,10))+1|
00004920 30 29 20 83 20 33 36 30 3a f2 73 65 74 69 63 6f |0) . 360:.setico|
00004930 6e 28 35 2c 31 30 2c c3 70 68 69 25 29 3a f2 66 |n(5,10,.phi%):.f|
00004940 6f 72 63 65 64 72 61 77 0d 10 9a 19 c9 20 31 38 |orcedraw..... 18|
00004950 2c 31 39 2c 32 31 3a f2 66 6f 72 63 65 64 72 61 |,19,21:.forcedra|
00004960 77 0d 10 a4 05 cb 0d 10 ae 05 e1 0d 10 b8 04 0d |w...............|
00004970 10 c2 35 dd f2 64 72 61 67 73 61 76 65 3a 41 24 |..5..dragsave:A$|
00004980 3d a4 67 65 74 6e 61 6d 65 3a e7 20 64 72 61 67 |=.getname:. drag|
00004990 74 25 3d 48 41 4e 44 25 28 38 29 20 8c 20 e5 20 |t%=HAND%(8) . . |
000049a0 8d 64 60 50 0d 10 cc 38 f2 72 61 79 73 61 76 65 |.d`P...8.raysave|
000049b0 28 41 24 29 3a c8 99 20 22 57 69 6d 70 5f 43 72 |(A$):.. "Wimp_Cr|
000049c0 65 61 74 65 4d 65 6e 75 22 2c 2d 31 3a f2 73 65 |eateMenu",-1:.se|
000049d0 74 72 61 79 6e 61 6d 65 28 41 24 29 0d 10 d6 55 |trayname(A$)...U|
000049e0 42 4c 4b 25 21 31 32 3d 42 4c 4b 25 21 38 3a 42 |BLK%!12=BLK%!8:B|
000049f0 4c 4b 25 21 31 36 3d 33 3a 21 42 4c 4b 25 3d 36 |LK%!16=3:!BLK%=6|
00004a00 34 3a c8 99 20 22 57 69 6d 70 5f 53 65 6e 64 4d |4:.. "Wimp_SendM|
00004a10 65 73 73 61 67 65 22 2c 31 37 2c 42 4c 4b 25 2c |essage",17,BLK%,|
00004a20 42 4c 4b 25 21 32 30 2c 42 4c 4b 25 21 32 34 3a |BLK%!20,BLK%!24:|
00004a30 e1 0d 10 e0 0d f2 73 61 76 65 28 41 24 29 0d 10 |......save(A$)..|
00004a40 ea 1b c8 99 20 22 57 69 6d 70 5f 43 72 65 61 74 |.... "Wimp_Creat|
00004a50 65 4d 65 6e 75 22 2c 2d 31 0d 10 f4 14 f2 73 65 |eMenu",-1.....se|
00004a60 74 73 61 76 65 6e 61 6d 65 28 41 24 29 0d 10 fe |tsavename(A$)...|
00004a70 55 42 4c 4b 25 21 31 32 3d 42 4c 4b 25 21 38 3a |UBLK%!12=BLK%!8:|
00004a80 42 4c 4b 25 21 31 36 3d 33 3a 21 42 4c 4b 25 3d |BLK%!16=3:!BLK%=|
00004a90 36 34 3a c8 99 20 22 57 69 6d 70 5f 53 65 6e 64 |64:.. "Wimp_Send|
00004aa0 4d 65 73 73 61 67 65 22 2c 31 37 2c 42 4c 4b 25 |Message",17,BLK%|
00004ab0 2c 42 4c 4b 25 21 32 30 2c 42 4c 4b 25 21 32 34 |,BLK%!20,BLK%!24|
00004ac0 3a e1 0d 11 08 04 0d 11 12 4b dd a4 67 65 74 6e |:........K..getn|
00004ad0 61 6d 65 3a 57 24 3d 22 22 3a 50 25 3d 42 4c 4b |ame:W$="":P%=BLK|
00004ae0 25 2b 34 34 3a c8 95 20 3f 50 25 3c 3e 30 20 80 |%+44:.. ?P%<>0 .|
00004af0 20 3f 50 25 3c 3e 31 33 3a 57 24 3d 57 24 2b bd | ?P%<>13:W$=W$+.|
00004b00 28 3f 50 25 29 3a 50 25 2b 3d 31 3a ce 3a 3d 57 |(?P%):P%+=1:.:=W|
00004b10 24 0d 11 1c 04 0d 11 26 1c dd f2 61 75 74 6f 6c |$......&...autol|
00004b20 6f 61 64 3a 41 24 3d 4c 46 24 3a e5 20 8d 44 44 |oad:A$=LF$:. .DD|
00004b30 51 0d 11 30 04 0d 11 3a 65 dd f2 6c 6f 61 64 3a |Q..0...:e..load:|
00004b40 41 4e 49 4d 25 3d a3 3a 41 24 3d a4 67 65 74 6e |ANIM%=.:A$=.getn|
00004b50 61 6d 65 3a 42 4c 4b 25 21 31 32 3d 42 4c 4b 25 |ame:BLK%!12=BLK%|
00004b60 21 38 3a 42 4c 4b 25 21 31 36 3d 34 3a 21 42 4c |!8:BLK%!16=4:!BL|
00004b70 4b 25 3d 36 34 3a c8 99 20 22 57 69 6d 70 5f 53 |K%=64:.. "Wimp_S|
00004b80 65 6e 64 4d 65 73 73 61 67 65 22 2c 31 37 2c 42 |endMessage",17,B|
00004b90 4c 4b 25 2c 42 4c 4b 25 21 34 0d 11 44 17 e7 20 |LK%,BLK%!4..D.. |
00004ba0 4f 50 25 3d 30 20 8c 20 f2 6f 70 65 6e 6d 61 69 |OP%=0 . .openmai|
00004bb0 6e 0d 11 4e 14 f2 73 65 74 73 61 76 65 6e 61 6d |n..N..setsavenam|
00004bc0 65 28 41 24 29 0d 11 58 73 46 25 3d 8e 28 41 24 |e(A$)..XsF%=.(A$|
00004bd0 29 3a 66 72 6d 3d 31 3a e8 23 46 25 2c 66 72 6d |):frm=1:.#F%,frm|
00004be0 73 3a e3 4c 25 3d 31 20 b8 20 31 35 3a e8 23 46 |s:.L%=1 . 15:.#F|
00004bf0 25 2c 61 6e 69 6d 28 4c 25 29 3a f2 73 65 74 69 |%,anim(L%):.seti|
00004c00 63 6f 6e 28 30 2c 4c 25 2c c3 61 6e 69 6d 28 4c |con(0,L%,.anim(L|
00004c10 25 29 29 3a ed 3a e3 20 49 25 3d 31 20 b8 20 66 |%)):.:. I%=1 . f|
00004c20 72 6d 73 3a e8 23 46 25 2c 76 74 73 28 49 25 29 |rms:.#F%,vts(I%)|
00004c30 2c 73 66 73 28 49 25 29 0d 11 62 55 e7 20 76 74 |,sfs(I%)..bU. vt|
00004c40 73 28 49 25 29 3e 30 20 8c 20 e3 4c 25 3d 31 20 |s(I%)>0 . .L%=1 |
00004c50 b8 20 76 74 73 28 49 25 29 3a e8 23 46 25 2c 76 |. vts(I%):.#F%,v|
00004c60 65 72 74 25 28 31 2c 4c 25 2c 49 25 29 2c 76 65 |ert%(1,L%,I%),ve|
00004c70 72 74 25 28 32 2c 4c 25 2c 49 25 29 2c 76 65 72 |rt%(2,L%,I%),ver|
00004c80 74 25 28 33 2c 4c 25 2c 49 25 29 3a ed 0d 11 6c |t%(3,L%,I%):...l|
00004c90 42 e7 20 73 66 73 28 49 25 29 3e 30 20 8c 20 e3 |B. sfs(I%)>0 . .|
00004ca0 4c 25 3d 31 20 b8 20 73 66 73 28 49 25 29 3a e3 |L%=1 . sfs(I%):.|
00004cb0 4b 25 3d 30 20 b8 20 35 3a 73 75 72 28 4c 25 2c |K%=0 . 5:sur(L%,|
00004cc0 4b 25 2c 49 25 29 3d 9a 23 46 25 3a ed 3a ed 0d |K%,I%)=.#F%:.:..|
00004cd0 11 76 4d ed 3a d9 23 46 25 3a 44 4d 44 45 25 3d |.vM.:.#F%:DMDE%=|
00004ce0 2d 31 3a c8 99 20 22 57 69 6d 70 5f 46 6f 72 63 |-1:.. "Wimp_Forc|
00004cf0 65 52 65 64 72 61 77 22 2c 48 41 4e 44 25 28 36 |eRedraw",HAND%(6|
00004d00 29 2c 30 2c 2d 36 33 30 2c 36 33 30 2c 30 3a 66 |),0,-630,630,0:f|
00004d10 72 6d 3d 31 3a f2 75 70 63 6f 6e 74 0d 11 80 05 |rm=1:.upcont....|
00004d20 e1 0d 11 8a 04 0d 11 94 69 dd f2 75 70 63 6f 6e |........i..upcon|
00004d30 74 3a f2 73 65 74 69 63 6f 6e 28 35 2c 31 36 2c |t:.seticon(5,16,|
00004d40 c3 76 74 73 28 66 72 6d 29 29 3a f2 73 65 74 69 |.vts(frm)):.seti|
00004d50 63 6f 6e 28 35 2c 32 34 2c c3 73 66 73 28 66 72 |con(5,24,.sfs(fr|
00004d60 6d 29 29 3a f2 73 65 74 69 63 6f 6e 28 35 2c 31 |m)):.seticon(5,1|
00004d70 35 2c c3 66 72 6d 73 29 3a f2 73 65 74 69 63 6f |5,.frms):.setico|
00004d80 6e 28 35 2c 32 35 2c c3 66 72 6d 29 3a e1 0d 11 |n(5,25,.frm):...|
00004d90 9e 2d dd f2 61 6e 69 6d 72 65 74 3a 49 43 25 3d |.-..animret:IC%=|
00004da0 28 42 4c 4b 25 21 34 29 2b 31 3a e7 20 49 43 25 |(BLK%!4)+1:. IC%|
00004db0 3e 31 35 20 8c 20 49 43 25 3d 31 0d 11 a8 42 c8 |>15 . IC%=1...B.|
00004dc0 99 22 57 69 6d 70 5f 53 65 74 43 61 72 65 74 50 |."Wimp_SetCaretP|
00004dd0 6f 73 69 74 69 6f 6e 22 2c 48 41 4e 44 25 28 30 |osition",HAND%(0|
00004de0 29 2c 49 43 25 2c 2c 2c 2d 31 2c a9 a4 67 65 74 |),IC%,,,-1,..get|
00004df0 69 63 6f 6e 28 30 2c 49 43 25 29 3a e1 0d 11 b2 |icon(0,IC%):....|
00004e00 2b dd f2 74 77 6f 69 6e 70 3a 49 43 25 3d 28 42 |+..twoinp:IC%=(B|
00004e10 4c 4b 25 21 34 29 2b 31 3a e7 20 49 43 25 3e 33 |LK%!4)+1:. IC%>3|
00004e20 20 8c 20 49 43 25 3d 32 0d 11 bc 42 c8 99 22 57 | . IC%=2...B.."W|
00004e30 69 6d 70 5f 53 65 74 43 61 72 65 74 50 6f 73 69 |imp_SetCaretPosi|
00004e40 74 69 6f 6e 22 2c 48 41 4e 44 25 28 32 29 2c 49 |tion",HAND%(2),I|
00004e50 43 25 2c 2c 2c 2d 31 2c a9 a4 67 65 74 69 63 6f |C%,,,-1,..getico|
00004e60 6e 28 32 2c 49 43 25 29 3a e1 0d 11 c6 19 dd f2 |n(2,IC%):.......|
00004e70 63 6f 6e 74 72 65 74 3a c8 8e 20 42 4c 4b 25 21 |contret:.. BLK%!|
00004e80 34 20 ca 0d 11 d0 2f c9 20 32 3a 72 68 6f 25 3d |4 ..../. 2:rho%=|
00004e90 bb a4 67 65 74 69 63 6f 6e 28 35 2c 32 29 3a e7 |..geticon(5,2):.|
00004ea0 20 72 68 6f 25 3c 35 30 20 8c 20 72 68 6f 25 3d | rho%<50 . rho%=|
00004eb0 35 30 0d 11 da 22 f2 73 65 74 69 63 6f 6e 28 35 |50...".seticon(5|
00004ec0 2c 32 2c c3 72 68 6f 25 29 3a f2 66 6f 72 63 65 |,2,.rho%):.force|
00004ed0 64 72 61 77 0d 11 e4 42 c9 20 36 3a 74 68 65 25 |draw...B. 6:the%|
00004ee0 3d 28 bb a4 67 65 74 69 63 6f 6e 28 35 2c 36 29 |=(..geticon(5,6)|
00004ef0 29 20 83 20 33 36 30 3a f2 73 65 74 69 63 6f 6e |) . 360:.seticon|
00004f00 28 35 2c 36 2c c3 74 68 65 25 29 3a f2 66 6f 72 |(5,6,.the%):.for|
00004f10 63 65 64 72 61 77 0d 11 ee 45 c9 20 31 30 3a 70 |cedraw...E. 10:p|
00004f20 68 69 25 3d 28 bb a4 67 65 74 69 63 6f 6e 28 35 |hi%=(..geticon(5|
00004f30 2c 31 30 29 29 20 83 20 33 36 30 3a f2 73 65 74 |,10)) . 360:.set|
00004f40 69 63 6f 6e 28 35 2c 31 30 2c c3 70 68 69 25 29 |icon(5,10,.phi%)|
00004f50 3a f2 66 6f 72 63 65 64 72 61 77 0d 11 f8 07 cb |:.forcedraw.....|
00004f60 3a e1 0d 12 02 04 0d 12 0c 55 dd f2 76 65 72 74 |:........U..vert|
00004f70 72 65 74 3a e7 20 42 4c 4b 25 21 34 3d 36 20 8c |ret:. BLK%!4=6 .|
00004f80 20 c8 99 22 57 69 6d 70 5f 53 65 74 43 61 72 65 | .."Wimp_SetCare|
00004f90 74 50 6f 73 69 74 69 6f 6e 22 2c 48 41 4e 44 25 |tPosition",HAND%|
00004fa0 28 34 29 2c 37 2c 2c 2c 2d 31 2c a9 a4 67 65 74 |(4),7,,,-1,..get|
00004fb0 69 63 6f 6e 28 34 2c 37 29 3a e1 0d 12 16 4b e7 |icon(4,7):....K.|
00004fc0 20 42 4c 4b 25 21 34 3d 37 20 8c 20 c8 99 22 57 | BLK%!4=7 . .."W|
00004fd0 69 6d 70 5f 53 65 74 43 61 72 65 74 50 6f 73 69 |imp_SetCaretPosi|
00004fe0 74 69 6f 6e 22 2c 48 41 4e 44 25 28 34 29 2c 38 |tion",HAND%(4),8|
00004ff0 2c 2c 2c 2d 31 2c a9 a4 67 65 74 69 63 6f 6e 28 |,,,-1,..geticon(|
00005000 34 2c 38 29 3a e1 0d 12 20 4f e7 20 42 4c 4b 25 |4,8):... O. BLK%|
00005010 21 34 3d 38 20 8c 20 c8 99 22 57 69 6d 70 5f 53 |!4=8 . .."Wimp_S|
00005020 65 74 43 61 72 65 74 50 6f 73 69 74 69 6f 6e 22 |etCaretPosition"|
00005030 2c 48 41 4e 44 25 28 34 29 2c 36 2c 2c 2c 2d 31 |,HAND%(4),6,,,-1|
00005040 2c a9 a4 67 65 74 69 63 6f 6e 28 34 2c 36 29 3a |,..geticon(4,6):|
00005050 e1 20 8b 20 e1 0d 12 2a 04 0d 12 34 67 dd f2 73 |. . ...*...4g..s|
00005060 75 72 66 72 65 74 3a f7 20 8d 54 7e 52 3a f5 3a |urfret:. .T~R:.:|
00005070 f3 20 46 25 2c 54 25 3a fd 20 46 25 3d 42 4c 4b |. F%,T%:. F%=BLK|
00005080 25 21 34 3a c8 99 22 57 69 6d 70 5f 53 65 74 43 |%!4:.."Wimp_SetC|
00005090 61 72 65 74 50 6f 73 69 74 69 6f 6e 22 2c 48 41 |aretPosition",HA|
000050a0 4e 44 25 28 39 29 2c 54 25 2c 2c 2c 2d 31 2c a9 |ND%(9),T%,,,-1,.|
000050b0 a4 67 65 74 69 63 6f 6e 28 39 2c 54 25 29 3a e1 |.geticon(9,T%):.|
000050c0 0d 12 3e 21 dc 20 33 2c 38 2c 38 2c 37 2c 37 2c |..>!. 3,8,8,7,7,|
000050d0 39 2c 39 2c 31 31 2c 31 31 2c 31 33 2c 31 33 2c |9,9,11,11,13,13,|
000050e0 33 0d 12 48 04 0d 12 52 36 dd f2 66 69 6c 6c 61 |3..H...R6..filla|
000050f0 6e 69 6d 3a e3 4c 25 3d 31 20 b8 20 31 35 3a 61 |nim:.L%=1 . 15:a|
00005100 6e 69 6d 28 4c 25 29 3d bb a4 67 65 74 69 63 6f |nim(L%)=..getico|
00005110 6e 28 30 2c 4c 25 29 3a ed 3a e1 0d 12 5c 04 0d |n(0,L%):.:...\..|
00005120 12 66 48 dd f2 68 66 72 3a e3 20 73 75 6e 6f 3d |.fH..hfr:. suno=|
00005130 31 20 b8 20 73 66 73 28 66 72 6d 29 3a f2 63 73 |1 . sfs(frm):.cs|
00005140 76 28 73 75 6e 6f 29 3a f2 63 6e 76 3a f2 63 6c |v(suno):.cnv:.cl|
00005150 6f 73 76 28 73 75 6e 6f 29 3a f2 76 74 28 73 75 |osv(suno):.vt(su|
00005160 6e 6f 29 3a ed 3a e1 0d 12 70 04 0d 12 7a a1 dd |no):.:...p...z..|
00005170 f2 63 73 76 28 73 75 6e 6f 29 3a e3 20 69 3d 31 |.csv(suno):. i=1|
00005180 20 b8 20 33 3a 76 65 63 31 28 69 29 3d 76 65 72 | . 3:vec1(i)=ver|
00005190 74 25 28 69 2c 73 75 72 28 73 75 6e 6f 2c 32 2c |t%(i,sur(suno,2,|
000051a0 66 72 6d 29 2c 66 72 6d 29 2d 76 65 72 74 25 28 |frm),frm)-vert%(|
000051b0 69 2c 73 75 72 28 73 75 6e 6f 2c 31 2c 66 72 6d |i,sur(suno,1,frm|
000051c0 29 2c 66 72 6d 29 3a 76 65 63 32 28 69 29 3d 76 |),frm):vec2(i)=v|
000051d0 65 72 74 25 28 69 2c 73 75 72 28 73 75 6e 6f 2c |ert%(i,sur(suno,|
000051e0 33 2c 66 72 6d 29 2c 66 72 6d 29 2d 76 65 72 74 |3,frm),frm)-vert|
000051f0 25 28 69 2c 73 75 72 28 73 75 6e 6f 2c 31 2c 66 |%(i,sur(suno,1,f|
00005200 72 6d 29 2c 66 72 6d 29 3a ed 3a e1 0d 12 84 04 |rm),frm):.:.....|
00005210 0d 12 8e 7a dd f2 63 6e 76 3a 6e 6f 72 78 3d 76 |...z..cnv:norx=v|
00005220 65 63 31 28 32 29 2a 76 65 63 32 28 33 29 2d 76 |ec1(2)*vec2(3)-v|
00005230 65 63 32 28 32 29 2a 76 65 63 31 28 33 29 3a 6e |ec2(2)*vec1(3):n|
00005240 6f 72 79 3d 76 65 63 31 28 33 29 2a 76 65 63 32 |ory=vec1(3)*vec2|
00005250 28 31 29 2d 76 65 63 32 28 33 29 2a 76 65 63 31 |(1)-vec2(3)*vec1|
00005260 28 31 29 3a 6e 6f 72 7a 3d 76 65 63 31 28 31 29 |(1):norz=vec1(1)|
00005270 2a 76 65 63 32 28 32 29 2d 76 65 63 32 28 31 29 |*vec2(2)-vec2(1)|
00005280 2a 76 65 63 31 28 32 29 3a e1 0d 12 98 04 0d 12 |*vec1(2):.......|
00005290 a2 85 dd f2 63 6c 6f 73 76 28 73 75 6e 6f 29 3a |....closv(suno):|
000052a0 6c 6f 73 78 3d 78 76 77 2d 76 65 72 74 25 28 31 |losx=xvw-vert%(1|
000052b0 2c 73 75 72 28 73 75 6e 6f 2c 31 2c 66 72 6d 29 |,sur(suno,1,frm)|
000052c0 2c 66 72 6d 29 3a 6c 6f 73 79 3d 79 76 77 2d 76 |,frm):losy=yvw-v|
000052d0 65 72 74 25 28 32 2c 73 75 72 28 73 75 6e 6f 2c |ert%(2,sur(suno,|
000052e0 31 2c 66 72 6d 29 2c 66 72 6d 29 3a 6c 6f 73 7a |1,frm),frm):losz|
000052f0 3d 7a 76 77 2d 76 65 72 74 25 28 33 2c 73 75 72 |=zvw-vert%(3,sur|
00005300 28 73 75 6e 6f 2c 31 2c 66 72 6d 29 2c 66 72 6d |(suno,1,frm),frm|
00005310 29 3a e1 0d 12 ac 04 0d 12 b6 3e dd f2 76 74 28 |):........>..vt(|
00005320 73 75 6e 6f 29 3a 76 69 73 69 62 6c 65 28 73 75 |suno):visible(su|
00005330 6e 6f 29 3d 6e 6f 72 78 2a 6c 6f 73 78 2b 6e 6f |no)=norx*losx+no|
00005340 72 79 2a 6c 6f 73 79 2b 6e 6f 72 7a 2a 6c 6f 73 |ry*losy+norz*los|
00005350 7a 3e 30 3a e1 0d 12 c0 04 0d 12 ca 43 dd f2 70 |z>0:........C..p|
00005360 69 63 6b 63 6f 6c 3a e7 20 43 32 35 36 20 8c 20 |ickcol:. C256 . |
00005370 e6 30 2c 73 75 72 28 73 75 6e 6f 2c 30 2c 66 72 |.0,sur(suno,0,fr|
00005380 6d 29 20 c8 9c 20 28 73 75 72 28 73 75 6e 6f 2c |m) .. (sur(suno,|
00005390 35 2c 66 72 6d 29 2a 36 34 29 3a e1 0d 12 d4 9a |5,frm)*64):.....|
000053a0 43 3d 73 75 72 28 73 75 6e 6f 2c 30 2c 66 72 6d |C=sur(suno,0,frm|
000053b0 29 3a 52 3d 28 43 20 80 20 33 29 2a 36 34 3a 47 |):R=(C . 3)*64:G|
000053c0 3d 28 43 20 80 20 31 32 29 2a 31 36 3a 42 3d 28 |=(C . 12)*16:B=(|
000053d0 43 20 80 20 34 38 29 2a 34 3a 43 3d 73 75 72 28 |C . 48)*4:C=sur(|
000053e0 73 75 6e 6f 2c 35 2c 66 72 6d 29 3a 52 2b 3d 43 |suno,5,frm):R+=C|
000053f0 3a 47 2b 3d 43 3a 42 2b 3d 43 3a 43 54 52 25 3d |:G+=C:B+=C:CTR%=|
00005400 28 42 3c 3c 32 34 29 2b 28 47 3c 3c 31 36 29 2b |(B<<24)+(G<<16)+|
00005410 28 52 3c 3c 38 29 3a c8 99 20 22 43 6f 6c 6f 75 |(R<<8):.. "Colou|
00005420 72 54 72 61 6e 73 5f 53 65 74 47 43 4f 4c 22 2c |rTrans_SetGCOL",|
00005430 43 54 52 25 3a e1 0d 12 de 04 0d 12 e8 28 dd f2 |CTR%:........(..|
00005440 74 61 70 28 73 75 6e 6f 29 3a ea 20 76 65 72 74 |tap(suno):. vert|
00005450 65 78 6e 6f 2c 73 74 61 72 74 78 2c 73 74 61 72 |exno,startx,star|
00005460 74 79 0d 12 f2 5c 73 74 61 72 74 78 3d 78 73 28 |ty...\startx=xs(|
00005470 73 75 72 28 73 75 6e 6f 2c 31 2c 66 72 6d 29 29 |sur(suno,1,frm))|
00005480 3a 73 74 61 72 74 79 3d 79 73 28 73 75 72 28 73 |:starty=ys(sur(s|
00005490 75 6e 6f 2c 31 2c 66 72 6d 29 29 3a ec 20 73 74 |uno,1,frm)):. st|
000054a0 61 72 74 78 2c 73 74 61 72 74 79 3a e7 20 ac 20 |artx,starty:. . |
000054b0 57 49 46 52 25 20 8c 20 e5 20 8d 54 46 53 0d 12 |WIFR% . . .TFS..|
000054c0 fc a5 f2 70 69 63 6b 63 6f 6c 3a f0 35 2c 78 73 |...pickcol:.5,xs|
000054d0 28 73 75 72 28 73 75 6e 6f 2c 32 2c 66 72 6d 29 |(sur(suno,2,frm)|
000054e0 29 2c 79 73 28 73 75 72 28 73 75 6e 6f 2c 32 2c |),ys(sur(suno,2,|
000054f0 66 72 6d 29 29 3a f0 35 2c 78 73 28 73 75 72 28 |frm)):.5,xs(sur(|
00005500 73 75 6e 6f 2c 33 2c 66 72 6d 29 29 2c 79 73 28 |suno,3,frm)),ys(|
00005510 73 75 72 28 73 75 6e 6f 2c 33 2c 66 72 6d 29 29 |sur(suno,3,frm))|
00005520 3a f0 35 2c 78 73 28 73 75 72 28 73 75 6e 6f 2c |:.5,xs(sur(suno,|
00005530 34 2c 66 72 6d 29 29 2c 79 73 28 73 75 72 28 73 |4,frm)),ys(sur(s|
00005540 75 6e 6f 2c 34 2c 66 72 6d 29 29 3a f0 35 2c 73 |uno,4,frm)):.5,s|
00005550 74 61 72 74 78 2c 73 74 61 72 74 79 3a e5 20 8d |tartx,starty:. .|
00005560 54 5a 53 0d 13 06 36 ec 20 78 73 28 73 75 72 28 |TZS...6. xs(sur(|
00005570 73 75 6e 6f 2c 32 2c 66 72 6d 29 29 2c 79 73 28 |suno,2,frm)),ys(|
00005580 73 75 72 28 73 75 6e 6f 2c 32 2c 66 72 6d 29 29 |sur(suno,2,frm))|
00005590 3a f2 70 69 63 6b 63 6f 6c 0d 13 10 6b f0 38 35 |:.pickcol...k.85|
000055a0 2c 78 73 28 73 75 72 28 73 75 6e 6f 2c 33 2c 66 |,xs(sur(suno,3,f|
000055b0 72 6d 29 29 2c 79 73 28 73 75 72 28 73 75 6e 6f |rm)),ys(sur(suno|
000055c0 2c 33 2c 66 72 6d 29 29 3a ec 20 78 73 28 73 75 |,3,frm)):. xs(su|
000055d0 72 28 73 75 6e 6f 2c 34 2c 66 72 6d 29 29 2c 79 |r(suno,4,frm)),y|
000055e0 73 28 73 75 72 28 73 75 6e 6f 2c 34 2c 66 72 6d |s(sur(suno,4,frm|
000055f0 29 29 3a f0 38 35 2c 73 74 61 72 74 78 2c 73 74 |)):.85,startx,st|
00005600 61 72 74 79 0d 13 1a 2e e7 20 ac 20 a4 68 69 67 |arty..... . .hig|
00005610 68 28 35 2c 31 38 29 20 8c 20 e1 20 8b 20 e7 20 |h(5,18) . . . . |
00005620 a4 68 69 67 68 28 35 2c 32 31 29 20 8c 20 8d 54 |.high(5,21) . .T|
00005630 78 53 0d 13 24 17 e7 20 ac 20 a4 68 69 67 68 28 |xS..$.. . .high(|
00005640 35 2c 31 39 29 20 8c 20 e1 0d 13 2e 7f ef 35 3a |5,19) . ......5:|
00005650 e6 30 2c 36 33 20 c8 9c 20 31 39 32 3a e3 4c 25 |.0,63 .. 192:.L%|
00005660 3d 31 20 b8 20 34 3a 76 75 73 28 73 75 72 28 73 |=1 . 4:vus(sur(s|
00005670 75 6e 6f 2c 4c 25 2c 66 72 6d 29 29 3d 31 3a f0 |uno,L%,frm))=1:.|
00005680 34 2c 78 73 28 73 75 72 28 73 75 6e 6f 2c 4c 25 |4,xs(sur(suno,L%|
00005690 2c 66 72 6d 29 29 2c 79 73 28 73 75 72 28 73 75 |,frm)),ys(sur(su|
000056a0 6e 6f 2c 4c 25 2c 66 72 6d 29 29 3a f1 3b 73 75 |no,L%,frm)):.;su|
000056b0 72 28 73 75 6e 6f 2c 4c 25 2c 66 72 6d 29 3b 3a |r(suno,L%,frm);:|
000056c0 ed 3a ef 34 3a 87 3a e1 0d 13 38 87 ef 35 3a e6 |.:.4:.:...8..5:.|
000056d0 30 2c 36 33 20 c8 9c 20 31 39 32 3a 70 78 3d 28 |0,63 .. 192:px=(|
000056e0 78 73 28 73 75 72 28 73 75 6e 6f 2c 31 2c 66 72 |xs(sur(suno,1,fr|
000056f0 6d 29 29 2b 78 73 28 73 75 72 28 73 75 6e 6f 2c |m))+xs(sur(suno,|
00005700 33 2c 66 72 6d 29 29 29 2f 32 3a 70 79 3d 28 79 |3,frm)))/2:py=(y|
00005710 73 28 73 75 72 28 73 75 6e 6f 2c 31 2c 66 72 6d |s(sur(suno,1,frm|
00005720 29 29 2b 79 73 28 73 75 72 28 73 75 6e 6f 2c 33 |))+ys(sur(suno,3|
00005730 2c 66 72 6d 29 29 29 2f 32 3a f0 34 2c 70 78 2c |,frm)))/2:.4,px,|
00005740 70 79 3a f1 3b 73 75 6e 6f 3b 3a ef 34 3a 87 0d |py:.;suno;:.4:..|
00005750 13 42 05 e1 0d 13 4c 04 0d 13 56 bd dd f2 69 76 |.B....L...V...iv|
00005760 74 28 72 68 6f 25 2c 74 68 65 25 2c 70 68 69 25 |t(rho%,the%,phi%|
00005770 29 3a 63 74 68 65 3d 9b 28 b2 28 74 68 65 25 29 |):cthe=.(.(the%)|
00005780 29 3a 73 74 68 65 3d b5 28 b2 28 74 68 65 25 29 |):sthe=.(.(the%)|
00005790 29 3a 63 70 68 69 3d 9b 28 b2 28 70 68 69 25 29 |):cphi=.(.(phi%)|
000057a0 29 3a 73 70 68 69 3d b5 28 b2 28 70 68 69 25 29 |):sphi=.(.(phi%)|
000057b0 29 3a 76 61 3d 2d 73 74 68 65 3a 76 62 3d 63 74 |):va=-sthe:vb=ct|
000057c0 68 65 3a 76 65 3d 2d 63 74 68 65 2a 63 70 68 69 |he:ve=-cthe*cphi|
000057d0 3a 76 66 3d 2d 73 74 68 65 2a 63 70 68 69 3a 76 |:vf=-sthe*cphi:v|
000057e0 67 3d 73 70 68 69 3a 76 69 3d 2d 63 74 68 65 2a |g=sphi:vi=-cthe*|
000057f0 73 70 68 69 3a 76 6a 3d 2d 73 74 68 65 2a 73 70 |sphi:vj=-sthe*sp|
00005800 68 69 3a 76 6b 3d 2d 63 70 68 69 3a 76 6c 3d 72 |hi:vk=-cphi:vl=r|
00005810 68 6f 25 3a e1 0d 13 60 04 0d 13 6a 47 dd f2 76 |ho%:...`...jG..v|
00005820 69 74 72 28 78 2c 79 2c 7a 29 3a 78 65 3d 76 61 |itr(x,y,z):xe=va|
00005830 2a 78 2b 76 62 2a 79 3a 79 65 3d 76 65 2a 78 2b |*x+vb*y:ye=ve*x+|
00005840 76 66 2a 79 2b 76 67 2a 7a 3a 7a 65 3d 76 69 2a |vf*y+vg*z:ze=vi*|
00005850 78 2b 76 6a 2a 79 2b 76 6b 2a 7a 2b 76 6c 3a e1 |x+vj*y+vk*z+vl:.|
00005860 0d 13 74 04 0d 13 7e 2e dd f2 70 65 74 72 28 78 |..t...~...petr(x|
00005870 65 2c 79 65 2c 7a 65 2c 64 29 3a 73 78 3d 64 2a |e,ye,ze,d):sx=d*|
00005880 78 65 2f 7a 65 3a 73 79 3d 64 2a 79 65 2f 7a 65 |xe/ze:sy=d*ye/ze|
00005890 3a e1 0d 13 88 04 0d 13 92 7f dd f2 77 6f 63 6f |:...........woco|
000058a0 3a e3 20 76 3d 31 20 b8 20 76 74 73 28 66 72 6d |:. v=1 . vts(frm|
000058b0 29 3a f2 76 69 74 72 28 76 65 72 74 25 28 31 2c |):.vitr(vert%(1,|
000058c0 76 2c 66 72 6d 29 2c 76 65 72 74 25 28 32 2c 76 |v,frm),vert%(2,v|
000058d0 2c 66 72 6d 29 2c 76 65 72 74 25 28 33 2c 76 2c |,frm),vert%(3,v,|
000058e0 66 72 6d 29 29 3a 7a 28 76 29 3d 7a 65 3a f2 70 |frm)):z(v)=ze:.p|
000058f0 65 74 72 28 78 65 2c 79 65 2c 7a 65 2c 64 29 3a |etr(xe,ye,ze,d):|
00005900 78 73 28 76 29 3d 73 78 3a 79 73 28 76 29 3d 73 |xs(v)=sx:ys(v)=s|
00005910 79 3a ed 3a e1 0d 13 9c a5 dd f2 64 72 61 77 28 |y:.:.......draw(|
00005920 49 25 29 3a c8 99 20 22 4f 53 5f 53 70 72 69 74 |I%):.. "OS_Sprit|
00005930 65 4f 70 22 2c 33 31 36 2c 53 50 52 49 54 45 2c |eOp",316,SPRITE,|
00005940 22 56 49 45 57 22 20 b8 20 56 31 2c 56 32 2c 56 |"VIEW" . V1,V2,V|
00005950 33 2c 56 34 3a 54 53 25 3d 66 72 6d 3a 66 72 6d |3,V4:TS%=frm:frm|
00005960 3d 49 25 3a ef 32 39 2c 33 31 35 3b 33 31 35 3b |=I%:.29,315;315;|
00005970 3a c8 99 20 22 4f 53 5f 52 65 61 64 4d 6f 64 65 |:.. "OS_ReadMode|
00005980 56 61 72 69 61 62 6c 65 22 2c 2d 31 2c 33 20 b8 |Variable",-1,3 .|
00005990 20 2c 2c 4e 43 25 3a e7 20 4e 43 25 3d 36 33 20 | ,,NC%:. NC%=63 |
000059a0 8c 20 43 32 35 36 3d b9 20 8b 20 43 32 35 36 3d |. C256=. . C256=|
000059b0 a3 3a e6 30 2c 31 33 35 3a da 0d 13 a6 5f 76 75 |.:.0,135:...._vu|
000059c0 73 28 29 3d 30 3a f2 69 76 74 28 72 68 6f 25 2c |s()=0:.ivt(rho%,|
000059d0 74 68 65 25 2c 70 68 69 25 29 3a 78 76 77 3d 72 |the%,phi%):xvw=r|
000059e0 68 6f 25 2a 73 70 68 69 2a 63 74 68 65 3a 79 76 |ho%*sphi*cthe:yv|
000059f0 77 3d 72 68 6f 25 2a 73 70 68 69 2a 73 74 68 65 |w=rho%*sphi*sthe|
00005a00 3a 7a 76 77 3d 72 68 6f 25 2a 63 70 68 69 3a f2 |:zvw=rho%*cphi:.|
00005a10 68 66 72 3a f2 77 6f 63 6f 0d 13 b0 45 f2 64 65 |hfr:.woco...E.de|
00005a20 73 6f 3a f2 70 72 65 6d 76 65 72 74 3a e7 20 57 |so:.premvert:. W|
00005a30 49 46 52 25 20 8c 20 e3 20 73 75 6e 6f 3d 31 20 |IFR% . . suno=1 |
00005a40 b8 20 73 66 73 28 66 72 6d 29 3a f2 74 61 70 28 |. sfs(frm):.tap(|
00005a50 73 75 6e 6f 29 3a ed 3a e5 20 8d 64 4e 53 0d 13 |suno):.:. .dNS..|
00005a60 ba 1e e7 20 76 69 73 3d 30 20 8c 20 f2 70 72 65 |... vis=0 . .pre|
00005a70 6d 76 65 72 74 3a e5 20 8d 64 4e 53 0d 13 c4 25 |mvert:. .dNS...%|
00005a80 e3 20 73 75 6e 6f 3d 31 20 b8 20 76 69 73 3a f2 |. suno=1 . vis:.|
00005a90 74 61 70 28 64 65 28 73 75 6e 6f 2c 30 29 29 3a |tap(de(suno,0)):|
00005aa0 ed 0d 13 ce 33 66 72 6d 3d 54 53 25 3a ef 32 39 |....3frm=TS%:.29|
00005ab0 2c 30 3b 30 3b 3a c8 99 20 22 4f 53 5f 53 70 72 |,0;0;:.. "OS_Spr|
00005ac0 69 74 65 4f 70 22 2c 56 31 2c 56 32 2c 56 33 2c |iteOp",V1,V2,V3,|
00005ad0 56 34 3a e1 0d 13 d8 04 0d 13 e2 28 dd f2 64 65 |V4:........(..de|
00005ae0 73 6f 3a 76 69 73 3d 30 3a 64 65 28 29 3d 30 3a |so:vis=0:de()=0:|
00005af0 e7 20 73 66 73 28 66 72 6d 29 3d 30 20 8c 20 e1 |. sfs(frm)=0 . .|
00005b00 0d 13 ec 4c e3 4c 25 3d 31 20 b8 20 73 66 73 28 |...L.L%=1 . sfs(|
00005b10 66 72 6d 29 3a e7 20 76 69 73 69 62 6c 65 28 4c |frm):. visible(L|
00005b20 25 29 20 8c 20 76 69 73 2b 3d 31 3a 64 65 28 76 |%) . vis+=1:de(v|
00005b30 69 73 2c 30 29 3d 4c 25 3a 64 65 28 76 69 73 2c |is,0)=L%:de(vis,|
00005b40 31 29 3d 76 69 73 3a ed 20 8b 20 ed 0d 13 f6 0f |1)=vis:. . .....|
00005b50 e3 4c 25 3d 31 20 b8 20 76 69 73 0d 14 00 6b 6d |.L%=1 . vis...km|
00005b60 61 78 3d 7a 28 73 75 72 28 64 65 28 4c 25 2c 30 |ax=z(sur(de(L%,0|
00005b70 29 2c 31 2c 66 72 6d 29 29 3a e3 20 4b 25 3d 32 |),1,frm)):. K%=2|
00005b80 20 b8 20 34 3a e7 20 7a 28 73 75 72 28 64 65 28 | . 4:. z(sur(de(|
00005b90 4c 25 2c 30 29 2c 4b 25 2c 66 72 6d 29 29 3e 6d |L%,0),K%,frm))>m|
00005ba0 61 78 20 8c 20 6d 61 78 3d 7a 28 73 75 72 28 64 |ax . max=z(sur(d|
00005bb0 65 28 4c 25 2c 30 29 2c 4b 25 2c 66 72 6d 29 29 |e(L%,0),K%,frm))|
00005bc0 3a ed 20 8b 20 ed 0d 14 0a 12 64 65 28 4c 25 2c |:. . .....de(L%,|
00005bd0 31 29 3d 6d 61 78 3a ed 0d 14 14 21 e3 4c 25 3d |1)=max:....!.L%=|
00005be0 31 20 b8 20 76 69 73 2d 31 3a e3 4b 25 3d 4c 25 |1 . vis-1:.K%=L%|
00005bf0 2b 31 20 b8 20 76 69 73 3a 0d 14 1e 99 e7 20 64 |+1 . vis:..... d|
00005c00 65 28 4b 25 2c 31 29 3e 64 65 28 4c 25 2c 31 29 |e(K%,1)>de(L%,1)|
00005c10 20 8c 20 c8 94 20 64 65 28 4b 25 2c 31 29 2c 64 | . .. de(K%,1),d|
00005c20 65 28 4c 25 2c 31 29 3a c8 94 20 64 65 28 4b 25 |e(L%,1):.. de(K%|
00005c30 2c 30 29 2c 64 65 28 4c 25 2c 30 29 20 8b 20 e7 |,0),de(L%,0) . .|
00005c40 20 64 65 28 4b 25 2c 31 29 3d 64 65 28 4c 25 2c | de(K%,1)=de(L%,|
00005c50 31 29 20 80 20 64 65 28 4b 25 2c 30 29 3c 64 65 |1) . de(K%,0)<de|
00005c60 28 4c 25 2c 30 29 20 8c 20 c8 94 20 64 65 28 4b |(L%,0) . .. de(K|
00005c70 25 2c 31 29 2c 64 65 28 4c 25 2c 31 29 3a c8 94 |%,1),de(L%,1):..|
00005c80 20 64 65 28 4b 25 2c 30 29 2c 64 65 28 4c 25 2c | de(K%,0),de(L%,|
00005c90 30 29 0d 14 28 09 ed 3a ed 3a e1 0d 14 32 04 0d |0)..(..:.:...2..|
00005ca0 14 3c 2f dd f2 70 72 65 6d 76 65 72 74 3a e7 20 |.</..premvert:. |
00005cb0 76 74 73 28 66 72 6d 29 3d 30 20 84 20 ac 20 a4 |vts(frm)=0 . . .|
00005cc0 68 69 67 68 28 35 2c 31 38 29 20 8c 20 e1 0d 14 |high(5,18) . ...|
00005cd0 46 17 e7 20 ac 20 a4 68 69 67 68 28 35 2c 31 39 |F.. . .high(5,19|
00005ce0 29 20 8c 20 e1 0d 14 50 49 e6 30 2c 36 30 20 c8 |) . ...PI.0,60 .|
00005cf0 9c 20 31 39 32 3a ef 35 3a e3 4c 25 3d 31 20 b8 |. 192:.5:.L%=1 .|
00005d00 20 76 74 73 28 66 72 6d 29 3a e7 20 76 75 73 28 | vts(frm):. vus(|
00005d10 4c 25 29 3d 30 20 8c 20 f0 34 2c 78 73 28 4c 25 |L%)=0 . .4,xs(L%|
00005d20 29 2c 79 73 28 4c 25 29 3a f1 3b 4c 25 3b 0d 14 |),ys(L%):.;L%;..|
00005d30 5a 0c ed 3a ef 34 3a 87 3a e1 0d 14 64 04 0d 14 |Z..:.4:.:...d...|
00005d40 6e 12 dd a4 61 6e 67 6c 65 28 58 25 2c 59 25 29 |n...angle(X%,Y%)|
00005d50 0d 14 78 43 e7 20 58 25 3d 30 20 80 20 59 25 3e |..xC. X%=0 . Y%>|
00005d60 30 20 8c 20 3d 39 30 20 8b 20 e7 20 58 25 3d 30 |0 . =90 . . X%=0|
00005d70 20 80 20 59 25 3c 30 20 8c 20 3d 32 37 30 20 8b | . Y%<0 . =270 .|
00005d80 20 e7 20 58 25 3d 30 20 80 20 59 25 3d 30 20 8c | . X%=0 . Y%=0 .|
00005d90 20 3d 30 0d 14 82 28 41 3d 9d 28 99 28 59 25 2f | =0...(A=.(.(Y%/|
00005da0 58 25 29 29 3a e7 20 58 25 3c 30 20 80 20 59 25 |X%)):. X%<0 . Y%|
00005db0 3e 30 20 8c 20 3d 31 38 30 2b 41 0d 14 8c 13 e7 |>0 . =180+A.....|
00005dc0 20 58 25 3c 30 20 8c 20 3d 31 38 30 2b 41 0d 14 | X%<0 . =180+A..|
00005dd0 96 13 e7 20 59 25 3c 30 20 8c 20 3d 33 36 30 2b |... Y%<0 . =360+|
00005de0 41 0d 14 a0 06 3d 41 0d ff |A....=A..|
00005de9 
.