�     >Pulsar (Info10)
� By  Jan Vibe
� For 32-bit machines
(� (c) BAU May 1993
2:
<�12
F
�shape
P	�init
Z� � �error
d	�draw
n�
x:
�� �error
�� �<>17 �$;" at line ";�
��
�:
�� �shape
��"1: Square"
��"2: Hexagon"
��"3: Octagon"
��"4: Polygon with 12 sides"
��'"Polygon number ";
�*Fx15,0
��
� poly$=�

� �"1234",poly$)>0

poly=�(poly$)


Ȏ poly �

" � 1:ang=0 :rad=512:w=1.0

, � 2:ang=30:rad=580:w=1.5

6 � 3:ang=45:rad=512:w=2.0

@ � 4:ang=60:rad=512:w=2.5

J�

T�

^:

h� �init

rang1=�(ang)

|ang2=�(90)

�angs=180/(90-ang)

�
�(-�)

�cycle=1

�rgb=�(3)

�ctime=�

�2� sin(angs),cos(angs),col(15,3),x(6),y(6),w(6)

�� i=1 � angs

� a=�(2*(90-ang)*i)

� sin(i)=�a

� cos(i)=�a

��

�� i=1 � 15

� � col(i,1)
 col(i,2)=col(i,1)
 col(i,3)=col(i,1)
# � i,col(i,1),col(i,2),col(i,3)
&�
0�:�
:
Ȏ � �
D � 12,20 : ȑ 640,512
N � 31    : ȑ 800,600
X�
b�
l:
v;� 16,32,80,112,144,176,208,240,224,192,160,128,96,64,32
�:
�� �draw
��
�
 rnd=�(6)
� mul=28/(2*rnd)
� � i=1 � rnd
�  x(i)=�(rad)
�  y(i)=�(rad)
�  w(i)=w*�(1)+.5
� �
�7 �poly(0,0,rad*�ang1,rad*�ang1,rad*�ang2,rad*�ang2)
� when=�+1000
� �
  �cycle

 � �>when
� �
 �
