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 added 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 27 added 2 lines
[{Image src='circles_7.png' }] [{Image src='circles_10.png' }]
At line 101 added 2 lines
[{Image src='circles_6.png' }] [{Image src='circles_12.png' }]
At line 406 added 2 lines
[{Image src='circles_5.png' }]
At line 431 changed one line
[{Image src='circles_2.png' }]
At line 443 added 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 445 changed one line
* Atari BASIC listing on disk (tokenized): M8903281.BAS
* Atari BASIC listing on disk (tokenized): [M8903281.BAS]
At line 494 added one line
[{Image src='circles_1.png' }]
At line 496 added 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
}}}
This page (revision-10) was last changed on 03-Feb-2023 15:21 by Carsten Strotmann  Top