� 9
� �:� �:�
�
(
2size%=7
<s%=2^size%
F
P� mask% (s%+1)*(s%+1)
Z� normal% (s%+1)*(s%+1)*4
d� nx% (s%+1)*(s%+1)
n� ny% (s%+1)*(s%+1)
x� nz% (s%+1)*(s%+1)
�� z%(128,128)
�
�z%()=100000
�
�� r%=0 � (s%+1)*(s%+1)
�mask%?r%=0
�normal%!(r%<<2)=0
��
�
�ȑ 640,512
�� 4
�ȓ -256,-256,512
�
� number%



� 7

� r%=1 � number%

"� px%,py%,w%,inout%,check%

,+�circle(px%+64,64-py%,w%,inout%,check%)

6�

@

J � r%=0 � (s%+1)*(s%+1)*4 � 4

Tnormal%?r%=nx%?(r%>>2)

^normal%?(r%+1)=ny%?(r%>>2)

hnormal%?(r%+2)=nz%?(r%>>2)

r normal%?(r%+3)=mask%?(r%>>2)

|�

�

�9� "Save 3dData "+�~(normal%)+" +"+�~((s%+1)*(s%+1)*4)

�� "Settype 3dData data"

��

�

�"��circle(px%,py%,d%,m%,check%)

�� y%=1-d% � d%-1

�(� x%=1-�(d%^2-y%^2) � �(d%^2-y%^2)-1

�� check%=0 �

�5nx%?((x%+px%)+((y%+py%)<<size%))=x%/d%*127*m%+128

�5ny%?((x%+px%)+((y%+py%)<<size%))=y%/d%*127*m%+128

�sqr=1-(x%/d%)^2-(y%/d%)^2

�� sqr<0 sqr=0

�1nz%?((x%+px%)+((y%+py%)<<size%))=�sqr*127+128
*mask%?((x%+px%)+((y%+py%)<<size%))=255
"Ȓ (x%+px%-64)*4,(y%+py%-64)*4
�
&
0� check%=1 �
:sqr=1-(x%/d%)^2-(y%/d%)^2
D� sqr<0 sqr=0
Nz%=-�(sqr)*d%
X� z%<z%(x%+px%,y%+py%) �
bz%(x%+px%,y%+py%)=z%
l2nx%?((x%+px%)+((y%+py%)<<size%))=x%/d%*127+128
v2ny%?((x%+px%)+((y%+py%)<<size%))=y%/d%*127+128
�sqr=1-(x%/d%)^2-(y%/d%)^2
�� sqr<0 sqr=0
�1nz%?((x%+px%)+((y%+py%)<<size%))=�sqr*127+128
�*mask%?((x%+px%)+((y%+py%)<<size%))=255
�"Ȓ (x%+px%-64)*4,(y%+py%-64)*4
��
��
��
��
��
�
�� 8
�� 0,0,40,1,1
� 30,40,18,1,1
� -30,40,18,1,1
� 0,-12,8,1,0
 � 14,16,10,-1,0
*� -14,16,10,-1,0
4� 14,10,4,1,0
>� -14,10,4,1,0
�

00000000  0d 00 0a 07 eb 20 39 0d  00 14 0e ee 85 20 f6 3a  |..... 9...... .:|
00000010  f1 20 9e 3a e0 0d 00 1e  05 87 0d 00 28 04 0d 00  |. .:........(...|
00000020  32 0b 73 69 7a 65 25 3d  37 0d 00 3c 0e 73 25 3d  |2.size%=7..<.s%=|
00000030  32 5e 73 69 7a 65 25 0d  00 46 04 0d 00 50 19 de  |2^size%..F...P..|
00000040  20 6d 61 73 6b 25 20 28  73 25 2b 31 29 2a 28 73  | mask% (s%+1)*(s|
00000050  25 2b 31 29 0d 00 5a 1d  de 20 6e 6f 72 6d 61 6c  |%+1)..Z.. normal|
00000060  25 20 28 73 25 2b 31 29  2a 28 73 25 2b 31 29 2a  |% (s%+1)*(s%+1)*|
00000070  34 0d 00 64 17 de 20 6e  78 25 20 28 73 25 2b 31  |4..d.. nx% (s%+1|
00000080  29 2a 28 73 25 2b 31 29  0d 00 6e 17 de 20 6e 79  |)*(s%+1)..n.. ny|
00000090  25 20 28 73 25 2b 31 29  2a 28 73 25 2b 31 29 0d  |% (s%+1)*(s%+1).|
000000a0  00 78 17 de 20 6e 7a 25  20 28 73 25 2b 31 29 2a  |.x.. nz% (s%+1)*|
000000b0  28 73 25 2b 31 29 0d 00  82 11 de 20 7a 25 28 31  |(s%+1)..... z%(1|
000000c0  32 38 2c 31 32 38 29 0d  00 8c 04 0d 00 96 0f 7a  |28,128)........z|
000000d0  25 28 29 3d 31 30 30 30  30 30 0d 00 a0 04 0d 00  |%()=100000......|
000000e0  aa 1a e3 20 72 25 3d 30  20 b8 20 28 73 25 2b 31  |... r%=0 . (s%+1|
000000f0  29 2a 28 73 25 2b 31 29  0d 00 b4 0e 6d 61 73 6b  |)*(s%+1)....mask|
00000100  25 3f 72 25 3d 30 0d 00  be 15 6e 6f 72 6d 61 6c  |%?r%=0....normal|
00000110  25 21 28 72 25 3c 3c 32  29 3d 30 0d 00 c8 05 ed  |%!(r%<<2)=0.....|
00000120  0d 00 d2 04 0d 00 dc 0e  c8 91 20 36 34 30 2c 35  |.......... 640,5|
00000130  31 32 0d 00 e6 07 e6 20  34 0d 00 f0 14 c8 93 20  |12..... 4...... |
00000140  2d 32 35 36 2c 2d 32 35  36 2c 35 31 32 0d 00 fa  |-256,-256,512...|
00000150  0d f3 20 6e 75 6d 62 65  72 25 0d 01 04 04 0d 01  |.. number%......|
00000160  0e 07 e6 20 37 0d 01 18  14 e3 20 72 25 3d 31 20  |... 7..... r%=1 |
00000170  b8 20 6e 75 6d 62 65 72  25 0d 01 22 1e f3 20 70  |. number%..".. p|
00000180  78 25 2c 70 79 25 2c 77  25 2c 69 6e 6f 75 74 25  |x%,py%,w%,inout%|
00000190  2c 63 68 65 63 6b 25 0d  01 2c 2b f2 63 69 72 63  |,check%..,+.circ|
000001a0  6c 65 28 70 78 25 2b 36  34 2c 36 34 2d 70 79 25  |le(px%+64,64-py%|
000001b0  2c 77 25 2c 69 6e 6f 75  74 25 2c 63 68 65 63 6b  |,w%,inout%,check|
000001c0  25 29 0d 01 36 05 ed 0d  01 40 04 0d 01 4a 20 e3  |%)..6....@...J .|
000001d0  20 72 25 3d 30 20 b8 20  28 73 25 2b 31 29 2a 28  | r%=0 . (s%+1)*(|
000001e0  73 25 2b 31 29 2a 34 20  88 20 34 0d 01 54 1a 6e  |s%+1)*4 . 4..T.n|
000001f0  6f 72 6d 61 6c 25 3f 72  25 3d 6e 78 25 3f 28 72  |ormal%?r%=nx%?(r|
00000200  25 3e 3e 32 29 0d 01 5e  1e 6e 6f 72 6d 61 6c 25  |%>>2)..^.normal%|
00000210  3f 28 72 25 2b 31 29 3d  6e 79 25 3f 28 72 25 3e  |?(r%+1)=ny%?(r%>|
00000220  3e 32 29 0d 01 68 1e 6e  6f 72 6d 61 6c 25 3f 28  |>2)..h.normal%?(|
00000230  72 25 2b 32 29 3d 6e 7a  25 3f 28 72 25 3e 3e 32  |r%+2)=nz%?(r%>>2|
00000240  29 0d 01 72 20 6e 6f 72  6d 61 6c 25 3f 28 72 25  |)..r normal%?(r%|
00000250  2b 33 29 3d 6d 61 73 6b  25 3f 28 72 25 3e 3e 32  |+3)=mask%?(r%>>2|
00000260  29 0d 01 7c 05 ed 0d 01  86 04 0d 01 90 39 ff 20  |)..|.........9. |
00000270  22 53 61 76 65 20 33 64  44 61 74 61 20 22 2b c3  |"Save 3dData "+.|
00000280  7e 28 6e 6f 72 6d 61 6c  25 29 2b 22 20 2b 22 2b  |~(normal%)+" +"+|
00000290  c3 7e 28 28 73 25 2b 31  29 2a 28 73 25 2b 31 29  |.~((s%+1)*(s%+1)|
000002a0  2a 34 29 0d 01 9a 1b ff  20 22 53 65 74 74 79 70  |*4)..... "Settyp|
000002b0  65 20 33 64 44 61 74 61  20 64 61 74 61 22 0d 01  |e 3dData data"..|
000002c0  9b 05 e0 0d 01 a4 04 0d  01 ae 22 dd f2 63 69 72  |.........."..cir|
000002d0  63 6c 65 28 70 78 25 2c  70 79 25 2c 64 25 2c 6d  |cle(px%,py%,d%,m|
000002e0  25 2c 63 68 65 63 6b 25  29 0d 01 b8 14 e3 20 79  |%,check%)..... y|
000002f0  25 3d 31 2d 64 25 20 b8  20 64 25 2d 31 0d 01 c2  |%=1-d% . d%-1...|
00000300  28 e3 20 78 25 3d 31 2d  b6 28 64 25 5e 32 2d 79  |(. x%=1-.(d%^2-y|
00000310  25 5e 32 29 20 b8 20 b6  28 64 25 5e 32 2d 79 25  |%^2) . .(d%^2-y%|
00000320  5e 32 29 2d 31 0d 01 cc  10 e7 20 63 68 65 63 6b  |^2)-1..... check|
00000330  25 3d 30 20 8c 0d 01 d6  35 6e 78 25 3f 28 28 78  |%=0 ....5nx%?((x|
00000340  25 2b 70 78 25 29 2b 28  28 79 25 2b 70 79 25 29  |%+px%)+((y%+py%)|
00000350  3c 3c 73 69 7a 65 25 29  29 3d 78 25 2f 64 25 2a  |<<size%))=x%/d%*|
00000360  31 32 37 2a 6d 25 2b 31  32 38 0d 01 e0 35 6e 79  |127*m%+128...5ny|
00000370  25 3f 28 28 78 25 2b 70  78 25 29 2b 28 28 79 25  |%?((x%+px%)+((y%|
00000380  2b 70 79 25 29 3c 3c 73  69 7a 65 25 29 29 3d 79  |+py%)<<size%))=y|
00000390  25 2f 64 25 2a 31 32 37  2a 6d 25 2b 31 32 38 0d  |%/d%*127*m%+128.|
000003a0  01 ea 1d 73 71 72 3d 31  2d 28 78 25 2f 64 25 29  |...sqr=1-(x%/d%)|
000003b0  5e 32 2d 28 79 25 2f 64  25 29 5e 32 0d 01 f4 11  |^2-(y%/d%)^2....|
000003c0  e7 20 73 71 72 3c 30 20  73 71 72 3d 30 0d 01 fe  |. sqr<0 sqr=0...|
000003d0  31 6e 7a 25 3f 28 28 78  25 2b 70 78 25 29 2b 28  |1nz%?((x%+px%)+(|
000003e0  28 79 25 2b 70 79 25 29  3c 3c 73 69 7a 65 25 29  |(y%+py%)<<size%)|
000003f0  29 3d b6 73 71 72 2a 31  32 37 2b 31 32 38 0d 02  |)=.sqr*127+128..|
00000400  08 2a 6d 61 73 6b 25 3f  28 28 78 25 2b 70 78 25  |.*mask%?((x%+px%|
00000410  29 2b 28 28 79 25 2b 70  79 25 29 3c 3c 73 69 7a  |)+((y%+py%)<<siz|
00000420  65 25 29 29 3d 32 35 35  0d 02 12 22 c8 92 20 28  |e%))=255...".. (|
00000430  78 25 2b 70 78 25 2d 36  34 29 2a 34 2c 28 79 25  |x%+px%-64)*4,(y%|
00000440  2b 70 79 25 2d 36 34 29  2a 34 0d 02 1c 05 cd 0d  |+py%-64)*4......|
00000450  02 26 04 0d 02 30 10 e7  20 63 68 65 63 6b 25 3d  |.&...0.. check%=|
00000460  31 20 8c 0d 02 3a 1d 73  71 72 3d 31 2d 28 78 25  |1 ...:.sqr=1-(x%|
00000470  2f 64 25 29 5e 32 2d 28  79 25 2f 64 25 29 5e 32  |/d%)^2-(y%/d%)^2|
00000480  0d 02 44 11 e7 20 73 71  72 3c 30 20 73 71 72 3d  |..D.. sqr<0 sqr=|
00000490  30 0d 02 4e 11 7a 25 3d  2d b6 28 73 71 72 29 2a  |0..N.z%=-.(sqr)*|
000004a0  64 25 0d 02 58 1c e7 20  7a 25 3c 7a 25 28 78 25  |d%..X.. z%<z%(x%|
000004b0  2b 70 78 25 2c 79 25 2b  70 79 25 29 20 8c 0d 02  |+px%,y%+py%) ...|
000004c0  62 18 7a 25 28 78 25 2b  70 78 25 2c 79 25 2b 70  |b.z%(x%+px%,y%+p|
000004d0  79 25 29 3d 7a 25 0d 02  6c 32 6e 78 25 3f 28 28  |y%)=z%..l2nx%?((|
000004e0  78 25 2b 70 78 25 29 2b  28 28 79 25 2b 70 79 25  |x%+px%)+((y%+py%|
000004f0  29 3c 3c 73 69 7a 65 25  29 29 3d 78 25 2f 64 25  |)<<size%))=x%/d%|
00000500  2a 31 32 37 2b 31 32 38  0d 02 76 32 6e 79 25 3f  |*127+128..v2ny%?|
00000510  28 28 78 25 2b 70 78 25  29 2b 28 28 79 25 2b 70  |((x%+px%)+((y%+p|
00000520  79 25 29 3c 3c 73 69 7a  65 25 29 29 3d 79 25 2f  |y%)<<size%))=y%/|
00000530  64 25 2a 31 32 37 2b 31  32 38 0d 02 80 1d 73 71  |d%*127+128....sq|
00000540  72 3d 31 2d 28 78 25 2f  64 25 29 5e 32 2d 28 79  |r=1-(x%/d%)^2-(y|
00000550  25 2f 64 25 29 5e 32 0d  02 8a 11 e7 20 73 71 72  |%/d%)^2..... sqr|
00000560  3c 30 20 73 71 72 3d 30  0d 02 94 31 6e 7a 25 3f  |<0 sqr=0...1nz%?|
00000570  28 28 78 25 2b 70 78 25  29 2b 28 28 79 25 2b 70  |((x%+px%)+((y%+p|
00000580  79 25 29 3c 3c 73 69 7a  65 25 29 29 3d b6 73 71  |y%)<<size%))=.sq|
00000590  72 2a 31 32 37 2b 31 32  38 0d 02 9e 2a 6d 61 73  |r*127+128...*mas|
000005a0  6b 25 3f 28 28 78 25 2b  70 78 25 29 2b 28 28 79  |k%?((x%+px%)+((y|
000005b0  25 2b 70 79 25 29 3c 3c  73 69 7a 65 25 29 29 3d  |%+py%)<<size%))=|
000005c0  32 35 35 0d 02 a8 22 c8  92 20 28 78 25 2b 70 78  |255...".. (x%+px|
000005d0  25 2d 36 34 29 2a 34 2c  28 79 25 2b 70 79 25 2d  |%-64)*4,(y%+py%-|
000005e0  36 34 29 2a 34 0d 02 b2  05 cd 0d 02 bc 05 cd 0d  |64)*4...........|
000005f0  02 c6 05 ed 0d 02 d0 05  ed 0d 02 da 05 e1 0d 02  |................|
00000600  e4 04 0d 02 ee 07 dc 20  38 0d 02 f8 10 dc 20 30  |....... 8..... 0|
00000610  2c 30 2c 34 30 2c 31 2c  31 0d 03 02 12 dc 20 33  |,0,40,1,1..... 3|
00000620  30 2c 34 30 2c 31 38 2c  31 2c 31 0d 03 0c 13 dc  |0,40,18,1,1.....|
00000630  20 2d 33 30 2c 34 30 2c  31 38 2c 31 2c 31 0d 03  | -30,40,18,1,1..|
00000640  16 11 dc 20 30 2c 2d 31  32 2c 38 2c 31 2c 30 0d  |... 0,-12,8,1,0.|
00000650  03 20 13 dc 20 31 34 2c  31 36 2c 31 30 2c 2d 31  |. .. 14,16,10,-1|
00000660  2c 30 0d 03 2a 14 dc 20  2d 31 34 2c 31 36 2c 31  |,0..*.. -14,16,1|
00000670  30 2c 2d 31 2c 30 0d 03  34 11 dc 20 31 34 2c 31  |0,-1,0..4.. 14,1|
00000680  30 2c 34 2c 31 2c 30 0d  03 3e 12 dc 20 2d 31 34  |0,4,1,0..>.. -14|
00000690  2c 31 30 2c 34 2c 31 2c  30 0d ff                 |,10,4,1,0..|
0000069b