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