1.***************************** inutil.xtr ******************************
2.* inutil.xtr -- �����Ū�������ޥ���
3.*
4.* ��ư�������С������ΣأԣҤǤ��� XTRF.EXE ����Ѥ��Ƥ���������
5.*
6.* �������㼫�Τ������Ū�ʤ�ΤǤ��������α��Ѥˤ�äƤ�����ʤ��Ȥ�
7.* �Ǥ���Ǥ��礦����ƤߤƤ���������
8.*
9.*
10.* �����������֤���������ޥ���
11.*
12.*�����Ȥ���
13.*
14.*  .SinBegin			;���������ֳ��ϥޥ����SinBegin��
15.*  ��ˤ��ˤ㡦����������
16.*  ������ʬ�����������֤�����
17.*  .SinEnd  			;���������ֽ�λ�ޥ����SinEnd��
18.*
19.*
20.*�������Τ褦�ˤ��ƻ���Ȥ�Ǥ��ޤ���
21.*
22.*    A>xtrf @inutil -px -#SinBegin() hajimeni.xx
23.*                                       ��
24.*                                  Ŭ���ʥƥ�����
25.*
26.*
27.* �⤷������ư�������С������� xtr.exe �ʤ� ferror �Ƕ�����λ�����롣
28.if (1/2==0) ferror("��xtrf.exe�ɤ���Ѥ��Ƥ�������")
29.*
30.# �� = 4 * atan(1)		; ���������ʥ����Х��ѿ��ȦСɡ�
31.
32.* �������Х��ѿ���̾���ϡ������ʣ��Х���ʸ���ˡ����ʡ���_�ɤޤ���
33.*   ����ʸ���ǻϤޤ�ޤ����ʽ��äơ��ȦСɤ��_r�ɤϥ����Х��
34.*
35.##SinBegin {			;������������������
36.  (_r = (.width - .indent) / 4)	;Ⱦ�¡�_r��
37.  (_center = .indent + 2 * _r)		;�濴�ΰ��֡�_center��
38.  (_t = -��/2)				;�ǽ�γ��١�_t��
39.  (_dt = ��/15)			;���٤ι������_dt��
40.  (_q_Save = cmd{q??})			;���ȤǤ�Ȥ��᤹�������¸
41.  [ - w f aj as ii1 il1 q/%Sin_sub
42.}                      ;������ˤ�ꡢ��� Sin_sub �ؿ����ƤӽФ����
43.
44.##SinEnd {			;����������������λ
45.  ]
46.  _{q=%quo(_q_Save)}			;��Ȥ��ᤷ�Ƥ���
47.}
48.
49.##Sin_sub {			;����ؿ���Sin_sub()��
50.  (s = _r * (1+sin(_t)))		;������η׻�
51.  i(_center - s)			;���ޡ������Ϳ����
52.  w(_center + s + 4)			;���ޡ������Ϳ����
53.  (_t += _dt)				;���١�_t�ɤ�������
54.  ()				;�֤��ͥ��ꥢ
55.}
56.* �����δؿ�������������ȡ�������ʥХꥨ����������ޤ���
57.*   ���ޡ������i ���ޥ�ɡˤȱ��ޡ������w ���ޥ�ɡˤ����Ū�ʷ׻���
58.*   Ϳ����Ȥ������Ȥ��ݥ���ȤǤ���
59.*
60.* �����Τ褦�� q ���ޥ�ɤλȤ����ϡ��ȥ�å����ʤ�ΤǤ������������
61.*   �ѤϤǤ��ޤ����㤨�С��ƤӽФ����ؿ���ǡ��ڡ�����ԥ����� �ʥ�
62.*   ���ƥ��ѿ�  .lineno�ˤ�����å����Ƥ���ˤ�äƲ��餫�ν��������
63.*   �������Ȥ���ǽ�Ǥ���
64.*
65.* ������ʳ��ˤ⡢��%-�Ѵ��Ӥ����Ѳ�ǽ�Ǥ��뤢����Ȥ���ǡ� ���μ��
66.*   �ƥ��˥å��������ѤΤ���ؿ��ƽФ��ˤ��Ȥ��ޤ����㤨�С� ���楳����
67.*   ����ǡ��⡼�ɡ�E�ɤ���ꤷ�ơ����楳���ɽ��ϤȤȤ�˲��餫�ν�����
68.*   �¹Ԥ�����Ȥ����褦�ʤ��Ȥ���ǽ�Ǥ��� ���楳��������Υ⡼�� ��L��
69.*   �ʲ��� CR/LF ����������楳���ɡˤ����Ѥ���ȡ����Խ��Ϥ�Ʊ���˲�
70.*   ��������Ԥ��Ȥ������Ȥ��Ǥ���Τǡ�SinBegin �� SinEnd ���������
71.*   ��Ȥäƽ�ľ�����Ȥ��ǽ�Ǥ����ʼ��Τ褦�ˡ�
72.*
73.*	r/@NL/%Sin_sub\r\n/SLE	;���Ի��� Sin_sub ��Ƥ֤褦�����SinBegin�ǡ�
74.*	r/@NL			;������������Ȥ��᤹��SinEnd �ǡ�
75.*
76.*
77.* ���ݤ���������ޥ���
78.*
79.*�����Ȥ���
80.*
81.*  .MaruBegin			;�ݤ��������ϥޥ����MaruBegin��
82.*  ��ˤ��ˤ㡦����������
83.*  ������ʬ���ݤ����������
84.*  .MaruEnd  			;�ݤ�������λ�ޥ����MaruEnd��
85.*
86.*
87.*�������Τ褦�ˤ��ƻ���Ȥ�Ǥ��ޤ���
88.*
89.*    A>xtrf @inutil -px -#MaruBegin() hajimeni.xx
90.*                                       ��
91.*                                  Ŭ���ʥƥ�����
92.*
93.##MaruBegin {
94.  (_o = 4)			;���ޡ�����Υ��ե��å�
95.  (_r = 24)			;�ߤ�Ⱦ��
96.  (_dx = 2 / _r)		;_x ����
97.  (_x = -1)			;_x ����
98.  (_q_Save = cmd{q??})		;���Ȥǡ���Ȥ��᤹����
99.  [ - w f aj as ii1 il1 q/%Maru_sub
100.}
101.##MaruEnd {
102.  ]
103.  _{q=%quo(_q_Save)}		;��Ȥ��ᤷ�Ƥ���
104.}
105.##Maru_sub {
106.  if (_x >= 1) (_x = -1)	;_x �� 1 ��ã�����顢�ޤ� -1 ���᤹
107.  (y = sqrt(1 - _x**2))	;_x ���Ф��� _y ��׻�
108.  i(_o + _r * (1-y))		;���ޡ������Ϳ����
109.  w(_o + 2 + _r * (1+y))	;���ޡ������Ϳ����
110.  (_x += _dx)			;_x ��ʤ��
111.  ()				;�֤��ͥ��ꥢ
112.}
113.*************************** end of inutil.xtr *************************
114