This page (revision-10) was last changed on 03-Feb-2023 15:21 by Carsten Strotmann 

This page was created on 08-Apr-2010 05:45 by Carsten Strotmann

Only authorized users are allowed to rename pages.

Only authorized users are allowed to delete pages.

Page revision history

Version Date Modified Size Author Changes ... Change note
10 03-Feb-2023 15:21 13 KB Carsten Strotmann to previous
9 08-Apr-2010 05:57 13 KB Carsten Strotmann to previous | to last
8 08-Apr-2010 05:55 13 KB Carsten Strotmann to previous | to last
7 08-Apr-2010 05:53 12 KB Carsten Strotmann to previous | to last
6 08-Apr-2010 05:52 12 KB Carsten Strotmann to previous | to last
5 08-Apr-2010 05:49 11 KB Carsten Strotmann to previous | to last
4 08-Apr-2010 05:49 11 KB Carsten Strotmann to previous | to last
3 08-Apr-2010 05:46 11 KB Carsten Strotmann to previous | to last
2 08-Apr-2010 05:45 11 KB Carsten Strotmann to previous | to last
1 08-Apr-2010 05:45 11 KB Carsten Strotmann to last

Page References

Incoming links Outgoing links
Super fast circle routine
Super fast circle routine

Version management

Difference between version and

At line 3 removed 4 lines
[{TableOfContents }] \\
Original from Posting on [AtariAge|http://www.atariage.com/forums/topic/161073-moj-mikro-magazine-listings-super-fast-circle-routine/]
At line 21 changed one line
* Atari BASIC listing on disk (tokenized): [M8903284.BAS]
* Atari BASIC listing on disk (tokenized): M8903284.BAS
At line 27 removed 2 lines
[{Image src='circles_7.png' }] [{Image src='circles_10.png' }]
At line 101 removed 2 lines
[{Image src='circles_6.png' }] [{Image src='circles_12.png' }]
At line 397 added one line
Description
At line 406 removed 4 lines
[{Image src='circles_5.png' }]
!!Description
At line 414 changed 2 lines
!!!Usage of the routine
{{{
Usage of the routine
At line 417 removed one line
}}}
At line 419 changed 5 lines
| 30000 | Starting address of the calling routine
| POK | 1 (draw the circle), 0 (erase the circle)
| X | X coordinate of the circle
| Y | Y coordinate of the circle
| R | Radius of the circle
30000 - Starting address of the calling routine
POK - 1 (draw the circle), 0 (erase the circle)
X - X coordinate of the circle
Y - Y coordinate of the circle
R - Radius of the circle
At line 431 changed one line
!! Fast circle drawing in pure Atari BASIC
Fast circle drawing in pure Atari BASIC
At line 433 changed 5 lines
* Magazine: Moj Mikro, 1989/3
* Author : Zlatko Bleha
* Page : 27 - 31
* Atari BASIC listing on disk (tokenized): M8903282.BAS
* Atari BASIC listing (listed): M8903282.LST
Magazine: Moj Mikro, 1989/3
Author : Zlatko Bleha
Page : 27 - 31
Atari BASIC listing on disk (tokenized): M8903282.BAS
Atari BASIC listing (listed): M8903282.LST
At line 441 changed one line
[{Image src='circles_2.png' }]
At line 443 removed 34 lines
[{Image src='circles_3.png' }]
[{Image src='circles_4.png' }]
!Basic Listing M8903282.LST
{{{
1 REM *******************************
2 REM PROGRAM : FAST CIRCLE DRAWING
3 REM AUTHOR : ZLATKO BLEHA
4 REM PUBLISHER: MOJ MIKRO MAGAZINE
5 REM ISSUE NO.: 1989, NO.3, PAGE 29
6 REM *******************************
7 REM
10 GRAPHICS 8:SETCOLOR 2,0,0:COLOR 3
20 ? "ENTER X, Y AND R"
30 INPUT X,Y,R
40 IF R=0 THEN PLOT X,Y:END
50 B=R:C=0:A=R-1
60 PLOT X+C,Y+B
70 PLOT X+C,Y-B
80 PLOT X-C,Y-B
90 PLOT X-C,Y+B
100 PLOT X+B,Y+C
110 PLOT X+B,Y-C
120 PLOT X-B,Y-C
130 PLOT X-B,Y+C
140 C=C+1
150 A=A+1-C-C
160 IF A>=0 THEN 190
170 B=B-1
180 A=A+B+B
190 IF B>=C THEN 60
}}}
At line 479 removed one line
{{{
At line 482 removed one line
}}}
At line 484 changed one line
!! Slow circle drawing in Atari BASIC
Slow circle drawing in Atari BASIC
At line 486 changed 5 lines
* Magazine: Moj Mikro, 1989/3
* Author : Zlatko Bleha
* Page : 27 - 31
* Atari BASIC listing on disk (tokenized): [M8903281.BAS]
* Atari BASIC listing (listed): M8903281.LST
Magazine: Moj Mikro, 1989/3
Author : Zlatko Bleha
Page : 27 - 31
Atari BASIC listing on disk (tokenized): M8903281.BAS
Atari BASIC listing (listed): M8903281.LST
At line 494 removed one line
[{Image src='circles_1.png' }]
At line 496 removed 16 lines
!Basic Listing M8903281.LST
{{{
1 REM *******************************
2 REM PROGRAM : SLOW CIRCLE DRAWING
3 REM AUTHOR : ZLATKO BLEHA
4 REM PUBLISHER: MOJ MIKRO MAGAZINE
5 REM ISSUE NO.: 1989, NO.3, PAGE 29
6 REM *******************************
7 REM
10 GRAPHICS 8:SETCOLOR 2,0,0:COLOR 3
20 FOR A=0 TO 6.28 STEP 0.02
30 X=SIN(A)*50+150
40 Y=COS(A)*50+80
50 PLOT X,Y
60 NEXT A
}}}
At line 513 changed one line
!! Conclusion
Conclusion
At line 518 changed one line
{{{
At line 520 removed one line
}}}
At line 522 changed 3 lines
| POK | 1 (drawing a pixel), 0 (erasing a pixel)
| X | X coordinate of the pixel
| Y | Y coordinate of the pixel
POK - 1 (drawing a pixel), 0 (erasing a pixel)
X - X coordinate of the pixel
Y - Y coordinate of the pixel
At line 526 changed one line
The routine alone is not any faster than normal PLOT command from Atari BASIC, because USR command takes approximately 75% of whole execution. But, used as part of the main circle routine it does not matter anymore, because it is integrated in one larger entity. There the execution is very fast, with no overhead. PLOT routine is here for you to examine anyway. You never know if you will maybe need it in the future.
The routine alone is not any faster than normal PLOT command from Atari BASIC, because USR command takes approximatelly 75% of whole execution. But, used as part of the main circle routine it does not matter anymore, because it is integrated in one larger entity. There the execution is very fast, with no overhead. PLOT routine is here for you to examine anyway. You never know if you will maybe need it in the future.
This page (revision-10) was last changed on 03-Feb-2023 15:21 by Carsten Strotmann  Top