|
|
1.1 ! root 1: track-elipse compute residual distance ! 2: x coordinate of center ! 3: y coordinate of center ! 4: compute raw differences ! 5: ���2~=�<X ! 6: �#����2~�=�<Y ! 7: �#�scale to 100 ! 8: ���4~�3~�3~���00�3~�<X-AXIS ! 9: �#��<X-AXIS ! 10: �#����4~�3~�3~���00�3~�<Y-AXIS ! 11: �#��<Y-AXIS ! 12: �#����2~�1~���00|���~�����2~����� ! 13: draw-elipse draws an elipse on the screen in the region ! 14: ��=���=<X ! 15: �#�4~�1~�=�<Y ! 16: �#�4~�1~��=�now compute the axes ! 17: ���4~�2~�=�|���~�����2~����<X-AXIS ! 18: �#����4~�2~��=�|���~�����2~����<Y-AXIS ! 19: �#� position the cursor ! 20: <Y ! 21: �#�2~�<X ! 22: �#���@�3~��@ The following implements a repeat-until loop ! 23: ^�����track-elipse ! 24: �|���~�track-elipse ! 25: ����|���~�track-elipse ! 26: �����@ now reflect around X and y axes ! 27: ���3~��2~�<X ! 28: �#�=�@�3~��2~�<Y ! 29: �#��=@�@�~=�<X ! 30: �#����
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.