*:
4� �poly(x1,y1,x2,y2,x3,y3)
>� x12,y12,x23,y23,x31,y31
H
�cycle
R � (x2-x1)^2+(y2-y1)^2>=256 �
\  x12=(x1+x2)/2:y12=(y1+y2)/2
f  x23=(x2+x3)/2:y23=(y2+y3)/2
p  x31=(x3+x1)/2:y31=(y3+y1)/2
z! �poly(x1,y1,x12,y12,x31,y31)
�! �poly(x12,y12,x2,y2,x23,y23)
�# �poly(x12,y12,x23,y23,x31,y31)
�! �poly(x31,y31,x23,y23,x3,y3)
��
�( xmid=(x1+x2+x3)/3:ymid=(y1+y2+y3)/3
�
 col=0
� � i=1 � rnd
�6  col+=(1+��(w(i)*�((x(i)-xmid)^2+(y(i)-ymid)^2)))
�  �cycle
� �
� �col(mul*col+1)
� �cycle
� � i=1 � angs
5  c1x=x1*cos(i)+y1*sin(i):c1y=y1*cos(i)-x1*sin(i)
5  c2x=x2*cos(i)+y2*sin(i):c2y=y2*cos(i)-x2*sin(i)
5  c3x=x3*cos(i)+y3*sin(i):c3y=y3*cos(i)-x3*sin(i)
$)  � c1x, c1y:� c2x, c2y:� 85,c3x, c3y
.)  � c1x,-c1y:� c2x,-c2y:� 85,c3x,-c3y
8  �cycle
B �
L�
V�
`:
j� �col(col)
t� �(14-((col+13)�28))+1
~�
�:
�� �cycle
�� i,col
�� �-ctime>=8 �
� � �(1)>.6 rgb=�(3)
� col=col(15,rgb)
� � i=15 � 2 � -1
�  col(i,rgb)=col(i-1,rgb)
� �
� col(1,rgb)=col
� cycle=cycle � 15+1
� � i=1 � 15
4  � (i+cycle+15)�15+1,col(i,1),col(i,2),col(i,3)

 �
 ctime=�
�
(�
�

00000000  0d 00 0a 1a f4 20 20 20  20 20 3e 50 75 6c 73 61  |.....     >Pulsa|
00000010  72 20 28 49 6e 66 6f 31  30 29 0d 00 14 12 f4 20  |r (Info10)..... |
00000020  42 79 20 20 4a 61 6e 20  56 69 62 65 0d 00 1e 19  |By  Jan Vibe....|
00000030  f4 20 46 6f 72 20 33 32  2d 62 69 74 20 6d 61 63  |. For 32-bit mac|
00000040  68 69 6e 65 73 0d 00 28  16 f4 20 28 63 29 20 42  |hines..(.. (c) B|
00000050  41 55 20 4d 61 79 20 31  39 39 33 0d 00 32 05 3a  |AU May 1993..2.:|
00000060  0d 00 3c 07 eb 31 32 0d  00 46 0a f2 73 68 61 70  |..<..12..F..shap|
00000070  65 0d 00 50 09 f2 69 6e  69 74 0d 00 5a 0e ee 20  |e..P..init..Z.. |
00000080  85 20 f2 65 72 72 6f 72  0d 00 64 09 f2 64 72 61  |. .error..d..dra|
00000090  77 0d 00 6e 05 e0 0d 00  78 05 3a 0d 00 82 0c dd  |w..n....x.:.....|
000000a0  20 f2 65 72 72 6f 72 0d  00 8c 1d e7 20 9f 3c 3e  | .error..... .<>|
000000b0  31 37 20 f1 f6 24 3b 22  20 61 74 20 6c 69 6e 65  |17 ..$;" at line|
000000c0  20 22 3b 9e 0d 00 96 05  e0 0d 00 a0 05 3a 0d 00  | ";..........:..|
000000d0  aa 0c dd 20 f2 73 68 61  70 65 0d 00 b4 10 f1 22  |... .shape....."|
000000e0  31 3a 20 53 71 75 61 72  65 22 0d 00 be 11 f1 22  |1: Square"....."|
000000f0  32 3a 20 48 65 78 61 67  6f 6e 22 0d 00 c8 11 f1  |2: Hexagon".....|
00000100  22 33 3a 20 4f 63 74 61  67 6f 6e 22 0d 00 d2 1f  |"3: Octagon"....|
00000110  f1 22 34 3a 20 50 6f 6c  79 67 6f 6e 20 77 69 74  |."4: Polygon wit|
00000120  68 20 31 32 20 73 69 64  65 73 22 0d 00 dc 18 f1  |h 12 sides".....|
00000130  27 22 50 6f 6c 79 67 6f  6e 20 6e 75 6d 62 65 72  |'"Polygon number|
00000140  20 22 3b 0d 00 e6 0b 2a  46 78 31 35 2c 30 0d 00  | ";....*Fx15,0..|
00000150  f0 05 f5 0d 00 fa 0c 20  70 6f 6c 79 24 3d be 0d  |....... poly$=..|
00000160  01 04 16 fd 20 a7 22 31  32 33 34 22 2c 70 6f 6c  |.... ."1234",pol|
00000170  79 24 29 3e 30 0d 01 0e  11 70 6f 6c 79 3d bb 28  |y$)>0....poly=.(|
00000180  70 6f 6c 79 24 29 0d 01  18 0d c8 8e 20 70 6f 6c  |poly$)...... pol|
00000190  79 20 ca 0d 01 22 1d 20  c9 20 31 3a 61 6e 67 3d  |y ...". . 1:ang=|
000001a0  30 20 3a 72 61 64 3d 35  31 32 3a 77 3d 31 2e 30  |0 :rad=512:w=1.0|
000001b0  0d 01 2c 1d 20 c9 20 32  3a 61 6e 67 3d 33 30 3a  |..,. . 2:ang=30:|
000001c0  72 61 64 3d 35 38 30 3a  77 3d 31 2e 35 0d 01 36  |rad=580:w=1.5..6|
000001d0  1d 20 c9 20 33 3a 61 6e  67 3d 34 35 3a 72 61 64  |. . 3:ang=45:rad|
000001e0  3d 35 31 32 3a 77 3d 32  2e 30 0d 01 40 1d 20 c9  |=512:w=2.0..@. .|
000001f0  20 34 3a 61 6e 67 3d 36  30 3a 72 61 64 3d 35 31  | 4:ang=60:rad=51|
00000200  32 3a 77 3d 32 2e 35 0d  01 4a 05 cb 0d 01 54 05  |2:w=2.5..J....T.|
00000210  e1 0d 01 5e 05 3a 0d 01  68 0b dd 20 f2 69 6e 69  |...^.:..h.. .ini|
00000220  74 0d 01 72 0f 61 6e 67  31 3d b2 28 61 6e 67 29  |t..r.ang1=.(ang)|
00000230  0d 01 7c 0e 61 6e 67 32  3d b2 28 39 30 29 0d 01  |..|.ang2=.(90)..|
00000240  86 15 61 6e 67 73 3d 31  38 30 2f 28 39 30 2d 61  |..angs=180/(90-a|
00000250  6e 67 29 0d 01 90 0a e7  b3 28 2d 91 29 0d 01 9a  |ng)......(-.)...|
00000260  0b 63 79 63 6c 65 3d 31  0d 01 a4 0c 72 67 62 3d  |.cycle=1....rgb=|
00000270  b3 28 33 29 0d 01 ae 0b  63 74 69 6d 65 3d 91 0d  |.(3)....ctime=..|
00000280  01 b8 32 de 20 73 69 6e  28 61 6e 67 73 29 2c 63  |..2. sin(angs),c|
00000290  6f 73 28 61 6e 67 73 29  2c 63 6f 6c 28 31 35 2c  |os(angs),col(15,|
000002a0  33 29 2c 78 28 36 29 2c  79 28 36 29 2c 77 28 36  |3),x(6),y(6),w(6|
000002b0  29 0d 01 c2 10 e3 20 69  3d 31 20 b8 20 61 6e 67  |)..... i=1 . ang|
000002c0  73 0d 01 cc 16 20 61 3d  b2 28 32 2a 28 39 30 2d  |s.... a=.(2*(90-|
000002d0  61 6e 67 29 2a 69 29 0d  01 d6 0e 20 73 69 6e 28  |ang)*i).... sin(|
000002e0  69 29 3d b5 61 0d 01 e0  0e 20 63 6f 73 28 69 29  |i)=.a.... cos(i)|
000002f0  3d 9b 61 0d 01 ea 05 ed  0d 01 f4 0e e3 20 69 3d  |=.a.......... i=|
00000300  31 20 b8 20 31 35 0d 01  fe 0f 20 f3 20 63 6f 6c  |1 . 15.... . col|
00000310  28 69 2c 31 29 0d 02 08  16 20 63 6f 6c 28 69 2c  |(i,1).... col(i,|
00000320  32 29 3d 63 6f 6c 28 69  2c 31 29 0d 02 12 16 20  |2)=col(i,1).... |
00000330  63 6f 6c 28 69 2c 33 29  3d 63 6f 6c 28 69 2c 31  |col(i,3)=col(i,1|
00000340  29 0d 02 1c 23 20 fb 20  69 2c 63 6f 6c 28 69 2c  |)...# . i,col(i,|
00000350  31 29 2c 63 6f 6c 28 69  2c 32 29 2c 63 6f 6c 28  |1),col(i,2),col(|
00000360  69 2c 33 29 0d 02 26 05  ed 0d 02 30 07 db 3a 87  |i,3)..&....0..:.|
00000370  0d 02 3a 0a c8 8e 20 eb  20 ca 0d 02 44 19 20 c9  |..:... . ...D. .|
00000380  20 31 32 2c 32 30 20 3a  20 c8 91 20 36 34 30 2c  | 12,20 : .. 640,|
00000390  35 31 32 0d 02 4e 19 20  c9 20 33 31 20 20 20 20  |512..N. . 31    |
000003a0  3a 20 c8 91 20 38 30 30  2c 36 30 30 0d 02 58 05  |: .. 800,600..X.|
000003b0  cb 0d 02 62 05 e1 0d 02  6c 05 3a 0d 02 76 3b dc  |...b....l.:..v;.|
000003c0  20 31 36 2c 33 32 2c 38  30 2c 31 31 32 2c 31 34  | 16,32,80,112,14|
000003d0  34 2c 31 37 36 2c 32 30  38 2c 32 34 30 2c 32 32  |4,176,208,240,22|
000003e0  34 2c 31 39 32 2c 31 36  30 2c 31 32 38 2c 39 36  |4,192,160,128,96|
000003f0  2c 36 34 2c 33 32 0d 02  80 05 3a 0d 02 8a 0b dd  |,64,32....:.....|
00000400  20 f2 64 72 61 77 0d 02  94 05 f5 0d 02 9e 0d 20  | .draw......... |
00000410  72 6e 64 3d b3 28 36 29  0d 02 a8 13 20 6d 75 6c  |rnd=.(6).... mul|
00000420  3d 32 38 2f 28 32 2a 72  6e 64 29 0d 02 b2 10 20  |=28/(2*rnd).... |
00000430  e3 20 69 3d 31 20 b8 20  72 6e 64 0d 02 bc 11 20  |. i=1 . rnd.... |
00000440  20 78 28 69 29 3d b3 28  72 61 64 29 0d 02 c6 11  | x(i)=.(rad)....|
00000450  20 20 79 28 69 29 3d b3  28 72 61 64 29 0d 02 d0  |  y(i)=.(rad)...|
00000460  14 20 20 77 28 69 29 3d  77 2a b3 28 31 29 2b 2e  |.  w(i)=w*.(1)+.|
00000470  35 0d 02 da 06 20 ed 0d  02 e4 37 20 f2 70 6f 6c  |5.... ....7 .pol|
00000480  79 28 30 2c 30 2c 72 61  64 2a b5 61 6e 67 31 2c  |y(0,0,rad*.ang1,|
00000490  72 61 64 2a 9b 61 6e 67  31 2c 72 61 64 2a b5 61  |rad*.ang1,rad*.a|
000004a0  6e 67 32 2c 72 61 64 2a  9b 61 6e 67 32 29 0d 02  |ng2,rad*.ang2)..|
000004b0  ee 10 20 77 68 65 6e 3d  91 2b 31 30 30 30 0d 02  |.. when=.+1000..|
000004c0  f8 06 20 f5 0d 03 02 0c  20 20 f2 63 79 63 6c 65  |.. .....  .cycle|
000004d0  0d 03 0c 0d 20 fd 20 91  3e 77 68 65 6e 0d 03 16  |.... . .>when...|
000004e0  07 fd 20 a3 0d 03 20 05  e1 0d 03 2a 05 3a 0d 03  |.. ... ....*.:..|
000004f0  34 1e dd 20 f2 70 6f 6c  79 28 78 31 2c 79 31 2c  |4.. .poly(x1,y1,|
00000500  78 32 2c 79 32 2c 78 33  2c 79 33 29 0d 03 3e 1d  |x2,y2,x3,y3)..>.|
00000510  ea 20 78 31 32 2c 79 31  32 2c 78 32 33 2c 79 32  |. x12,y12,x23,y2|
00000520  33 2c 78 33 31 2c 79 33  31 0d 03 48 0a f2 63 79  |3,x31,y31..H..cy|
00000530  63 6c 65 0d 03 52 20 e7  20 28 78 32 2d 78 31 29  |cle..R . (x2-x1)|
00000540  5e 32 2b 28 79 32 2d 79  31 29 5e 32 3e 3d 32 35  |^2+(y2-y1)^2>=25|
00000550  36 20 8c 0d 03 5c 20 20  78 31 32 3d 28 78 31 2b  |6 ...\  x12=(x1+|
00000560  78 32 29 2f 32 3a 79 31  32 3d 28 79 31 2b 79 32  |x2)/2:y12=(y1+y2|
00000570  29 2f 32 0d 03 66 20 20  78 32 33 3d 28 78 32 2b  |)/2..f  x23=(x2+|
00000580  78 33 29 2f 32 3a 79 32  33 3d 28 79 32 2b 79 33  |x3)/2:y23=(y2+y3|
00000590  29 2f 32 0d 03 70 20 20  78 33 31 3d 28 78 33 2b  |)/2..p  x31=(x3+|
000005a0  78 31 29 2f 32 3a 79 33  31 3d 28 79 33 2b 79 31  |x1)/2:y31=(y3+y1|
000005b0  29 2f 32 0d 03 7a 21 20  f2 70 6f 6c 79 28 78 31  |)/2..z! .poly(x1|
000005c0  2c 79 31 2c 78 31 32 2c  79 31 32 2c 78 33 31 2c  |,y1,x12,y12,x31,|
000005d0  79 33 31 29 0d 03 84 21  20 f2 70 6f 6c 79 28 78  |y31)...! .poly(x|
000005e0  31 32 2c 79 31 32 2c 78  32 2c 79 32 2c 78 32 33  |12,y12,x2,y2,x23|
000005f0  2c 79 32 33 29 0d 03 8e  23 20 f2 70 6f 6c 79 28  |,y23)...# .poly(|
00000600  78 31 32 2c 79 31 32 2c  78 32 33 2c 79 32 33 2c  |x12,y12,x23,y23,|
00000610  78 33 31 2c 79 33 31 29  0d 03 98 21 20 f2 70 6f  |x31,y31)...! .po|
00000620  6c 79 28 78 33 31 2c 79  33 31 2c 78 32 33 2c 79  |ly(x31,y31,x23,y|
00000630  32 33 2c 78 33 2c 79 33  29 0d 03 a2 05 cc 0d 03  |23,x3,y3).......|
00000640  ac 28 20 78 6d 69 64 3d  28 78 31 2b 78 32 2b 78  |.( xmid=(x1+x2+x|
00000650  33 29 2f 33 3a 79 6d 69  64 3d 28 79 31 2b 79 32  |3)/3:ymid=(y1+y2|
00000660  2b 79 33 29 2f 33 0d 03  b6 0a 20 63 6f 6c 3d 30  |+y3)/3.... col=0|
00000670  0d 03 c0 10 20 e3 20 69  3d 31 20 b8 20 72 6e 64  |.... . i=1 . rnd|
00000680  0d 03 ca 36 20 20 63 6f  6c 2b 3d 28 31 2b b5 b2  |...6  col+=(1+..|
00000690  28 77 28 69 29 2a b6 28  28 78 28 69 29 2d 78 6d  |(w(i)*.((x(i)-xm|
000006a0  69 64 29 5e 32 2b 28 79  28 69 29 2d 79 6d 69 64  |id)^2+(y(i)-ymid|
000006b0  29 5e 32 29 29 29 0d 03  d4 0c 20 20 f2 63 79 63  |)^2)))....  .cyc|
000006c0  6c 65 0d 03 de 06 20 ed  0d 03 e8 14 20 f2 63 6f  |le.... ..... .co|
000006d0  6c 28 6d 75 6c 2a 63 6f  6c 2b 31 29 0d 03 f2 0b  |l(mul*col+1)....|
000006e0  20 f2 63 79 63 6c 65 0d  03 fc 11 20 e3 20 69 3d  | .cycle.... . i=|
000006f0  31 20 b8 20 61 6e 67 73  0d 04 06 35 20 20 63 31  |1 . angs...5  c1|
00000700  78 3d 78 31 2a 63 6f 73  28 69 29 2b 79 31 2a 73  |x=x1*cos(i)+y1*s|
00000710  69 6e 28 69 29 3a 63 31  79 3d 79 31 2a 63 6f 73  |in(i):c1y=y1*cos|
00000720  28 69 29 2d 78 31 2a 73  69 6e 28 69 29 0d 04 10  |(i)-x1*sin(i)...|
00000730  35 20 20 63 32 78 3d 78  32 2a 63 6f 73 28 69 29  |5  c2x=x2*cos(i)|
00000740  2b 79 32 2a 73 69 6e 28  69 29 3a 63 32 79 3d 79  |+y2*sin(i):c2y=y|
00000750  32 2a 63 6f 73 28 69 29  2d 78 32 2a 73 69 6e 28  |2*cos(i)-x2*sin(|
00000760  69 29 0d 04 1a 35 20 20  63 33 78 3d 78 33 2a 63  |i)...5  c3x=x3*c|
00000770  6f 73 28 69 29 2b 79 33  2a 73 69 6e 28 69 29 3a  |os(i)+y3*sin(i):|
00000780  63 33 79 3d 79 33 2a 63  6f 73 28 69 29 2d 78 33  |c3y=y3*cos(i)-x3|
00000790  2a 73 69 6e 28 69 29 0d  04 24 29 20 20 ec 20 63  |*sin(i)..$)  . c|
000007a0  31 78 2c 20 63 31 79 3a  ec 20 63 32 78 2c 20 63  |1x, c1y:. c2x, c|
000007b0  32 79 3a f0 20 38 35 2c  63 33 78 2c 20 63 33 79  |2y:. 85,c3x, c3y|
000007c0  0d 04 2e 29 20 20 ec 20  63 31 78 2c 2d 63 31 79  |...)  . c1x,-c1y|
000007d0  3a ec 20 63 32 78 2c 2d  63 32 79 3a f0 20 38 35  |:. c2x,-c2y:. 85|
000007e0  2c 63 33 78 2c 2d 63 33  79 0d 04 38 0c 20 20 f2  |,c3x,-c3y..8.  .|
000007f0  63 79 63 6c 65 0d 04 42  06 20 ed 0d 04 4c 05 cd  |cycle..B. ...L..|
00000800  0d 04 56 05 e1 0d 04 60  05 3a 0d 04 6a 0f dd 20  |..V....`.:..j.. |
00000810  f2 63 6f 6c 28 63 6f 6c  29 0d 04 74 1b e6 20 94  |.col(col)..t.. .|
00000820  28 31 34 2d 28 28 63 6f  6c 2b 31 33 29 83 32 38  |(14-((col+13).28|
00000830  29 29 2b 31 0d 04 7e 05  e1 0d 04 88 05 3a 0d 04  |))+1..~......:..|
00000840  92 0c dd 20 f2 63 79 63  6c 65 0d 04 9c 0b ea 20  |... .cycle..... |
00000850  69 2c 63 6f 6c 0d 04 a6  12 e7 20 91 2d 63 74 69  |i,col..... .-cti|
00000860  6d 65 3e 3d 38 20 8c 0d  04 b0 17 20 e7 20 b3 28  |me>=8 ..... . .(|
00000870  31 29 3e 2e 36 20 72 67  62 3d b3 28 33 29 0d 04  |1)>.6 rgb=.(3)..|
00000880  ba 14 20 63 6f 6c 3d 63  6f 6c 28 31 35 2c 72 67  |.. col=col(15,rg|
00000890  62 29 0d 04 c4 14 20 e3  20 69 3d 31 35 20 b8 20  |b).... . i=15 . |
000008a0  32 20 88 20 2d 31 0d 04  ce 1d 20 20 63 6f 6c 28  |2 . -1....  col(|
000008b0  69 2c 72 67 62 29 3d 63  6f 6c 28 69 2d 31 2c 72  |i,rgb)=col(i-1,r|
000008c0  67 62 29 0d 04 d8 06 20  ed 0d 04 e2 13 20 63 6f  |gb).... ..... co|
000008d0  6c 28 31 2c 72 67 62 29  3d 63 6f 6c 0d 04 ec 17  |l(1,rgb)=col....|
000008e0  20 63 79 63 6c 65 3d 63  79 63 6c 65 20 83 20 31  | cycle=cycle . 1|
000008f0  35 2b 31 0d 04 f6 0f 20  e3 20 69 3d 31 20 b8 20  |5+1.... . i=1 . |
00000900  31 35 0d 05 00 34 20 20  fb 20 28 69 2b 63 79 63  |15...4  . (i+cyc|
00000910  6c 65 2b 31 35 29 83 31  35 2b 31 2c 63 6f 6c 28  |le+15).15+1,col(|
00000920  69 2c 31 29 2c 63 6f 6c  28 69 2c 32 29 2c 63 6f  |i,1),col(i,2),co|
00000930  6c 28 69 2c 33 29 0d 05  0a 06 20 ed 0d 05 14 0c  |l(i,3).... .....|
00000940  20 63 74 69 6d 65 3d 91  0d 05 1e 05 cd 0d 05 28  | ctime=........(|
00000950  05 e1 0d ff                                       |....|
00000954