Home » Personal collection » Acorn ADFS disks » Electron » Sideways_ROMS.ADF » PixMap/Shaper

PixMap/Shaper

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 » Personal collection » Acorn ADFS disks » Electron » Sideways_ROMS.ADF
Filename: PixMap/Shaper
Read OK: ✔
File size: 120D bytes
Load address: FFFF1D00
Exec address: FFFF8023
Duplicates

There is 1 duplicate copy of this file in the archive:

File contents
   10REM BBC Pixel Mapper Shape Creator
   20REM by Martin Dawe
   30REM (c) Acorn Computing
   40:
   50MODE0
   60IF PAGE>&1900 THEN PAGE=&1900:CHAIN"SHAPES"
   70*FX4,1
   80VDU23,43,54,119,119,8,119,119,54,0
   90max%=15
  100DIMsx%(max%),sy%(max%),fx%(max%),fy%(max%),xx%(max%),xy%(max%),type%(max%)
  110DIMcircx(11),circy(11)
  120FOR c%=0 TO 11
  130circx(c%)=COS(((c%+1)/6)*PI)
  140circy(c%)=SIN(((c%+1)/6)*PI)
  150NEXT
  160col%=2:num%=-1:shape%=0:lock%=FALSE
  170INPUT"Grid size in pixels (default- 16) ";spc%
  180IF spc%=0 spc%=16
  190spc%=spc%*4
  200INPUT'"Show grid";yn$
  210MODE1
  220IF INSTR("Yy",LEFT$(yn$,1)) show%=TRUE ELSE show%=FALSE
  230x%=640:y%=512
  240ONERROR IF ERR=17 PROCrestore ELSE REPORT:PRINT" at line ";ERL:END
  250VDU5
  260IF show% PROCgrid
  270GCOL0,3
  280PLOT69,0,0:PLOT69,1279,0:PLOT69,0,1023:PLOT69,1279,1023
  290GCOL3,3
  300PROCcross
  310REPEAT
  320ox%=x%:oy%=y%
  330oshape%=shape%
  340draw%=FALSE
  350IF INKEY-17 PROCquit
  360IF INKEY-40 PROCsave
  370IF INKEY-87 PROCnleft
  380IF INKEY-84 x%=spc%*(x% DIV spc%):y%=spc%*(y% DIV spc%):stp%=spc%:lock%=TRUE:draw%=TRUE
  390IF INKEY-86 lock%=FALSE
  400IF INKEY-1 AND NOTlock% stp%=32 ELSEIF INKEY-2 AND NOTlock% stp%=96 ELSE IF NOTlock% stp%=4
  410IF INKEY-99 IF shape% PROCshape2
  420IF INKEY-101 col%=0:PROCforeback
  430IF INKEY-68 col%=2:PROCforeback
  440IF INKEY-55 x%=640:y%=512:draw%=TRUE:IF lock% x%=spc%*(x% DIV spc%):y%=spc%*(y% DIV spc%)
  450IF INKEY-36 shape%=1:PROCshape1
  460IF INKEY-52 shape%=3:PROCshape1
  470IF INKEY-83 shape%=4:PROCshape1
  480IF INKEY-122 x%=x%+stp%:draw%=TRUE
  490IF INKEY-26 x%=x%-stp%:draw%=TRUE
  500IF INKEY-58 y%=y%+stp%:draw%=TRUE
  510IF INKEY-42 y%=y%-stp%:draw%=TRUE
  520IF draw% PROCredraw
  530UNTIL 0
  540DEFPROCredraw
  550MOVEox%-16,oy%+12:VDU43
  560PROCcross
  570IF shape% PROCdrawsh
  580ENDPROC
  590DEFPROCshape1
  600IF num%=max% VDU7:shape%=0:ENDPROC
  610IF oshape% MOVEsx%(num%),sy%(num%) ELSE num%=num%+1
  620IF oshape%=1 DRAWx%,y%
  630IF oshape%=2 DRAWx%,y%:DRAWxx%(num%),xy%(num%):DRAWsx%(num%),sy%(num%):PLOT69,xx%(num%),xy%(num%)
  640IF oshape%=3 DRAWsx%(num%),y%:DRAWx%,y%:DRAWx%,sy%(num%):DRAWsx%(num%),sy%(num%)
  650IF oshape%=4 PROCcircoutl(0)
  660sx%(num%)=x%:sy%(num%)=y%
  670IF shape%=1 PLOT69,x%,y%
  680ENDPROC
  690DEFPROCshape2
  700IF shape%=1 shape%=2:xx%(num%)=x%:xy%(num%)=y%:MOVEsx%(num%),sy%(num%):DRAWx%,y%:PROCwait(50):ENDPROC
  710fx%(num%)=x%:fy%(num%)=y%:type%(num%)=shape%
  720IF col%=0 type%(num%)=type%(num%)+128
  730PROCcross
  740GCOL0,col%
  750IF shape%=2 MOVExx%(num%),xy%(num%):DRAWsx%(num%),sy%(num%):DRAWx%,y%:DRAWxx%(num%),xy%(num%):MOVEsx%(num%),sy%(num%):MOVExx%(num%),xy%(num%):PLOT85,x%,y%
  760IF shape%=3 MOVEsx%(num%),sy%(num%):MOVEsx%(num%),y%:PLOT85,x%,sy%(num%):MOVEsx%(num%),y%:MOVEx%,y%:PLOT85,x%,sy%(num%)
  770IF shape%=4 PROCcircfill
  780IF show% PROCgrid
  790GCOL3,3:PROCcross
  800shape%=0
  810ENDPROC
  820DEFPROCdrawsh
  830MOVEsx%(num%),sy%(num%)
  840IF shape%=1 DRAWox%,oy%:MOVEsx%(num%),sy%(num%):DRAWx%,y%
  850IF shape%=2 DRAWox%,oy%:MOVExx%(num%),xy%(num%):DRAWox%,oy%:MOVEsx%(num%),sy%(num%):DRAWx%,y%:MOVExx%(num%),xy%(num%):DRAWx%,y%
  860IF shape%=3 DRAWsx%(num%),oy%:DRAWox%,oy%:DRAWox%,sy%(num%):DRAWsx%(num%),sy%(num%):DRAWsx%(num%),y%:DRAWx%,y%:DRAWx%,sy%(num%):DRAWsx%(num%),sy%(num%)
  870IF shape%=4 PROCcircoutl(1)
  880ENDPROC
  890DEFPROCwait(t)
  900T=TIME
  910REPEAT UNTIL TIME>T+t
  920ENDPROC
  930DEFPROCforeback
  940PROCcross
  950IF col% VDU23,43,54,119,119,8,119,119,54,0 ELSE VDU23,43,8,8,8,119,8,8,8,0
  960PROCcross
  970ENDPROC
  980DEFPROCsave
  990IF (shape% AND num%=0) OR num%=-1 VDU7:ENDPROC
 1000IF shape% shape%=0:num%=num%-1
 1010VDU4
 1020*FX21
 1030INPUTTAB(0,0)"Filename to save";file$
 1040f%=OPENOUT(file$)
 1050PRINT'"Saving...";
 1060PRINT#f%,num%
 1070FOR data%=0 TO num%
 1080PRINT#f%,sx%(data%),sy%(data%),fx%(data%),fy%(data%),xx%(data%),xy%(data%),type%(data%)
 1090NEXT
 1100CLOSE#f%
 1110PRINT''"Saved"
 1120INPUT'"Create another shape file";yn$
 1130IF INSTR("Yy",LEFT$(yn$,1)) RUN
 1140*FX4
 1150END
 1160DEFPROCcircoutl(func%)
 1170ex%=x%:ey%=y%
 1180FORc%=0 TO func%
 1190mult=SQR((ex%-sx%(num%))^2+(ey%-sy%(num%))^2)
 1200FORdot%=0 TO11
 1210PLOT69,sx%(num%)+mult*circx(dot%),sy%(num%)+mult*circy(dot%)
 1220NEXT
 1230ex%=ox%:ey%=oy%
 1240NEXT
 1250ENDPROC
 1260DEFPROCcircfill
 1270*FX21
 1280GCOL3,3
 1290MOVE80,900:INPUT"NUMBER OF SIDES ";cstep
 1300MOVE80,900:PRINT"NUMBER OF SIDES ?";cstep
 1310xx%(num%)=cstep
 1320PROCcircoutl(0)
 1330GCOL0,col%
 1340PROCcircle(sx%(num%),sy%(num%),x%,y%,cstep)
 1350GCOL3,3
 1360ENDPROC
 1370DEFPROCcircle(sx%,sy%,fx%,fy%,cstep)
 1380cstep=2*PI/cstep
 1390mult=SQR((fx%-sx%)^2+(fy%-sy%)^2)
 1400FORang=0 TO 2*PI STEP cstep
 1410MOVEsx%,sy%:MOVEsx%+mult*COS(ang),sy%+mult*SIN(ang)
 1420PLOT85,sx%+mult*COS(ang+cstep),sy%+mult*SIN(ang+cstep)
 1430NEXT
 1440ENDPROC
 1450DEFPROCnleft
 1460MOVE80,900:PRINTmax%-1-num%;" SHAPES ARE LEFT"
 1470*FX21
 1480A=GET
 1490MOVE80,900:PRINTmax%-1-num%;" SHAPES ARE LEFT"
 1500ENDPROC
 1510DEFPROCgrid
 1520GCOL0,1
 1530FORh%=0 TO 1279 STEP spc%
 1540FORv%=0 TO 1024 STEP spc%
 1550PLOT 69,h%,v%
 1560NEXT
 1570NEXT
 1580GCOL3,3
 1590ENDPROC
 1600DEFPROCrestore
 1610CLS
 1620IF shape% shape%=0:num%=num%-1
 1630IF num%=-1 ENDPROC
 1640FOR n%=0 TO num%
 1650IF type%(n%)AND128 GCOL0,0 ELSE GCOL0,2
 1660shape%=type%(n%)AND127
 1670IF shape%=2 MOVEsx%(n%),sy%(n%):MOVExx%(n%),xy%(n%):PLOT85,fx%(n%),fy%(n%)
 1680IF shape%=3 MOVEsx%(n%),sy%(n%):MOVEsx%(n%),fy%(n%):PLOT85,fx%(n%),sy%(n%):MOVEsx%(n%),fy%(n%):MOVEfx%(n%),fy%(n%):PLOT85,fx%(n%),sy%(n%)
 1690IF shape%=4 PROCcircle(sx%(n%),sy%(n%),fx%(n%),fy%(n%),xx%(n%))
 1700NEXT
 1710shape%=0
 1720ENDPROC
 1730DEFPROCquit
 1740*FX21
 1750MOVE80,900
 1760INPUT"Really QUIT";yn$
 1770IF INSTR("Yy",LEFT$(yn$,1))=0 MOVE80,900:PRINT"Really QUIT?";yn$:ENDPROC
 1780VDU4
 1790*FX4
 1800CLS
 1810END
 1820DEFPROCcross
 1830MOVEx%-16,y%+12
 1840VDU43
 1850ENDPROC


