� Triangle 1
�
-� Demonstrate scan conversion of triangle
(:
2� � �0:� �$;" at line ";�:�
<� 15:� 12:�
F� 1,128,128,255
P� 2,32,32,255
Z� x%(2),y%(2)
d
�n%=0 � 2
nx%(n%)=�(80):y%(n%)=�(64)
x�
�	bk%=1
�
�triangle
�
�triangle
�ȗ �
��
��
�ȗ x%,y%,b%
�� b%
�� b% � 2 �
�:
�!� Find nearest vertex clicked
�min_dist%=10:k%=-1
�!x%=(x%-8) � 16:y%=(y%-8) � 16


�n%=0 � 2

dx%=x%(n%)-x%:dy%=y%(n%)-y%

d%=dx%*dx%+dy%*dy%

"%� d%<min_dist% min_dist%=d%:k%=n%

,�

6:

@"� If found, modify coordinates

J
� k%>-1 �

T  �

^  ȗ x%,y%,bu%

h  x%(k%)=(x%-8) � 16

r  y%(k%)=(y%-8) � 16

|  �triangle

�  � bu%<>b%

��

�:

�� �

��

�:

���triangle

�ș"OS_Byte",112,bk%

�
bk%=3-bk%

�Ȗ

�ș"OS_Byte",113,bk%

��

�:
� Find lowest y coordinate
min%=1024:i%=-1

�n%=0 � 2
&#� y%(n%)<min% min%=y%(n%):i%=n%
0�
::
D%� Find left and right coordinates
Ng%=(i%+1) � 3:h%=(g%+1) � 3
Xu� x%(g%)*y%(h%)+x%(h%)*y%(i%)+x%(i%)*y%(g%)>x%(g%)*y%(i%)+x%(h%)*y%(g%)+x%(i%)*y%(h%) � l%=g%:r%=h% � l%=h%:r%=g%
b:
l(left_x=x%(i%)+0.5:right_x=x%(i%)+0.5
vW� y%(l%)>y%(i%) left_g=(x%(l%)-x%(i%))/(y%(l%)-y%(i%)) � left_g=0:left_x=x%(l%)+0.5
�Z� y%(r%)>y%(i%) right_g=(x%(r%)-x%(i%))/(y%(r%)-y%(i%)) � right_g=0:right_x=x%(r%)+0.5
�3� y%(l%)<y%(r%) � p%=l%:flag%=0 � p%=r%:flag%=1
�� y%=y%(i%) � y%(p%)-1
��line(y%,left_x,right_x)
�left_x+=left_g
�right_x+=right_g
��
�Ȏ flag% �
�_� 0 : left_x=x%(l%):q%=r%:� y%(r%)>y%(l%) left_g=(x%(r%)-x%(l%))/(y%(r%)-y%(l%)) � left_g=0
�h� 1 : right_x=x%(r%):q%=l%:� y%(l%)>y%(r%) right_g=(x%(l%)-x%(r%))/(y%(l%)-y%(r%)):q%=l% � right_g=0
��
��y%=y%(p%) � y%(q%)
��line(y%,left_x,right_x)
left_x+=left_g
right_x+=right_g
�
 :
*� Outline triangle
4� 3
>a� x%(0)*16+8,y%(0)*16+8,x%(1)*16+8,y%(1)*16+8:� x%(2)*16+8,y%(2)*16+8:� x%(0)*16+8,y%(0)*16+8
Hȏ x%(0)*16+8,y%(0)*16+8,16
Rȏ x%(1)*16+8,y%(1)*16+8,16
\ȏ x%(2)*16+8,y%(2)*16+8,16
f�
p:
z��line(y%,sx%,ex%)
�� 2
�&ȓ Ȑ sx%*16,y%*16,(ex%-sx%)*16,16
�� 1
�ȓ Ȑ sx%*16,y%*16,16,16
�ȓ Ȑ ex%*16,y%*16,16,16
��
�

00000000  0d 00 0a 10 f4 20 54 72  69 61 6e 67 6c 65 20 31  |..... Triangle 1|
00000010  0d 00 14 05 f4 0d 00 1e  2d f4 20 44 65 6d 6f 6e  |........-. Demon|
00000020  73 74 72 61 74 65 20 73  63 61 6e 20 63 6f 6e 76  |strate scan conv|
00000030  65 72 73 69 6f 6e 20 6f  66 20 74 72 69 61 6e 67  |ersion of triang|
00000040  6c 65 0d 00 28 05 3a 0d  00 32 1f ee 20 85 20 eb  |le..(.:..2.. . .|
00000050  30 3a f1 20 f6 24 3b 22  20 61 74 20 6c 69 6e 65  |0:. .$;" at line|
00000060  20 22 3b 9e 3a e0 0d 00  3c 0f eb 20 31 35 3a eb  | ";.:...<.. 15:.|
00000070  20 31 32 3a 87 0d 00 46  13 fb 20 31 2c 31 32 38  | 12:...F.. 1,128|
00000080  2c 31 32 38 2c 32 35 35  0d 00 50 11 fb 20 32 2c  |,128,255..P.. 2,|
00000090  33 32 2c 33 32 2c 32 35  35 0d 00 5a 11 de 20 78  |32,32,255..Z.. x|
000000a0  25 28 32 29 2c 79 25 28  32 29 0d 00 64 0d e3 6e  |%(2),y%(2)..d..n|
000000b0  25 3d 30 20 b8 20 32 0d  00 6e 1d 78 25 28 6e 25  |%=0 . 2..n.x%(n%|
000000c0  29 3d b3 28 38 30 29 3a  79 25 28 6e 25 29 3d b3  |)=.(80):y%(n%)=.|
000000d0  28 36 34 29 0d 00 78 05  ed 0d 00 82 09 62 6b 25  |(64)..x......bk%|
000000e0  3d 31 0d 00 8c 0d f2 74  72 69 61 6e 67 6c 65 0d  |=1.....triangle.|
000000f0  00 96 0d f2 74 72 69 61  6e 67 6c 65 0d 00 a0 08  |....triangle....|
00000100  c8 97 20 ee 0d 00 aa 05  f5 0d 00 b4 05 f5 0d 00  |.. .............|
00000110  be 0f c8 97 20 78 25 2c  79 25 2c 62 25 0d 00 c8  |.... x%,y%,b%...|
00000120  08 fd 20 62 25 0d 00 d2  0e e7 20 62 25 20 80 20  |.. b%..... b% . |
00000130  32 20 e0 0d 00 dc 05 3a  0d 00 e6 21 f4 20 46 69  |2 .....:...!. Fi|
00000140  6e 64 20 6e 65 61 72 65  73 74 20 76 65 72 74 65  |nd nearest verte|
00000150  78 20 63 6c 69 63 6b 65  64 0d 00 f0 16 6d 69 6e  |x clicked....min|
00000160  5f 64 69 73 74 25 3d 31  30 3a 6b 25 3d 2d 31 0d  |_dist%=10:k%=-1.|
00000170  00 fa 21 78 25 3d 28 78  25 2d 38 29 20 81 20 31  |..!x%=(x%-8) . 1|
00000180  36 3a 79 25 3d 28 79 25  2d 38 29 20 81 20 31 36  |6:y%=(y%-8) . 16|
00000190  0d 01 04 0d e3 6e 25 3d  30 20 b8 20 32 0d 01 0e  |.....n%=0 . 2...|
000001a0  1f 64 78 25 3d 78 25 28  6e 25 29 2d 78 25 3a 64  |.dx%=x%(n%)-x%:d|
000001b0  79 25 3d 79 25 28 6e 25  29 2d 79 25 0d 01 18 16  |y%=y%(n%)-y%....|
000001c0  64 25 3d 64 78 25 2a 64  78 25 2b 64 79 25 2a 64  |d%=dx%*dx%+dy%*d|
000001d0  79 25 0d 01 22 25 e7 20  64 25 3c 6d 69 6e 5f 64  |y%.."%. d%<min_d|
000001e0  69 73 74 25 20 6d 69 6e  5f 64 69 73 74 25 3d 64  |ist% min_dist%=d|
000001f0  25 3a 6b 25 3d 6e 25 0d  01 2c 05 ed 0d 01 36 05  |%:k%=n%..,....6.|
00000200  3a 0d 01 40 22 f4 20 49  66 20 66 6f 75 6e 64 2c  |:..@". If found,|
00000210  20 6d 6f 64 69 66 79 20  63 6f 6f 72 64 69 6e 61  | modify coordina|
00000220  74 65 73 0d 01 4a 0d e7  20 6b 25 3e 2d 31 20 8c  |tes..J.. k%>-1 .|
00000230  0d 01 54 07 20 20 f5 0d  01 5e 12 20 20 c8 97 20  |..T.  ...^.  .. |
00000240  78 25 2c 79 25 2c 62 75  25 0d 01 68 18 20 20 78  |x%,y%,bu%..h.  x|
00000250  25 28 6b 25 29 3d 28 78  25 2d 38 29 20 81 20 31  |%(k%)=(x%-8) . 1|
00000260  36 0d 01 72 18 20 20 79  25 28 6b 25 29 3d 28 79  |6..r.  y%(k%)=(y|
00000270  25 2d 38 29 20 81 20 31  36 0d 01 7c 0f 20 20 f2  |%-8) . 16..|.  .|
00000280  74 72 69 61 6e 67 6c 65  0d 01 86 0f 20 20 fd 20  |triangle....  . |
00000290  62 75 25 3c 3e 62 25 0d  01 90 05 cd 0d 01 9a 05  |bu%<>b%.........|
000002a0  3a 0d 01 a4 07 fd 20 a3  0d 01 ae 05 e0 0d 01 b8  |:..... .........|
000002b0  05 3a 0d 01 c2 0e dd f2  74 72 69 61 6e 67 6c 65  |.:......triangle|
000002c0  0d 01 cc 17 c8 99 22 4f  53 5f 42 79 74 65 22 2c  |......"OS_Byte",|
000002d0  31 31 32 2c 62 6b 25 0d  01 d6 0d 62 6b 25 3d 33  |112,bk%....bk%=3|
000002e0  2d 62 6b 25 0d 01 e0 06  c8 96 0d 01 ea 17 c8 99  |-bk%............|
000002f0  22 4f 53 5f 42 79 74 65  22 2c 31 31 33 2c 62 6b  |"OS_Byte",113,bk|
00000300  25 0d 01 f4 05 db 0d 01  fe 05 3a 0d 02 08 1e f4  |%.........:.....|
00000310  20 46 69 6e 64 20 6c 6f  77 65 73 74 20 79 20 63  | Find lowest y c|
00000320  6f 6f 72 64 69 6e 61 74  65 0d 02 12 13 6d 69 6e  |oordinate....min|
00000330  25 3d 31 30 32 34 3a 69  25 3d 2d 31 0d 02 1c 0d  |%=1024:i%=-1....|
00000340  e3 6e 25 3d 30 20 b8 20  32 0d 02 26 23 e7 20 79  |.n%=0 . 2..&#. y|
00000350  25 28 6e 25 29 3c 6d 69  6e 25 20 6d 69 6e 25 3d  |%(n%)<min% min%=|
00000360  79 25 28 6e 25 29 3a 69  25 3d 6e 25 0d 02 30 05  |y%(n%):i%=n%..0.|
00000370  ed 0d 02 3a 05 3a 0d 02  44 25 f4 20 46 69 6e 64  |...:.:..D%. Find|
00000380  20 6c 65 66 74 20 61 6e  64 20 72 69 67 68 74 20  | left and right |
00000390  63 6f 6f 72 64 69 6e 61  74 65 73 0d 02 4e 1f 67  |coordinates..N.g|
000003a0  25 3d 28 69 25 2b 31 29  20 83 20 33 3a 68 25 3d  |%=(i%+1) . 3:h%=|
000003b0  28 67 25 2b 31 29 20 83  20 33 0d 02 58 75 e7 20  |(g%+1) . 3..Xu. |
000003c0  78 25 28 67 25 29 2a 79  25 28 68 25 29 2b 78 25  |x%(g%)*y%(h%)+x%|
000003d0  28 68 25 29 2a 79 25 28  69 25 29 2b 78 25 28 69  |(h%)*y%(i%)+x%(i|
000003e0  25 29 2a 79 25 28 67 25  29 3e 78 25 28 67 25 29  |%)*y%(g%)>x%(g%)|
000003f0  2a 79 25 28 69 25 29 2b  78 25 28 68 25 29 2a 79  |*y%(i%)+x%(h%)*y|
00000400  25 28 67 25 29 2b 78 25  28 69 25 29 2a 79 25 28  |%(g%)+x%(i%)*y%(|
00000410  68 25 29 20 8c 20 6c 25  3d 67 25 3a 72 25 3d 68  |h%) . l%=g%:r%=h|
00000420  25 20 8b 20 6c 25 3d 68  25 3a 72 25 3d 67 25 0d  |% . l%=h%:r%=g%.|
00000430  02 62 05 3a 0d 02 6c 28  6c 65 66 74 5f 78 3d 78  |.b.:..l(left_x=x|
00000440  25 28 69 25 29 2b 30 2e  35 3a 72 69 67 68 74 5f  |%(i%)+0.5:right_|
00000450  78 3d 78 25 28 69 25 29  2b 30 2e 35 0d 02 76 57  |x=x%(i%)+0.5..vW|
00000460  e7 20 79 25 28 6c 25 29  3e 79 25 28 69 25 29 20  |. y%(l%)>y%(i%) |
00000470  6c 65 66 74 5f 67 3d 28  78 25 28 6c 25 29 2d 78  |left_g=(x%(l%)-x|
00000480  25 28 69 25 29 29 2f 28  79 25 28 6c 25 29 2d 79  |%(i%))/(y%(l%)-y|
00000490  25 28 69 25 29 29 20 8b  20 6c 65 66 74 5f 67 3d  |%(i%)) . left_g=|
000004a0  30 3a 6c 65 66 74 5f 78  3d 78 25 28 6c 25 29 2b  |0:left_x=x%(l%)+|
000004b0  30 2e 35 0d 02 80 5a e7  20 79 25 28 72 25 29 3e  |0.5...Z. y%(r%)>|
000004c0  79 25 28 69 25 29 20 72  69 67 68 74 5f 67 3d 28  |y%(i%) right_g=(|
000004d0  78 25 28 72 25 29 2d 78  25 28 69 25 29 29 2f 28  |x%(r%)-x%(i%))/(|
000004e0  79 25 28 72 25 29 2d 79  25 28 69 25 29 29 20 8b  |y%(r%)-y%(i%)) .|
000004f0  20 72 69 67 68 74 5f 67  3d 30 3a 72 69 67 68 74  | right_g=0:right|
00000500  5f 78 3d 78 25 28 72 25  29 2b 30 2e 35 0d 02 8a  |_x=x%(r%)+0.5...|
00000510  33 e7 20 79 25 28 6c 25  29 3c 79 25 28 72 25 29  |3. y%(l%)<y%(r%)|
00000520  20 8c 20 70 25 3d 6c 25  3a 66 6c 61 67 25 3d 30  | . p%=l%:flag%=0|
00000530  20 8b 20 70 25 3d 72 25  3a 66 6c 61 67 25 3d 31  | . p%=r%:flag%=1|
00000540  0d 02 94 1a e3 20 79 25  3d 79 25 28 69 25 29 20  |..... y%=y%(i%) |
00000550  b8 20 79 25 28 70 25 29  2d 31 0d 02 9e 1c f2 6c  |. y%(p%)-1.....l|
00000560  69 6e 65 28 79 25 2c 6c  65 66 74 5f 78 2c 72 69  |ine(y%,left_x,ri|
00000570  67 68 74 5f 78 29 0d 02  a8 12 6c 65 66 74 5f 78  |ght_x)....left_x|
00000580  2b 3d 6c 65 66 74 5f 67  0d 02 b2 14 72 69 67 68  |+=left_g....righ|
00000590  74 5f 78 2b 3d 72 69 67  68 74 5f 67 0d 02 bc 05  |t_x+=right_g....|
000005a0  ed 0d 02 c6 0e c8 8e 20  66 6c 61 67 25 20 ca 0d  |....... flag% ..|
000005b0  02 d0 5f c9 20 30 20 3a  20 6c 65 66 74 5f 78 3d  |.._. 0 : left_x=|
000005c0  78 25 28 6c 25 29 3a 71  25 3d 72 25 3a e7 20 79  |x%(l%):q%=r%:. y|
000005d0  25 28 72 25 29 3e 79 25  28 6c 25 29 20 6c 65 66  |%(r%)>y%(l%) lef|
000005e0  74 5f 67 3d 28 78 25 28  72 25 29 2d 78 25 28 6c  |t_g=(x%(r%)-x%(l|
000005f0  25 29 29 2f 28 79 25 28  72 25 29 2d 79 25 28 6c  |%))/(y%(r%)-y%(l|
00000600  25 29 29 20 8b 20 6c 65  66 74 5f 67 3d 30 0d 02  |%)) . left_g=0..|
00000610  da 68 c9 20 31 20 3a 20  72 69 67 68 74 5f 78 3d  |.h. 1 : right_x=|
00000620  78 25 28 72 25 29 3a 71  25 3d 6c 25 3a e7 20 79  |x%(r%):q%=l%:. y|
00000630  25 28 6c 25 29 3e 79 25  28 72 25 29 20 72 69 67  |%(l%)>y%(r%) rig|
00000640  68 74 5f 67 3d 28 78 25  28 6c 25 29 2d 78 25 28  |ht_g=(x%(l%)-x%(|
00000650  72 25 29 29 2f 28 79 25  28 6c 25 29 2d 79 25 28  |r%))/(y%(l%)-y%(|
00000660  72 25 29 29 3a 71 25 3d  6c 25 20 8b 20 72 69 67  |r%)):q%=l% . rig|
00000670  68 74 5f 67 3d 30 0d 02  e4 05 cb 0d 02 ee 17 e3  |ht_g=0..........|
00000680  79 25 3d 79 25 28 70 25  29 20 b8 20 79 25 28 71  |y%=y%(p%) . y%(q|
00000690  25 29 0d 02 f8 1c f2 6c  69 6e 65 28 79 25 2c 6c  |%).....line(y%,l|
000006a0  65 66 74 5f 78 2c 72 69  67 68 74 5f 78 29 0d 03  |eft_x,right_x)..|
000006b0  02 12 6c 65 66 74 5f 78  2b 3d 6c 65 66 74 5f 67  |..left_x+=left_g|
000006c0  0d 03 0c 14 72 69 67 68  74 5f 78 2b 3d 72 69 67  |....right_x+=rig|
000006d0  68 74 5f 67 0d 03 16 05  ed 0d 03 20 05 3a 0d 03  |ht_g....... .:..|
000006e0  2a 16 f4 20 4f 75 74 6c  69 6e 65 20 74 72 69 61  |*.. Outline tria|
000006f0  6e 67 6c 65 0d 03 34 07  e6 20 33 0d 03 3e 61 86  |ngle..4.. 3..>a.|
00000700  20 78 25 28 30 29 2a 31  36 2b 38 2c 79 25 28 30  | x%(0)*16+8,y%(0|
00000710  29 2a 31 36 2b 38 2c 78  25 28 31 29 2a 31 36 2b  |)*16+8,x%(1)*16+|
00000720  38 2c 79 25 28 31 29 2a  31 36 2b 38 3a df 20 78  |8,y%(1)*16+8:. x|
00000730  25 28 32 29 2a 31 36 2b  38 2c 79 25 28 32 29 2a  |%(2)*16+8,y%(2)*|
00000740  31 36 2b 38 3a df 20 78  25 28 30 29 2a 31 36 2b  |16+8:. x%(0)*16+|
00000750  38 2c 79 25 28 30 29 2a  31 36 2b 38 0d 03 48 1f  |8,y%(0)*16+8..H.|
00000760  c8 8f 20 78 25 28 30 29  2a 31 36 2b 38 2c 79 25  |.. x%(0)*16+8,y%|
00000770  28 30 29 2a 31 36 2b 38  2c 31 36 0d 03 52 1f c8  |(0)*16+8,16..R..|
00000780  8f 20 78 25 28 31 29 2a  31 36 2b 38 2c 79 25 28  |. x%(1)*16+8,y%(|
00000790  31 29 2a 31 36 2b 38 2c  31 36 0d 03 5c 1f c8 8f  |1)*16+8,16..\...|
000007a0  20 78 25 28 32 29 2a 31  36 2b 38 2c 79 25 28 32  | x%(2)*16+8,y%(2|
000007b0  29 2a 31 36 2b 38 2c 31  36 0d 03 66 05 e1 0d 03  |)*16+8,16..f....|
000007c0  70 05 3a 0d 03 7a 16 dd  f2 6c 69 6e 65 28 79 25  |p.:..z...line(y%|
000007d0  2c 73 78 25 2c 65 78 25  29 0d 03 84 07 e6 20 32  |,sx%,ex%)..... 2|
000007e0  0d 03 8e 26 c8 93 20 c8  90 20 73 78 25 2a 31 36  |...&.. .. sx%*16|
000007f0  2c 79 25 2a 31 36 2c 28  65 78 25 2d 73 78 25 29  |,y%*16,(ex%-sx%)|
00000800  2a 31 36 2c 31 36 0d 03  98 07 e6 20 31 0d 03 a2  |*16,16..... 1...|
00000810  1c c8 93 20 c8 90 20 73  78 25 2a 31 36 2c 79 25  |... .. sx%*16,y%|
00000820  2a 31 36 2c 31 36 2c 31  36 0d 03 ac 1c c8 93 20  |*16,16,16...... |
00000830  c8 90 20 65 78 25 2a 31  36 2c 79 25 2a 31 36 2c  |.. ex%*16,y%*16,|
00000840  31 36 2c 31 36 0d 03 b6  05 e1 0d ff              |16,16.......|
0000084c