�>Demo`sine
 � (c� P H Borcherds 1996
 
( prog$ = $(�+6)
2' � "set draw$options P4L G1x7SL MS"
<; � "sine curve from alpha (degrees)", alpha, "to", beta
F" angle0=�alpha : angle1 =�beta
P# � buf% 1000, box(3), pthbox(3)
d8 pt% = buf% : $pt% = "Draw" : pt%!4 = 201 :pt%!8 = 0
n. pt%+= 12 : $pt% = �12," ") : $pt% = prog$
x$ pt% = buf%+40 : box() = (1<<30)
�, � I% = 2 � 3 : box(I%) = -box(I%-2) : �
�) x0=0 : y0 = 360 : xs = 360 : ys =360
� �popen
�% �sine(x0,y0,xs,ys,angle0,angle1)
� �pclose
�0 � I% = 0 � 3 : buf%!(I%*4+24) = box(I%) : �
�) sv$=�time : � "saving file as ", sv$
�- ș "OS_File", 10, sv$, &AFF, , buf%, pt%
� � sv$ : �
� 
� � �time � q$ : q$=�$
�0 =�q$,1)+�q$,5,2)+�q$,17,2)+�q$,20,2)+�q$,2)
� 

' � �sine(x0,y0,xs,ys,angle0,angle1)

) � range, times%, I%, a(),y(), J%, r3

 � a(3), y(3)

") �word(2) : �point(x0, y0+ys*�angle0)

,1 range=angle1-angle0 : times%=1 + range/(�/4)

6+ �(range/(�/4))= range/(�/4) times%-=1

@( range = range/times% : r3 = range/3

J � I%= 1 � times%

T;   � J%= 0 � 3 : a(J%) = angle0 + range*(I%-1+J%/3) : �

^   y(0)=�a(0) : y(3)=�a(3)

h0   y(1)=y(0) + r3*�a(0) : y(2)=y(3)-r3*�a(3)

r   �word(6)

|   � J%= 1 � 3

�2     �point(x0+(a(J%)-angle0)*xs, y0+ys*y(J%))

�   �

� �

� �

� 

�# � �min(A, B) :� A<B = A :� = B

�# � �max(A, B) :� A>B = A :� = B

� 

� � �box(box()) � I%

� � I% = 0 � 1

�'   box(I%) = �min(box(I%), box(I%))

�-   box(I%+2) = �max(box(I%+2), box(I%+2))

�
 � : �
 
 � �objectbox(box(), x, y)
8 box(0) = �min(x, box(0)) : box(1) = �min(y, box(1))
&8 box(2) = �max(x, box(2)) : box(3) = �max(y, box(3))
0 �
: 
D( � �word(W%) !pt% = W% : pt%+= 4 : �
N 
X � �point(X,Y) � X%, Y%
b X% = X*256 : Y% = Y*256
l �objectbox(pthbox(),X%,Y%)
v �word(X%) : �word(Y%)
� �
� 
� � �coords(st%, box()) � I%
�, � I% = 0 � 3 : st%!(4*I%) = box(I%) : �
� �
� 
�
 � �popen
�1 start% = pt% : �word(2) : pthbox() = (1<<30)
�2 � I% = 2 � 3 : pthbox(I%) = -pthbox(I%-2) : �
�+ pt%+= 20 : �coords(start%+8, pthbox())
�/ �word(-1) : �word(7) : �word(0) : �word(0)
� �
� 
 � �pclose � I%
$ �word(0) :start%!4 = pt%-start%
 �box(pthbox())
 4 � I% = 0 � 3 : start%!(I%*4+8) = pthbox(I%) : �
* �
4 
> � �reset � I%
H$ pt% = buf%+40 : box() = (1<<30)
R, � I% = 2 � 3 : box(I%) = -box(I%-2) : �
\ �
�

00000000  0d 00 0a 10 20 f4 3e 44  65 6d 6f 60 73 69 6e 65  |.... .>Demo`sine|
00000010  0d 00 14 1d 20 f4 20 28  63 a9 20 50 20 48 20 42  |.... . (c. P H B|
00000020  6f 72 63 68 65 72 64 73  20 31 39 39 36 0d 00 1e  |orcherds 1996...|
00000030  05 20 0d 00 28 13 20 70  72 6f 67 24 20 3d 20 24  |. ..(. prog$ = $|
00000040  28 90 2b 36 29 0d 00 32  27 20 ff 20 22 73 65 74  |(.+6)..2' . "set|
00000050  20 64 72 61 77 24 6f 70  74 69 6f 6e 73 20 50 34  | draw$options P4|
00000060  4c 20 47 31 78 37 53 4c  20 4d 53 22 0d 00 3c 3b  |L G1x7SL MS"..<;|
00000070  20 e8 20 22 73 69 6e 65  20 63 75 72 76 65 20 66  | . "sine curve f|
00000080  72 6f 6d 20 61 6c 70 68  61 20 28 64 65 67 72 65  |rom alpha (degre|
00000090  65 73 29 22 2c 20 61 6c  70 68 61 2c 20 22 74 6f  |es)", alpha, "to|
000000a0  22 2c 20 62 65 74 61 0d  00 46 22 20 61 6e 67 6c  |", beta..F" angl|
000000b0  65 30 3d b2 61 6c 70 68  61 20 3a 20 61 6e 67 6c  |e0=.alpha : angl|
000000c0  65 31 20 3d b2 62 65 74  61 0d 00 50 23 20 de 20  |e1 =.beta..P# . |
000000d0  62 75 66 25 20 31 30 30  30 2c 20 62 6f 78 28 33  |buf% 1000, box(3|
000000e0  29 2c 20 70 74 68 62 6f  78 28 33 29 0d 00 64 38  |), pthbox(3)..d8|
000000f0  20 70 74 25 20 3d 20 62  75 66 25 20 3a 20 24 70  | pt% = buf% : $p|
00000100  74 25 20 3d 20 22 44 72  61 77 22 20 3a 20 70 74  |t% = "Draw" : pt|
00000110  25 21 34 20 3d 20 32 30  31 20 3a 70 74 25 21 38  |%!4 = 201 :pt%!8|
00000120  20 3d 20 30 0d 00 6e 2e  20 70 74 25 2b 3d 20 31  | = 0..n. pt%+= 1|
00000130  32 20 3a 20 24 70 74 25  20 3d 20 c4 31 32 2c 22  |2 : $pt% = .12,"|
00000140  20 22 29 20 3a 20 24 70  74 25 20 3d 20 70 72 6f  | ") : $pt% = pro|
00000150  67 24 0d 00 78 24 20 70  74 25 20 3d 20 62 75 66  |g$..x$ pt% = buf|
00000160  25 2b 34 30 20 3a 20 62  6f 78 28 29 20 3d 20 28  |%+40 : box() = (|
00000170  31 3c 3c 33 30 29 0d 00  82 2c 20 e3 20 49 25 20  |1<<30)..., . I% |
00000180  3d 20 32 20 b8 20 33 20  3a 20 62 6f 78 28 49 25  |= 2 . 3 : box(I%|
00000190  29 20 3d 20 2d 62 6f 78  28 49 25 2d 32 29 20 3a  |) = -box(I%-2) :|
000001a0  20 ed 0d 00 8c 29 20 78  30 3d 30 20 3a 20 79 30  | ....) x0=0 : y0|
000001b0  20 3d 20 33 36 30 20 3a  20 78 73 20 3d 20 33 36  | = 360 : xs = 36|
000001c0  30 20 3a 20 79 73 20 3d  33 36 30 0d 00 96 0b 20  |0 : ys =360.... |
000001d0  f2 70 6f 70 65 6e 0d 00  a0 25 20 f2 73 69 6e 65  |.popen...% .sine|
000001e0  28 78 30 2c 79 30 2c 78  73 2c 79 73 2c 61 6e 67  |(x0,y0,xs,ys,ang|
000001f0  6c 65 30 2c 61 6e 67 6c  65 31 29 0d 00 aa 0c 20  |le0,angle1).... |
00000200  f2 70 63 6c 6f 73 65 0d  00 b4 30 20 e3 20 49 25  |.pclose...0 . I%|
00000210  20 3d 20 30 20 b8 20 33  20 3a 20 62 75 66 25 21  | = 0 . 3 : buf%!|
00000220  28 49 25 2a 34 2b 32 34  29 20 3d 20 62 6f 78 28  |(I%*4+24) = box(|
00000230  49 25 29 20 3a 20 ed 0d  00 be 29 20 73 76 24 3d  |I%) : ....) sv$=|
00000240  a4 74 69 6d 65 20 3a 20  f1 20 22 73 61 76 69 6e  |.time : . "savin|
00000250  67 20 66 69 6c 65 20 61  73 20 22 2c 20 73 76 24  |g file as ", sv$|
00000260  0d 00 c8 2d 20 c8 99 20  22 4f 53 5f 46 69 6c 65  |...- .. "OS_File|
00000270  22 2c 20 31 30 2c 20 73  76 24 2c 20 26 41 46 46  |", 10, sv$, &AFF|
00000280  2c 20 2c 20 62 75 66 25  2c 20 70 74 25 0d 00 d2  |, , buf%, pt%...|
00000290  0e 20 ff 20 73 76 24 20  3a 20 e0 0d 00 dc 05 20  |. . sv$ : ..... |
000002a0  0d 00 e6 19 20 dd 20 a4  74 69 6d 65 20 ea 20 71  |.... . .time . q|
000002b0  24 20 3a 20 71 24 3d 91  24 0d 00 f0 30 20 3d c0  |$ : q$=.$...0 =.|
000002c0  71 24 2c 31 29 2b c1 71  24 2c 35 2c 32 29 2b c1  |q$,1)+.q$,5,2)+.|
000002d0  71 24 2c 31 37 2c 32 29  2b c1 71 24 2c 32 30 2c  |q$,17,2)+.q$,20,|
000002e0  32 29 2b c2 71 24 2c 32  29 0d 00 fa 05 20 0d 01  |2)+.q$,2).... ..|
000002f0  04 27 20 dd 20 f2 73 69  6e 65 28 78 30 2c 79 30  |.' . .sine(x0,y0|
00000300  2c 78 73 2c 79 73 2c 61  6e 67 6c 65 30 2c 61 6e  |,xs,ys,angle0,an|
00000310  67 6c 65 31 29 0d 01 0e  29 20 ea 20 72 61 6e 67  |gle1)...) . rang|
00000320  65 2c 20 74 69 6d 65 73  25 2c 20 49 25 2c 20 61  |e, times%, I%, a|
00000330  28 29 2c 79 28 29 2c 20  4a 25 2c 20 72 33 0d 01  |(),y(), J%, r3..|
00000340  18 11 20 de 20 61 28 33  29 2c 20 79 28 33 29 0d  |.. . a(3), y(3).|
00000350  01 22 29 20 f2 77 6f 72  64 28 32 29 20 3a 20 f2  |.") .word(2) : .|
00000360  70 6f 69 6e 74 28 78 30  2c 20 79 30 2b 79 73 2a  |point(x0, y0+ys*|
00000370  b5 61 6e 67 6c 65 30 29  0d 01 2c 31 20 72 61 6e  |.angle0)..,1 ran|
00000380  67 65 3d 61 6e 67 6c 65  31 2d 61 6e 67 6c 65 30  |ge=angle1-angle0|
00000390  20 3a 20 74 69 6d 65 73  25 3d 31 20 2b 20 72 61  | : times%=1 + ra|
000003a0  6e 67 65 2f 28 af 2f 34  29 0d 01 36 2b 20 e7 a8  |nge/(./4)..6+ ..|
000003b0  28 72 61 6e 67 65 2f 28  af 2f 34 29 29 3d 20 72  |(range/(./4))= r|
000003c0  61 6e 67 65 2f 28 af 2f  34 29 20 74 69 6d 65 73  |ange/(./4) times|
000003d0  25 2d 3d 31 0d 01 40 28  20 72 61 6e 67 65 20 3d  |%-=1..@( range =|
000003e0  20 72 61 6e 67 65 2f 74  69 6d 65 73 25 20 3a 20  | range/times% : |
000003f0  72 33 20 3d 20 72 61 6e  67 65 2f 33 0d 01 4a 15  |r3 = range/3..J.|
00000400  20 e3 20 49 25 3d 20 31  20 b8 20 74 69 6d 65 73  | . I%= 1 . times|
00000410  25 0d 01 54 3b 20 20 20  e3 20 4a 25 3d 20 30 20  |%..T;   . J%= 0 |
00000420  b8 20 33 20 3a 20 61 28  4a 25 29 20 3d 20 61 6e  |. 3 : a(J%) = an|
00000430  67 6c 65 30 20 2b 20 72  61 6e 67 65 2a 28 49 25  |gle0 + range*(I%|
00000440  2d 31 2b 4a 25 2f 33 29  20 3a 20 ed 0d 01 5e 1e  |-1+J%/3) : ...^.|
00000450  20 20 20 79 28 30 29 3d  b5 61 28 30 29 20 3a 20  |   y(0)=.a(0) : |
00000460  79 28 33 29 3d b5 61 28  33 29 0d 01 68 30 20 20  |y(3)=.a(3)..h0  |
00000470  20 79 28 31 29 3d 79 28  30 29 20 2b 20 72 33 2a  | y(1)=y(0) + r3*|
00000480  9b 61 28 30 29 20 3a 20  79 28 32 29 3d 79 28 33  |.a(0) : y(2)=y(3|
00000490  29 2d 72 33 2a 9b 61 28  33 29 0d 01 72 0f 20 20  |)-r3*.a(3)..r.  |
000004a0  20 f2 77 6f 72 64 28 36  29 0d 01 7c 12 20 20 20  | .word(6)..|.   |
000004b0  e3 20 4a 25 3d 20 31 20  b8 20 33 0d 01 86 32 20  |. J%= 1 . 3...2 |
000004c0  20 20 20 20 f2 70 6f 69  6e 74 28 78 30 2b 28 61  |    .point(x0+(a|
000004d0  28 4a 25 29 2d 61 6e 67  6c 65 30 29 2a 78 73 2c  |(J%)-angle0)*xs,|
000004e0  20 79 30 2b 79 73 2a 79  28 4a 25 29 29 0d 01 90  | y0+ys*y(J%))...|
000004f0  08 20 20 20 ed 0d 01 9a  06 20 ed 0d 01 a4 06 20  |.   ..... ..... |
00000500  e1 0d 01 ae 05 20 0d 01  b8 23 20 dd 20 a4 6d 69  |..... ...# . .mi|
00000510  6e 28 41 2c 20 42 29 20  3a e7 20 41 3c 42 20 3d  |n(A, B) :. A<B =|
00000520  20 41 20 3a 8b 20 3d 20  42 0d 01 c2 23 20 dd 20  | A :. = B...# . |
00000530  a4 6d 61 78 28 41 2c 20  42 29 20 3a e7 20 41 3e  |.max(A, B) :. A>|
00000540  42 20 3d 20 41 20 3a 8b  20 3d 20 42 0d 01 cc 05  |B = A :. = B....|
00000550  20 0d 01 d6 17 20 dd 20  f2 62 6f 78 28 62 6f 78  | .... . .box(box|
00000560  28 29 29 20 ea 20 49 25  0d 01 e0 11 20 e3 20 49  |()) . I%.... . I|
00000570  25 20 3d 20 30 20 b8 20  31 0d 01 ea 27 20 20 20  |% = 0 . 1...'   |
00000580  62 6f 78 28 49 25 29 20  3d 20 a4 6d 69 6e 28 62  |box(I%) = .min(b|
00000590  6f 78 28 49 25 29 2c 20  62 6f 78 28 49 25 29 29  |ox(I%), box(I%))|
000005a0  0d 01 f4 2d 20 20 20 62  6f 78 28 49 25 2b 32 29  |...-   box(I%+2)|
000005b0  20 3d 20 a4 6d 61 78 28  62 6f 78 28 49 25 2b 32  | = .max(box(I%+2|
000005c0  29 2c 20 62 6f 78 28 49  25 2b 32 29 29 0d 01 fe  |), box(I%+2))...|
000005d0  0a 20 ed 20 3a 20 e1 0d  02 08 05 20 0d 02 12 1e  |. . : ..... ....|
000005e0  20 dd 20 f2 6f 62 6a 65  63 74 62 6f 78 28 62 6f  | . .objectbox(bo|
000005f0  78 28 29 2c 20 78 2c 20  79 29 0d 02 1c 38 20 62  |x(), x, y)...8 b|
00000600  6f 78 28 30 29 20 3d 20  a4 6d 69 6e 28 78 2c 20  |ox(0) = .min(x, |
00000610  62 6f 78 28 30 29 29 20  3a 20 62 6f 78 28 31 29  |box(0)) : box(1)|
00000620  20 3d 20 a4 6d 69 6e 28  79 2c 20 62 6f 78 28 31  | = .min(y, box(1|
00000630  29 29 0d 02 26 38 20 62  6f 78 28 32 29 20 3d 20  |))..&8 box(2) = |
00000640  a4 6d 61 78 28 78 2c 20  62 6f 78 28 32 29 29 20  |.max(x, box(2)) |
00000650  3a 20 62 6f 78 28 33 29  20 3d 20 a4 6d 61 78 28  |: box(3) = .max(|
00000660  79 2c 20 62 6f 78 28 33  29 29 0d 02 30 06 20 e1  |y, box(3))..0. .|
00000670  0d 02 3a 05 20 0d 02 44  28 20 dd 20 f2 77 6f 72  |..:. ..D( . .wor|
00000680  64 28 57 25 29 20 21 70  74 25 20 3d 20 57 25 20  |d(W%) !pt% = W% |
00000690  3a 20 70 74 25 2b 3d 20  34 20 3a 20 e1 0d 02 4e  |: pt%+= 4 : ...N|
000006a0  05 20 0d 02 58 1b 20 dd  20 f2 70 6f 69 6e 74 28  |. ..X. . .point(|
000006b0  58 2c 59 29 20 ea 20 58  25 2c 20 59 25 0d 02 62  |X,Y) . X%, Y%..b|
000006c0  1c 20 58 25 20 3d 20 58  2a 32 35 36 20 3a 20 59  |. X% = X*256 : Y|
000006d0  25 20 3d 20 59 2a 32 35  36 0d 02 6c 1f 20 f2 6f  |% = Y*256..l. .o|
000006e0  62 6a 65 63 74 62 6f 78  28 70 74 68 62 6f 78 28  |bjectbox(pthbox(|
000006f0  29 2c 58 25 2c 59 25 29  0d 02 76 1a 20 f2 77 6f  |),X%,Y%)..v. .wo|
00000700  72 64 28 58 25 29 20 3a  20 f2 77 6f 72 64 28 59  |rd(X%) : .word(Y|
00000710  25 29 0d 02 80 06 20 e1  0d 02 8a 05 20 0d 02 94  |%).... ..... ...|
00000720  1f 20 dd 20 f2 63 6f 6f  72 64 73 28 73 74 25 2c  |. . .coords(st%,|
00000730  20 62 6f 78 28 29 29 20  ea 20 49 25 0d 02 9e 2c  | box()) . I%...,|
00000740  20 e3 20 49 25 20 3d 20  30 20 b8 20 33 20 3a 20  | . I% = 0 . 3 : |
00000750  73 74 25 21 28 34 2a 49  25 29 20 3d 20 62 6f 78  |st%!(4*I%) = box|
00000760  28 49 25 29 20 3a 20 ed  0d 02 a8 06 20 e1 0d 02  |(I%) : ..... ...|
00000770  b2 05 20 0d 02 bc 0d 20  dd 20 f2 70 6f 70 65 6e  |.. .... . .popen|
00000780  0d 02 c6 31 20 73 74 61  72 74 25 20 3d 20 70 74  |...1 start% = pt|
00000790  25 20 3a 20 f2 77 6f 72  64 28 32 29 20 3a 20 70  |% : .word(2) : p|
000007a0  74 68 62 6f 78 28 29 20  3d 20 28 31 3c 3c 33 30  |thbox() = (1<<30|
000007b0  29 0d 02 d0 32 20 e3 20  49 25 20 3d 20 32 20 b8  |)...2 . I% = 2 .|
000007c0  20 33 20 3a 20 70 74 68  62 6f 78 28 49 25 29 20  | 3 : pthbox(I%) |
000007d0  3d 20 2d 70 74 68 62 6f  78 28 49 25 2d 32 29 20  |= -pthbox(I%-2) |
000007e0  3a 20 ed 0d 02 da 2b 20  70 74 25 2b 3d 20 32 30  |: ....+ pt%+= 20|
000007f0  20 3a 20 f2 63 6f 6f 72  64 73 28 73 74 61 72 74  | : .coords(start|
00000800  25 2b 38 2c 20 70 74 68  62 6f 78 28 29 29 0d 02  |%+8, pthbox())..|
00000810  e4 2f 20 f2 77 6f 72 64  28 2d 31 29 20 3a 20 f2  |./ .word(-1) : .|
00000820  77 6f 72 64 28 37 29 20  3a 20 f2 77 6f 72 64 28  |word(7) : .word(|
00000830  30 29 20 3a 20 f2 77 6f  72 64 28 30 29 0d 02 ee  |0) : .word(0)...|
00000840  06 20 e1 0d 02 f8 05 20  0d 03 02 13 20 dd 20 f2  |. ..... .... . .|
00000850  70 63 6c 6f 73 65 20 ea  20 49 25 0d 03 0c 24 20  |pclose . I%...$ |
00000860  f2 77 6f 72 64 28 30 29  20 3a 73 74 61 72 74 25  |.word(0) :start%|
00000870  21 34 20 3d 20 70 74 25  2d 73 74 61 72 74 25 0d  |!4 = pt%-start%.|
00000880  03 16 13 20 f2 62 6f 78  28 70 74 68 62 6f 78 28  |... .box(pthbox(|
00000890  29 29 0d 03 20 34 20 e3  20 49 25 20 3d 20 30 20  |)).. 4 . I% = 0 |
000008a0  b8 20 33 20 3a 20 73 74  61 72 74 25 21 28 49 25  |. 3 : start%!(I%|
000008b0  2a 34 2b 38 29 20 3d 20  70 74 68 62 6f 78 28 49  |*4+8) = pthbox(I|
000008c0  25 29 20 3a 20 ed 0d 03  2a 06 20 e1 0d 03 34 05  |%) : ...*. ...4.|
000008d0  20 0d 03 3e 12 20 dd 20  f2 72 65 73 65 74 20 ea  | ..>. . .reset .|
000008e0  20 49 25 0d 03 48 24 20  70 74 25 20 3d 20 62 75  | I%..H$ pt% = bu|
000008f0  66 25 2b 34 30 20 3a 20  62 6f 78 28 29 20 3d 20  |f%+40 : box() = |
00000900  28 31 3c 3c 33 30 29 0d  03 52 2c 20 e3 20 49 25  |(1<<30)..R, . I%|
00000910  20 3d 20 32 20 b8 20 33  20 3a 20 62 6f 78 28 49  | = 2 . 3 : box(I|
00000920  25 29 20 3d 20 2d 62 6f  78 28 49 25 2d 32 29 20  |%) = -box(I%-2) |
00000930  3a 20 ed 0d 03 5c 06 20  e1 0d ff                 |: ...\. ...|
0000093b