$� BBC Pixel Mapper Shape Creator
� by Martin Dawe
� (c) Acorn Computing
(:
2�0
<!� �>&1900 � �=&1900:�"SHAPES"
F
*FX4,1
P$�23,43,54,119,119,8,119,119,54,0
Zmax%=15
dL�sx%(max%),sy%(max%),fx%(max%),fy%(max%),xx%(max%),xy%(max%),type%(max%)
n�circx(11),circy(11)
x� c%=0 � 11
�circx(c%)=�(((c%+1)/6)*�)
�circy(c%)=�(((c%+1)/6)*�)
��
�#col%=2:num%=-1:shape%=0:lock%=�
�.�"Grid size in pixels (default- 16) ";spc%
�� spc%=0 spc%=16
�spc%=spc%*4
��'"Show grid";yn$
��1
�&� �"Yy",�yn$,1)) show%=� � show%=�
�x%=640:y%=512
�+� � �=17 �restore � �:�" at line ";�:�
��5
� show% �grid
�0,3
/�69,0,0:�69,1279,0:�69,0,1023:�69,1279,1023
"�3,3
,
�cross
6�
@ox%=x%:oy%=y%
Joshape%=shape%
Tdraw%=�
^� �-17 �quit
h� �-40 �save
r� �-87 �nleft
|L� �-84 x%=spc%*(x% � spc%):y%=spc%*(y% � spc%):stp%=spc%:lock%=�:draw%=�
�� �-86 lock%=�
�D� �-1 � �lock% stp%=32 �� �-2 � �lock% stp%=96 � � �lock% stp%=4
�� �-99 � shape% �shape2
�� �-101 col%=0:�foreback
�� �-68 col%=2:�foreback
�P� �-55 x%=640:y%=512:draw%=�:� lock% x%=spc%*(x% � spc%):y%=spc%*(y% � spc%)
�� �-36 shape%=1:�shape1
�� �-52 shape%=3:�shape1
�� �-83 shape%=4:�shape1
�� �-122 x%=x%+stp%:draw%=�
�� �-26 x%=x%-stp%:draw%=�
�� �-58 y%=y%+stp%:draw%=�
�� �-42 y%=y%-stp%:draw%=�
� draw% �redraw
� 0
��redraw
&�ox%-16,oy%+12:�43
0
�cross
:� shape% �drawsh
D�
N��shape1
X� num%=max% �7:shape%=0:�
b0� oshape% �sx%(num%),sy%(num%) � num%=num%+1
l� oshape%=1 �x%,y%
vX� oshape%=2 �x%,y%:�xx%(num%),xy%(num%):�sx%(num%),sy%(num%):�69,xx%(num%),xy%(num%)
�G� oshape%=3 �sx%(num%),y%:�x%,y%:�x%,sy%(num%):�sx%(num%),sy%(num%)
�� oshape%=4 �circoutl(0)
�sx%(num%)=x%:sy%(num%)=y%
�� shape%=1 �69,x%,y%
��
���shape2
�Y� shape%=1 shape%=2:xx%(num%)=x%:xy%(num%)=y%:�sx%(num%),sy%(num%):�x%,y%:�wait(50):�
�0fx%(num%)=x%:fy%(num%)=y%:type%(num%)=shape%
�(� col%=0 type%(num%)=type%(num%)+128
�
�cross
��0,col%
�� shape%=2 �xx%(num%),xy%(num%):�sx%(num%),sy%(num%):�x%,y%:�xx%(num%),xy%(num%):�sx%(num%),sy%(num%):�xx%(num%),xy%(num%):�85,x%,y%
�h� shape%=3 �sx%(num%),sy%(num%):�sx%(num%),y%:�85,x%,sy%(num%):�sx%(num%),y%:�x%,y%:�85,x%,sy%(num%)
� shape%=4 �circfill
� show% �grid
�3,3:�cross
 shape%=0
*�
4��drawsh
>�sx%(num%),sy%(num%)
H3� shape%=1 �ox%,oy%:�sx%(num%),sy%(num%):�x%,y%
Rm� shape%=2 �ox%,oy%:�xx%(num%),xy%(num%):�ox%,oy%:�sx%(num%),sy%(num%):�x%,y%:�xx%(num%),xy%(num%):�x%,y%
\�� shape%=3 �sx%(num%),oy%:�ox%,oy%:�ox%,sy%(num%):�sx%(num%),sy%(num%):�sx%(num%),y%:�x%,y%:�x%,sy%(num%):�sx%(num%),sy%(num%)
f� shape%=4 �circoutl(1)
p�
z
��wait(t)
�T=�
�
� � �>T+t
��
���foreback
�
�cross
�F� col% �23,43,54,119,119,8,119,119,54,0 � �23,43,8,8,8,119,8,8,8,0
�
�cross
��
�
��save
�&� (shape% � num%=0) � num%=-1 �7:�
�!� shape% shape%=0:num%=num%-1
��4
�	*FX21
"�0,0)"Filename to save";file$
f%=�(file$)
�'"Saving...";
$
�#f%,num%
.� data%=0 � num%
8W�#f%,sx%(data%),sy%(data%),fx%(data%),fy%(data%),xx%(data%),xy%(data%),type%(data%)
B�
L�#f%
V�''"Saved"
`%�'"Create another shape file";yn$
j� �"Yy",�yn$,1)) �
t*FX4
~�
���circoutl(func%)
�ex%=x%:ey%=y%
��c%=0 � func%
�/mult=�((ex%-sx%(num%))^2+(ey%-sy%(num%))^2)
��dot%=0 �11
�=�69,sx%(num%)+mult*circx(dot%),sy%(num%)+mult*circy(dot%)
��
�ex%=ox%:ey%=oy%
��
��
���circfill
�	*FX21
�3,3

%�80,900:�"NUMBER OF SIDES ";cstep
&�80,900:�"NUMBER OF SIDES ?";cstep
xx%(num%)=cstep
(�circoutl(0)
2�0,col%
<,�circle(sx%(num%),sy%(num%),x%,y%,cstep)
F�3,3
P�
Z#��circle(sx%,sy%,fx%,fy%,cstep)
dcstep=2*�/cstep
n#mult=�((fx%-sx%)^2+(fy%-sy%)^2)
x�ang=0 � 2*� � cstep
�-�sx%,sy%:�sx%+mult*�(ang),sy%+mult*�(ang)
�3�85,sx%+mult*�(ang+cstep),sy%+mult*�(ang+cstep)
��
��
���nleft
�+�80,900:�max%-1-num%;" SHAPES ARE LEFT"
�	*FX21
�A=�
�+�80,900:�max%-1-num%;" SHAPES ARE LEFT"
��
�
��grid
��0,1
��h%=0 � 1279 � spc%
�v%=0 � 1024 � spc%
� 69,h%,v%
�
"�
,�3,3
6�
@
��restore
J�
T!� shape% shape%=0:num%=num%-1
^� num%=-1 �
h� n%=0 � num%
r� type%(n%)�128 �0,0 � �0,2
|shape%=type%(n%)�127
�D� shape%=2 �sx%(n%),sy%(n%):�xx%(n%),xy%(n%):�85,fx%(n%),fy%(n%)
�z� shape%=3 �sx%(n%),sy%(n%):�sx%(n%),fy%(n%):�85,fx%(n%),sy%(n%):�sx%(n%),fy%(n%):�fx%(n%),fy%(n%):�85,fx%(n%),sy%(n%)
�?� shape%=4 �circle(sx%(n%),sy%(n%),fx%(n%),fy%(n%),xx%(n%))
��
�shape%=0
��
�
��quit
�	*FX21
��80,900
��"Really QUIT";yn$
�4� �"Yy",�yn$,1))=0 �80,900:�"Really QUIT?";yn$:�
��4
�*FX4
�
�
��cross
&�x%-16,y%+12
0�43
:�
�
00000000  0d 00 0a 24 f4 20 42 42  43 20 50 69 78 65 6c 20  |...$. BBC Pixel |
00000010  4d 61 70 70 65 72 20 53  68 61 70 65 20 43 72 65  |Mapper Shape Cre|
00000020  61 74 6f 72 0d 00 14 14  f4 20 62 79 20 4d 61 72  |ator..... by Mar|
00000030  74 69 6e 20 44 61 77 65  0d 00 1e 19 f4 20 28 63  |tin Dawe..... (c|
00000040  29 20 41 63 6f 72 6e 20  43 6f 6d 70 75 74 69 6e  |) Acorn Computin|
00000050  67 0d 00 28 05 3a 0d 00  32 06 eb 30 0d 00 3c 21  |g..(.:..2..0..<!|
00000060  e7 20 90 3e 26 31 39 30  30 20 8c 20 d0 3d 26 31  |. .>&1900 . .=&1|
00000070  39 30 30 3a d7 22 53 48  41 50 45 53 22 0d 00 46  |900:."SHAPES"..F|
00000080  0a 2a 46 58 34 2c 31 0d  00 50 24 ef 32 33 2c 34  |.*FX4,1..P$.23,4|
00000090  33 2c 35 34 2c 31 31 39  2c 31 31 39 2c 38 2c 31  |3,54,119,119,8,1|
000000a0  31 39 2c 31 31 39 2c 35  34 2c 30 0d 00 5a 0b 6d  |19,119,54,0..Z.m|
000000b0  61 78 25 3d 31 35 0d 00  64 4c de 73 78 25 28 6d  |ax%=15..dL.sx%(m|
000000c0  61 78 25 29 2c 73 79 25  28 6d 61 78 25 29 2c 66  |ax%),sy%(max%),f|
000000d0  78 25 28 6d 61 78 25 29  2c 66 79 25 28 6d 61 78  |x%(max%),fy%(max|
000000e0  25 29 2c 78 78 25 28 6d  61 78 25 29 2c 78 79 25  |%),xx%(max%),xy%|
000000f0  28 6d 61 78 25 29 2c 74  79 70 65 25 28 6d 61 78  |(max%),type%(max|
00000100  25 29 0d 00 6e 18 de 63  69 72 63 78 28 31 31 29  |%)..n..circx(11)|
00000110  2c 63 69 72 63 79 28 31  31 29 0d 00 78 0f e3 20  |,circy(11)..x.. |
00000120  63 25 3d 30 20 b8 20 31  31 0d 00 82 1d 63 69 72  |c%=0 . 11....cir|
00000130  63 78 28 63 25 29 3d 9b  28 28 28 63 25 2b 31 29  |cx(c%)=.(((c%+1)|
00000140  2f 36 29 2a af 29 0d 00  8c 1d 63 69 72 63 79 28  |/6)*.)....circy(|
00000150  63 25 29 3d b5 28 28 28  63 25 2b 31 29 2f 36 29  |c%)=.(((c%+1)/6)|
00000160  2a af 29 0d 00 96 05 ed  0d 00 a0 23 63 6f 6c 25  |*.)........#col%|
00000170  3d 32 3a 6e 75 6d 25 3d  2d 31 3a 73 68 61 70 65  |=2:num%=-1:shape|
00000180  25 3d 30 3a 6c 6f 63 6b  25 3d a3 0d 00 aa 2e e8  |%=0:lock%=......|
00000190  22 47 72 69 64 20 73 69  7a 65 20 69 6e 20 70 69  |"Grid size in pi|
000001a0  78 65 6c 73 20 28 64 65  66 61 75 6c 74 2d 20 31  |xels (default- 1|
000001b0  36 29 20 22 3b 73 70 63  25 0d 00 b4 14 e7 20 73  |6) ";spc%..... s|
000001c0  70 63 25 3d 30 20 73 70  63 25 3d 31 36 0d 00 be  |pc%=0 spc%=16...|
000001d0  0f 73 70 63 25 3d 73 70  63 25 2a 34 0d 00 c8 15  |.spc%=spc%*4....|
000001e0  e8 27 22 53 68 6f 77 20  67 72 69 64 22 3b 79 6e  |.'"Show grid";yn|
000001f0  24 0d 00 d2 06 eb 31 0d  00 dc 26 e7 20 a7 22 59  |$.....1...&. ."Y|
00000200  79 22 2c c0 79 6e 24 2c  31 29 29 20 73 68 6f 77  |y",.yn$,1)) show|
00000210  25 3d b9 20 8b 20 73 68  6f 77 25 3d a3 0d 00 e6  |%=. . show%=....|
00000220  11 78 25 3d 36 34 30 3a  79 25 3d 35 31 32 0d 00  |.x%=640:y%=512..|
00000230  f0 2b ee 85 20 e7 20 9f  3d 31 37 20 f2 72 65 73  |.+.. . .=17 .res|
00000240  74 6f 72 65 20 8b 20 f6  3a f1 22 20 61 74 20 6c  |tore . .:." at l|
00000250  69 6e 65 20 22 3b 9e 3a  e0 0d 00 fa 06 ef 35 0d  |ine ";.:......5.|
00000260  01 04 11 e7 20 73 68 6f  77 25 20 f2 67 72 69 64  |.... show% .grid|
00000270  0d 01 0e 08 e6 30 2c 33  0d 01 18 2f f0 36 39 2c  |.....0,3.../.69,|
00000280  30 2c 30 3a f0 36 39 2c  31 32 37 39 2c 30 3a f0  |0,0:.69,1279,0:.|
00000290  36 39 2c 30 2c 31 30 32  33 3a f0 36 39 2c 31 32  |69,0,1023:.69,12|
000002a0  37 39 2c 31 30 32 33 0d  01 22 08 e6 33 2c 33 0d  |79,1023.."..3,3.|
000002b0  01 2c 0a f2 63 72 6f 73  73 0d 01 36 05 f5 0d 01  |.,..cross..6....|
000002c0  40 11 6f 78 25 3d 78 25  3a 6f 79 25 3d 79 25 0d  |@.ox%=x%:oy%=y%.|
000002d0  01 4a 12 6f 73 68 61 70  65 25 3d 73 68 61 70 65  |.J.oshape%=shape|
000002e0  25 0d 01 54 0b 64 72 61  77 25 3d a3 0d 01 5e 10  |%..T.draw%=...^.|
000002f0  e7 20 a6 2d 31 37 20 f2  71 75 69 74 0d 01 68 10  |. .-17 .quit..h.|
00000300  e7 20 a6 2d 34 30 20 f2  73 61 76 65 0d 01 72 11  |. .-40 .save..r.|
00000310  e7 20 a6 2d 38 37 20 f2  6e 6c 65 66 74 0d 01 7c  |. .-87 .nleft..||
00000320  4c e7 20 a6 2d 38 34 20  78 25 3d 73 70 63 25 2a  |L. .-84 x%=spc%*|
00000330  28 78 25 20 81 20 73 70  63 25 29 3a 79 25 3d 73  |(x% . spc%):y%=s|
00000340  70 63 25 2a 28 79 25 20  81 20 73 70 63 25 29 3a  |pc%*(y% . spc%):|
00000350  73 74 70 25 3d 73 70 63  25 3a 6c 6f 63 6b 25 3d  |stp%=spc%:lock%=|
00000360  b9 3a 64 72 61 77 25 3d  b9 0d 01 86 12 e7 20 a6  |.:draw%=...... .|
00000370  2d 38 36 20 6c 6f 63 6b  25 3d a3 0d 01 90 44 e7  |-86 lock%=....D.|
00000380  20 a6 2d 31 20 80 20 ac  6c 6f 63 6b 25 20 73 74  | .-1 . .lock% st|
00000390  70 25 3d 33 32 20 8b e7  20 a6 2d 32 20 80 20 ac  |p%=32 .. .-2 . .|
000003a0  6c 6f 63 6b 25 20 73 74  70 25 3d 39 36 20 8b 20  |lock% stp%=96 . |
000003b0  e7 20 ac 6c 6f 63 6b 25  20 73 74 70 25 3d 34 0d  |. .lock% stp%=4.|
000003c0  01 9a 1b e7 20 a6 2d 39  39 20 e7 20 73 68 61 70  |.... .-99 . shap|
000003d0  65 25 20 f2 73 68 61 70  65 32 0d 01 a4 1c e7 20  |e% .shape2..... |
000003e0  a6 2d 31 30 31 20 63 6f  6c 25 3d 30 3a f2 66 6f  |.-101 col%=0:.fo|
000003f0  72 65 62 61 63 6b 0d 01  ae 1b e7 20 a6 2d 36 38  |reback..... .-68|
00000400  20 63 6f 6c 25 3d 32 3a  f2 66 6f 72 65 62 61 63  | col%=2:.forebac|
00000410  6b 0d 01 b8 50 e7 20 a6  2d 35 35 20 78 25 3d 36  |k...P. .-55 x%=6|
00000420  34 30 3a 79 25 3d 35 31  32 3a 64 72 61 77 25 3d  |40:y%=512:draw%=|
00000430  b9 3a e7 20 6c 6f 63 6b  25 20 78 25 3d 73 70 63  |.:. lock% x%=spc|
00000440  25 2a 28 78 25 20 81 20  73 70 63 25 29 3a 79 25  |%*(x% . spc%):y%|
00000450  3d 73 70 63 25 2a 28 79  25 20 81 20 73 70 63 25  |=spc%*(y% . spc%|
00000460  29 0d 01 c2 1b e7 20 a6  2d 33 36 20 73 68 61 70  |)..... .-36 shap|
00000470  65 25 3d 31 3a f2 73 68  61 70 65 31 0d 01 cc 1b  |e%=1:.shape1....|
00000480  e7 20 a6 2d 35 32 20 73  68 61 70 65 25 3d 33 3a  |. .-52 shape%=3:|
00000490  f2 73 68 61 70 65 31 0d  01 d6 1b e7 20 a6 2d 38  |.shape1..... .-8|
000004a0  33 20 73 68 61 70 65 25  3d 34 3a f2 73 68 61 70  |3 shape%=4:.shap|
000004b0  65 31 0d 01 e0 1e e7 20  a6 2d 31 32 32 20 78 25  |e1..... .-122 x%|
000004c0  3d 78 25 2b 73 74 70 25  3a 64 72 61 77 25 3d b9  |=x%+stp%:draw%=.|
000004d0  0d 01 ea 1d e7 20 a6 2d  32 36 20 78 25 3d 78 25  |..... .-26 x%=x%|
000004e0  2d 73 74 70 25 3a 64 72  61 77 25 3d b9 0d 01 f4  |-stp%:draw%=....|
000004f0  1d e7 20 a6 2d 35 38 20  79 25 3d 79 25 2b 73 74  |.. .-58 y%=y%+st|
00000500  70 25 3a 64 72 61 77 25  3d b9 0d 01 fe 1d e7 20  |p%:draw%=...... |
00000510  a6 2d 34 32 20 79 25 3d  79 25 2d 73 74 70 25 3a  |.-42 y%=y%-stp%:|
00000520  64 72 61 77 25 3d b9 0d  02 08 13 e7 20 64 72 61  |draw%=...... dra|
00000530  77 25 20 f2 72 65 64 72  61 77 0d 02 12 07 fd 20  |w% .redraw..... |
00000540  30 0d 02 1c 0c dd f2 72  65 64 72 61 77 0d 02 26  |0......redraw..&|
00000550  16 ec 6f 78 25 2d 31 36  2c 6f 79 25 2b 31 32 3a  |..ox%-16,oy%+12:|
00000560  ef 34 33 0d 02 30 0a f2  63 72 6f 73 73 0d 02 3a  |.43..0..cross..:|
00000570  14 e7 20 73 68 61 70 65  25 20 f2 64 72 61 77 73  |.. shape% .draws|
00000580  68 0d 02 44 05 e1 0d 02  4e 0c dd f2 73 68 61 70  |h..D....N...shap|
00000590  65 31 0d 02 58 1d e7 20  6e 75 6d 25 3d 6d 61 78  |e1..X.. num%=max|
000005a0  25 20 ef 37 3a 73 68 61  70 65 25 3d 30 3a e1 0d  |% .7:shape%=0:..|
000005b0  02 62 30 e7 20 6f 73 68  61 70 65 25 20 ec 73 78  |.b0. oshape% .sx|
000005c0  25 28 6e 75 6d 25 29 2c  73 79 25 28 6e 75 6d 25  |%(num%),sy%(num%|
000005d0  29 20 8b 20 6e 75 6d 25  3d 6e 75 6d 25 2b 31 0d  |) . num%=num%+1.|
000005e0  02 6c 16 e7 20 6f 73 68  61 70 65 25 3d 31 20 df  |.l.. oshape%=1 .|
000005f0  78 25 2c 79 25 0d 02 76  58 e7 20 6f 73 68 61 70  |x%,y%..vX. oshap|
00000600  65 25 3d 32 20 df 78 25  2c 79 25 3a df 78 78 25  |e%=2 .x%,y%:.xx%|
00000610  28 6e 75 6d 25 29 2c 78  79 25 28 6e 75 6d 25 29  |(num%),xy%(num%)|
00000620  3a df 73 78 25 28 6e 75  6d 25 29 2c 73 79 25 28  |:.sx%(num%),sy%(|
00000630  6e 75 6d 25 29 3a f0 36  39 2c 78 78 25 28 6e 75  |num%):.69,xx%(nu|
00000640  6d 25 29 2c 78 79 25 28  6e 75 6d 25 29 0d 02 80  |m%),xy%(num%)...|
00000650  47 e7 20 6f 73 68 61 70  65 25 3d 33 20 df 73 78  |G. oshape%=3 .sx|
00000660  25 28 6e 75 6d 25 29 2c  79 25 3a df 78 25 2c 79  |%(num%),y%:.x%,y|
00000670  25 3a df 78 25 2c 73 79  25 28 6e 75 6d 25 29 3a  |%:.x%,sy%(num%):|
00000680  df 73 78 25 28 6e 75 6d  25 29 2c 73 79 25 28 6e  |.sx%(num%),sy%(n|
00000690  75 6d 25 29 0d 02 8a 1c  e7 20 6f 73 68 61 70 65  |um%)..... oshape|
000006a0  25 3d 34 20 f2 63 69 72  63 6f 75 74 6c 28 30 29  |%=4 .circoutl(0)|
000006b0  0d 02 94 1d 73 78 25 28  6e 75 6d 25 29 3d 78 25  |....sx%(num%)=x%|
000006c0  3a 73 79 25 28 6e 75 6d  25 29 3d 79 25 0d 02 9e  |:sy%(num%)=y%...|
000006d0  18 e7 20 73 68 61 70 65  25 3d 31 20 f0 36 39 2c  |.. shape%=1 .69,|
000006e0  78 25 2c 79 25 0d 02 a8  05 e1 0d 02 b2 0c dd f2  |x%,y%...........|
000006f0  73 68 61 70 65 32 0d 02  bc 59 e7 20 73 68 61 70  |shape2...Y. shap|
00000700  65 25 3d 31 20 73 68 61  70 65 25 3d 32 3a 78 78  |e%=1 shape%=2:xx|
00000710  25 28 6e 75 6d 25 29 3d  78 25 3a 78 79 25 28 6e  |%(num%)=x%:xy%(n|
00000720  75 6d 25 29 3d 79 25 3a  ec 73 78 25 28 6e 75 6d  |um%)=y%:.sx%(num|
00000730  25 29 2c 73 79 25 28 6e  75 6d 25 29 3a df 78 25  |%),sy%(num%):.x%|
00000740  2c 79 25 3a f2 77 61 69  74 28 35 30 29 3a e1 0d  |,y%:.wait(50):..|
00000750  02 c6 30 66 78 25 28 6e  75 6d 25 29 3d 78 25 3a  |..0fx%(num%)=x%:|
00000760  66 79 25 28 6e 75 6d 25  29 3d 79 25 3a 74 79 70  |fy%(num%)=y%:typ|
00000770  65 25 28 6e 75 6d 25 29  3d 73 68 61 70 65 25 0d  |e%(num%)=shape%.|
00000780  02 d0 28 e7 20 63 6f 6c  25 3d 30 20 74 79 70 65  |..(. col%=0 type|
00000790  25 28 6e 75 6d 25 29 3d  74 79 70 65 25 28 6e 75  |%(num%)=type%(nu|
000007a0  6d 25 29 2b 31 32 38 0d  02 da 0a f2 63 72 6f 73  |m%)+128.....cros|
000007b0  73 0d 02 e4 0b e6 30 2c  63 6f 6c 25 0d 02 ee 88  |s.....0,col%....|
000007c0  e7 20 73 68 61 70 65 25  3d 32 20 ec 78 78 25 28  |. shape%=2 .xx%(|
000007d0  6e 75 6d 25 29 2c 78 79  25 28 6e 75 6d 25 29 3a  |num%),xy%(num%):|
000007e0  df 73 78 25 28 6e 75 6d  25 29 2c 73 79 25 28 6e  |.sx%(num%),sy%(n|
000007f0  75 6d 25 29 3a df 78 25  2c 79 25 3a df 78 78 25  |um%):.x%,y%:.xx%|
00000800  28 6e 75 6d 25 29 2c 78  79 25 28 6e 75 6d 25 29  |(num%),xy%(num%)|
00000810  3a ec 73 78 25 28 6e 75  6d 25 29 2c 73 79 25 28  |:.sx%(num%),sy%(|
00000820  6e 75 6d 25 29 3a ec 78  78 25 28 6e 75 6d 25 29  |num%):.xx%(num%)|
00000830  2c 78 79 25 28 6e 75 6d  25 29 3a f0 38 35 2c 78  |,xy%(num%):.85,x|
00000840  25 2c 79 25 0d 02 f8 68  e7 20 73 68 61 70 65 25  |%,y%...h. shape%|
00000850  3d 33 20 ec 73 78 25 28  6e 75 6d 25 29 2c 73 79  |=3 .sx%(num%),sy|
00000860  25 28 6e 75 6d 25 29 3a  ec 73 78 25 28 6e 75 6d  |%(num%):.sx%(num|
00000870  25 29 2c 79 25 3a f0 38  35 2c 78 25 2c 73 79 25  |%),y%:.85,x%,sy%|
00000880  28 6e 75 6d 25 29 3a ec  73 78 25 28 6e 75 6d 25  |(num%):.sx%(num%|
00000890  29 2c 79 25 3a ec 78 25  2c 79 25 3a f0 38 35 2c  |),y%:.x%,y%:.85,|
000008a0  78 25 2c 73 79 25 28 6e  75 6d 25 29 0d 03 02 18  |x%,sy%(num%)....|
000008b0  e7 20 73 68 61 70 65 25  3d 34 20 f2 63 69 72 63  |. shape%=4 .circ|
000008c0  66 69 6c 6c 0d 03 0c 11  e7 20 73 68 6f 77 25 20  |fill..... show% |
000008d0  f2 67 72 69 64 0d 03 16  0f e6 33 2c 33 3a f2 63  |.grid.....3,3:.c|
000008e0  72 6f 73 73 0d 03 20 0c  73 68 61 70 65 25 3d 30  |ross.. .shape%=0|
000008f0  0d 03 2a 05 e1 0d 03 34  0c dd f2 64 72 61 77 73  |..*....4...draws|
00000900  68 0d 03 3e 18 ec 73 78  25 28 6e 75 6d 25 29 2c  |h..>..sx%(num%),|
00000910  73 79 25 28 6e 75 6d 25  29 0d 03 48 33 e7 20 73  |sy%(num%)..H3. s|
00000920  68 61 70 65 25 3d 31 20  df 6f 78 25 2c 6f 79 25  |hape%=1 .ox%,oy%|
00000930  3a ec 73 78 25 28 6e 75  6d 25 29 2c 73 79 25 28  |:.sx%(num%),sy%(|
00000940  6e 75 6d 25 29 3a df 78  25 2c 79 25 0d 03 52 6d  |num%):.x%,y%..Rm|
00000950  e7 20 73 68 61 70 65 25  3d 32 20 df 6f 78 25 2c  |. shape%=2 .ox%,|
00000960  6f 79 25 3a ec 78 78 25  28 6e 75 6d 25 29 2c 78  |oy%:.xx%(num%),x|
00000970  79 25 28 6e 75 6d 25 29  3a df 6f 78 25 2c 6f 79  |y%(num%):.ox%,oy|
00000980  25 3a ec 73 78 25 28 6e  75 6d 25 29 2c 73 79 25  |%:.sx%(num%),sy%|
00000990  28 6e 75 6d 25 29 3a df  78 25 2c 79 25 3a ec 78  |(num%):.x%,y%:.x|
000009a0  78 25 28 6e 75 6d 25 29  2c 78 79 25 28 6e 75 6d  |x%(num%),xy%(num|
000009b0  25 29 3a df 78 25 2c 79  25 0d 03 5c 82 e7 20 73  |%):.x%,y%..\.. s|
000009c0  68 61 70 65 25 3d 33 20  df 73 78 25 28 6e 75 6d  |hape%=3 .sx%(num|
000009d0  25 29 2c 6f 79 25 3a df  6f 78 25 2c 6f 79 25 3a  |%),oy%:.ox%,oy%:|
000009e0  df 6f 78 25 2c 73 79 25  28 6e 75 6d 25 29 3a df  |.ox%,sy%(num%):.|
000009f0  73 78 25 28 6e 75 6d 25  29 2c 73 79 25 28 6e 75  |sx%(num%),sy%(nu|
00000a00  6d 25 29 3a df 73 78 25  28 6e 75 6d 25 29 2c 79  |m%):.sx%(num%),y|
00000a10  25 3a df 78 25 2c 79 25  3a df 78 25 2c 73 79 25  |%:.x%,y%:.x%,sy%|
00000a20  28 6e 75 6d 25 29 3a df  73 78 25 28 6e 75 6d 25  |(num%):.sx%(num%|
00000a30  29 2c 73 79 25 28 6e 75  6d 25 29 0d 03 66 1b e7  |),sy%(num%)..f..|
00000a40  20 73 68 61 70 65 25 3d  34 20 f2 63 69 72 63 6f  | shape%=4 .circo|
00000a50  75 74 6c 28 31 29 0d 03  70 05 e1 0d 03 7a 0d dd  |utl(1)..p....z..|
00000a60  f2 77 61 69 74 28 74 29  0d 03 84 07 54 3d 91 0d  |.wait(t)....T=..|
00000a70  03 8e 0d f5 20 fd 20 91  3e 54 2b 74 0d 03 98 05  |.... . .>T+t....|
00000a80  e1 0d 03 a2 0e dd f2 66  6f 72 65 62 61 63 6b 0d  |.......foreback.|
00000a90  03 ac 0a f2 63 72 6f 73  73 0d 03 b6 46 e7 20 63  |....cross...F. c|
00000aa0  6f 6c 25 20 ef 32 33 2c  34 33 2c 35 34 2c 31 31  |ol% .23,43,54,11|
00000ab0  39 2c 31 31 39 2c 38 2c  31 31 39 2c 31 31 39 2c  |9,119,8,119,119,|
00000ac0  35 34 2c 30 20 8b 20 ef  32 33 2c 34 33 2c 38 2c  |54,0 . .23,43,8,|
00000ad0  38 2c 38 2c 31 31 39 2c  38 2c 38 2c 38 2c 30 0d  |8,8,119,8,8,8,0.|
00000ae0  03 c0 0a f2 63 72 6f 73  73 0d 03 ca 05 e1 0d 03  |....cross.......|
00000af0  d4 0a dd f2 73 61 76 65  0d 03 de 26 e7 20 28 73  |....save...&. (s|
00000b00  68 61 70 65 25 20 80 20  6e 75 6d 25 3d 30 29 20  |hape% . num%=0) |
00000b10  84 20 6e 75 6d 25 3d 2d  31 20 ef 37 3a e1 0d 03  |. num%=-1 .7:...|
00000b20  e8 21 e7 20 73 68 61 70  65 25 20 73 68 61 70 65  |.!. shape% shape|
00000b30  25 3d 30 3a 6e 75 6d 25  3d 6e 75 6d 25 2d 31 0d  |%=0:num%=num%-1.|
00000b40  03 f2 06 ef 34 0d 03 fc  09 2a 46 58 32 31 0d 04  |....4....*FX21..|
00000b50  06 22 e8 8a 30 2c 30 29  22 46 69 6c 65 6e 61 6d  |."..0,0)"Filenam|
00000b60  65 20 74 6f 20 73 61 76  65 22 3b 66 69 6c 65 24  |e to save";file$|
00000b70  0d 04 10 0f 66 25 3d ae  28 66 69 6c 65 24 29 0d  |....f%=.(file$).|
00000b80  04 1a 12 f1 27 22 53 61  76 69 6e 67 2e 2e 2e 22  |....'"Saving..."|
00000b90  3b 0d 04 24 0d f1 23 66  25 2c 6e 75 6d 25 0d 04  |;..$..#f%,num%..|
00000ba0  2e 14 e3 20 64 61 74 61  25 3d 30 20 b8 20 6e 75  |... data%=0 . nu|
00000bb0  6d 25 0d 04 38 57 f1 23  66 25 2c 73 78 25 28 64  |m%..8W.#f%,sx%(d|
00000bc0  61 74 61 25 29 2c 73 79  25 28 64 61 74 61 25 29  |ata%),sy%(data%)|
00000bd0  2c 66 78 25 28 64 61 74  61 25 29 2c 66 79 25 28  |,fx%(data%),fy%(|
00000be0  64 61 74 61 25 29 2c 78  78 25 28 64 61 74 61 25  |data%),xx%(data%|
00000bf0  29 2c 78 79 25 28 64 61  74 61 25 29 2c 74 79 70  |),xy%(data%),typ|
00000c00  65 25 28 64 61 74 61 25  29 0d 04 42 05 ed 0d 04  |e%(data%)..B....|
00000c10  4c 08 d9 23 66 25 0d 04  56 0e f1 27 27 22 53 61  |L..#f%..V..''"Sa|
00000c20  76 65 64 22 0d 04 60 25  e8 27 22 43 72 65 61 74  |ved"..`%.'"Creat|
00000c30  65 20 61 6e 6f 74 68 65  72 20 73 68 61 70 65 20  |e another shape |
00000c40  66 69 6c 65 22 3b 79 6e  24 0d 04 6a 16 e7 20 a7  |file";yn$..j.. .|
00000c50  22 59 79 22 2c c0 79 6e  24 2c 31 29 29 20 f9 0d  |"Yy",.yn$,1)) ..|
00000c60  04 74 08 2a 46 58 34 0d  04 7e 05 e0 0d 04 88 15  |.t.*FX4..~......|
00000c70  dd f2 63 69 72 63 6f 75  74 6c 28 66 75 6e 63 25  |..circoutl(func%|
00000c80  29 0d 04 92 11 65 78 25  3d 78 25 3a 65 79 25 3d  |)....ex%=x%:ey%=|
00000c90  79 25 0d 04 9c 11 e3 63  25 3d 30 20 b8 20 66 75  |y%.....c%=0 . fu|
00000ca0  6e 63 25 0d 04 a6 2f 6d  75 6c 74 3d b6 28 28 65  |nc%.../mult=.((e|
00000cb0  78 25 2d 73 78 25 28 6e  75 6d 25 29 29 5e 32 2b  |x%-sx%(num%))^2+|
00000cc0  28 65 79 25 2d 73 79 25  28 6e 75 6d 25 29 29 5e  |(ey%-sy%(num%))^|
00000cd0  32 29 0d 04 b0 0f e3 64  6f 74 25 3d 30 20 b8 31  |2).....dot%=0 .1|
00000ce0  31 0d 04 ba 3d f0 36 39  2c 73 78 25 28 6e 75 6d  |1...=.69,sx%(num|
00000cf0  25 29 2b 6d 75 6c 74 2a  63 69 72 63 78 28 64 6f  |%)+mult*circx(do|
00000d00  74 25 29 2c 73 79 25 28  6e 75 6d 25 29 2b 6d 75  |t%),sy%(num%)+mu|
00000d10  6c 74 2a 63 69 72 63 79  28 64 6f 74 25 29 0d 04  |lt*circy(dot%)..|
00000d20  c4 05 ed 0d 04 ce 13 65  78 25 3d 6f 78 25 3a 65  |.......ex%=ox%:e|
00000d30  79 25 3d 6f 79 25 0d 04  d8 05 ed 0d 04 e2 05 e1  |y%=oy%..........|
00000d40  0d 04 ec 0e dd f2 63 69  72 63 66 69 6c 6c 0d 04  |......circfill..|
00000d50  f6 09 2a 46 58 32 31 0d  05 00 08 e6 33 2c 33 0d  |..*FX21.....3,3.|
00000d60  05 0a 25 ec 38 30 2c 39  30 30 3a e8 22 4e 55 4d  |..%.80,900:."NUM|
00000d70  42 45 52 20 4f 46 20 53  49 44 45 53 20 22 3b 63  |BER OF SIDES ";c|
00000d80  73 74 65 70 0d 05 14 26  ec 38 30 2c 39 30 30 3a  |step...&.80,900:|
00000d90  f1 22 4e 55 4d 42 45 52  20 4f 46 20 53 49 44 45  |."NUMBER OF SIDE|
00000da0  53 20 3f 22 3b 63 73 74  65 70 0d 05 1e 13 78 78  |S ?";cstep....xx|
00000db0  25 28 6e 75 6d 25 29 3d  63 73 74 65 70 0d 05 28  |%(num%)=cstep..(|
00000dc0  10 f2 63 69 72 63 6f 75  74 6c 28 30 29 0d 05 32  |..circoutl(0)..2|
00000dd0  0b e6 30 2c 63 6f 6c 25  0d 05 3c 2c f2 63 69 72  |..0,col%..<,.cir|
00000de0  63 6c 65 28 73 78 25 28  6e 75 6d 25 29 2c 73 79  |cle(sx%(num%),sy|
00000df0  25 28 6e 75 6d 25 29 2c  78 25 2c 79 25 2c 63 73  |%(num%),x%,y%,cs|
00000e00  74 65 70 29 0d 05 46 08  e6 33 2c 33 0d 05 50 05  |tep)..F..3,3..P.|
00000e10  e1 0d 05 5a 23 dd f2 63  69 72 63 6c 65 28 73 78  |...Z#..circle(sx|
00000e20  25 2c 73 79 25 2c 66 78  25 2c 66 79 25 2c 63 73  |%,sy%,fx%,fy%,cs|
00000e30  74 65 70 29 0d 05 64 13  63 73 74 65 70 3d 32 2a  |tep)..d.cstep=2*|
00000e40  af 2f 63 73 74 65 70 0d  05 6e 23 6d 75 6c 74 3d  |./cstep..n#mult=|
00000e50  b6 28 28 66 78 25 2d 73  78 25 29 5e 32 2b 28 66  |.((fx%-sx%)^2+(f|
00000e60  79 25 2d 73 79 25 29 5e  32 29 0d 05 78 18 e3 61  |y%-sy%)^2)..x..a|
00000e70  6e 67 3d 30 20 b8 20 32  2a af 20 88 20 63 73 74  |ng=0 . 2*. . cst|
00000e80  65 70 0d 05 82 2d ec 73  78 25 2c 73 79 25 3a ec  |ep...-.sx%,sy%:.|
00000e90  73 78 25 2b 6d 75 6c 74  2a 9b 28 61 6e 67 29 2c  |sx%+mult*.(ang),|
00000ea0  73 79 25 2b 6d 75 6c 74  2a b5 28 61 6e 67 29 0d  |sy%+mult*.(ang).|
00000eb0  05 8c 33 f0 38 35 2c 73  78 25 2b 6d 75 6c 74 2a  |..3.85,sx%+mult*|
00000ec0  9b 28 61 6e 67 2b 63 73  74 65 70 29 2c 73 79 25  |.(ang+cstep),sy%|
00000ed0  2b 6d 75 6c 74 2a b5 28  61 6e 67 2b 63 73 74 65  |+mult*.(ang+cste|
00000ee0  70 29 0d 05 96 05 ed 0d  05 a0 05 e1 0d 05 aa 0b  |p)..............|
00000ef0  dd f2 6e 6c 65 66 74 0d  05 b4 2b ec 38 30 2c 39  |..nleft...+.80,9|
00000f00  30 30 3a f1 6d 61 78 25  2d 31 2d 6e 75 6d 25 3b  |00:.max%-1-num%;|
00000f10  22 20 53 48 41 50 45 53  20 41 52 45 20 4c 45 46  |" SHAPES ARE LEF|
00000f20  54 22 0d 05 be 09 2a 46  58 32 31 0d 05 c8 07 41  |T"....*FX21....A|
00000f30  3d a5 0d 05 d2 2b ec 38  30 2c 39 30 30 3a f1 6d  |=....+.80,900:.m|
00000f40  61 78 25 2d 31 2d 6e 75  6d 25 3b 22 20 53 48 41  |ax%-1-num%;" SHA|
00000f50  50 45 53 20 41 52 45 20  4c 45 46 54 22 0d 05 dc  |PES ARE LEFT"...|
00000f60  05 e1 0d 05 e6 0a dd f2  67 72 69 64 0d 05 f0 08  |........grid....|
00000f70  e6 30 2c 31 0d 05 fa 17  e3 68 25 3d 30 20 b8 20  |.0,1.....h%=0 . |
00000f80  31 32 37 39 20 88 20 73  70 63 25 0d 06 04 17 e3  |1279 . spc%.....|
00000f90  76 25 3d 30 20 b8 20 31  30 32 34 20 88 20 73 70  |v%=0 . 1024 . sp|
00000fa0  63 25 0d 06 0e 0e f0 20  36 39 2c 68 25 2c 76 25  |c%..... 69,h%,v%|
00000fb0  0d 06 18 05 ed 0d 06 22  05 ed 0d 06 2c 08 e6 33  |......."....,..3|
00000fc0  2c 33 0d 06 36 05 e1 0d  06 40 0d dd f2 72 65 73  |,3..6....@...res|
00000fd0  74 6f 72 65 0d 06 4a 05  db 0d 06 54 21 e7 20 73  |tore..J....T!. s|
00000fe0  68 61 70 65 25 20 73 68  61 70 65 25 3d 30 3a 6e  |hape% shape%=0:n|
00000ff0  75 6d 25 3d 6e 75 6d 25  2d 31 0d 06 5e 0f e7 20  |um%=num%-1..^.. |
00001000  6e 75 6d 25 3d 2d 31 20  e1 0d 06 68 11 e3 20 6e  |num%=-1 ...h.. n|
00001010  25 3d 30 20 b8 20 6e 75  6d 25 0d 06 72 1f e7 20  |%=0 . num%..r.. |
00001020  74 79 70 65 25 28 6e 25  29 80 31 32 38 20 e6 30  |type%(n%).128 .0|
00001030  2c 30 20 8b 20 e6 30 2c  32 0d 06 7c 18 73 68 61  |,0 . .0,2..|.sha|
00001040  70 65 25 3d 74 79 70 65  25 28 6e 25 29 80 31 32  |pe%=type%(n%).12|
00001050  37 0d 06 86 44 e7 20 73  68 61 70 65 25 3d 32 20  |7...D. shape%=2 |
00001060  ec 73 78 25 28 6e 25 29  2c 73 79 25 28 6e 25 29  |.sx%(n%),sy%(n%)|
00001070  3a ec 78 78 25 28 6e 25  29 2c 78 79 25 28 6e 25  |:.xx%(n%),xy%(n%|
00001080  29 3a f0 38 35 2c 66 78  25 28 6e 25 29 2c 66 79  |):.85,fx%(n%),fy|
00001090  25 28 6e 25 29 0d 06 90  7a e7 20 73 68 61 70 65  |%(n%)...z. shape|
000010a0  25 3d 33 20 ec 73 78 25  28 6e 25 29 2c 73 79 25  |%=3 .sx%(n%),sy%|
000010b0  28 6e 25 29 3a ec 73 78  25 28 6e 25 29 2c 66 79  |(n%):.sx%(n%),fy|
000010c0  25 28 6e 25 29 3a f0 38  35 2c 66 78 25 28 6e 25  |%(n%):.85,fx%(n%|
000010d0  29 2c 73 79 25 28 6e 25  29 3a ec 73 78 25 28 6e  |),sy%(n%):.sx%(n|
000010e0  25 29 2c 66 79 25 28 6e  25 29 3a ec 66 78 25 28  |%),fy%(n%):.fx%(|
000010f0  6e 25 29 2c 66 79 25 28  6e 25 29 3a f0 38 35 2c  |n%),fy%(n%):.85,|
00001100  66 78 25 28 6e 25 29 2c  73 79 25 28 6e 25 29 0d  |fx%(n%),sy%(n%).|
00001110  06 9a 3f e7 20 73 68 61  70 65 25 3d 34 20 f2 63  |..?. shape%=4 .c|
00001120  69 72 63 6c 65 28 73 78  25 28 6e 25 29 2c 73 79  |ircle(sx%(n%),sy|
00001130  25 28 6e 25 29 2c 66 78  25 28 6e 25 29 2c 66 79  |%(n%),fx%(n%),fy|
00001140  25 28 6e 25 29 2c 78 78  25 28 6e 25 29 29 0d 06  |%(n%),xx%(n%))..|
00001150  a4 05 ed 0d 06 ae 0c 73  68 61 70 65 25 3d 30 0d  |.......shape%=0.|
00001160  06 b8 05 e1 0d 06 c2 0a  dd f2 71 75 69 74 0d 06  |..........quit..|
00001170  cc 09 2a 46 58 32 31 0d  06 d6 0b ec 38 30 2c 39  |..*FX21.....80,9|
00001180  30 30 0d 06 e0 16 e8 22  52 65 61 6c 6c 79 20 51  |00....."Really Q|
00001190  55 49 54 22 3b 79 6e 24  0d 06 ea 34 e7 20 a7 22  |UIT";yn$...4. ."|
000011a0  59 79 22 2c c0 79 6e 24  2c 31 29 29 3d 30 20 ec  |Yy",.yn$,1))=0 .|
000011b0  38 30 2c 39 30 30 3a f1  22 52 65 61 6c 6c 79 20  |80,900:."Really |
000011c0  51 55 49 54 3f 22 3b 79  6e 24 3a e1 0d 06 f4 06  |QUIT?";yn$:.....|
000011d0  ef 34 0d 06 fe 08 2a 46  58 34 0d 07 08 05 db 0d  |.4....*FX4......|
000011e0  07 12 05 e0 0d 07 1c 0b  dd f2 63 72 6f 73 73 0d  |..........cross.|
000011f0  07 26 10 ec 78 25 2d 31  36 2c 79 25 2b 31 32 0d  |.&..x%-16,y%+12.|
00001200  07 30 07 ef 34 33 0d 07  3a 05 e1 0d ff           |.0..43..:....|
0000120d
PixMap/Shaper.m0
PixMap/Shaper.m1
PixMap/Shaper.m2
PixMap/Shaper.m4
PixMap/Shaper.m5

© Dominic Ford 2021–2024.

Our privacy policy is here.
Last updated: 28 Jul 2024, 23:31 UTC
Website designed by .