option default none
option explicit
CPU 48
const stepsize=3 ' this controls the accuracy of the circle segment, small for accurate, bigger for fast
timer=0
dim integer radius
if mm.hres<=mm.vres then
radius=mm.hres/2-5
else
radius=mm.vres/2-5
endif
segment(mm.hres/2,mm.vres/2,radius,0,60, RGB(red))
segment(mm.hres/2,mm.vres/2,radius,60,120, RGB(Blue))
segment(mm.hres/2,mm.vres/2,radius,120,180, RGB(magenta))
segment(mm.hres/2,mm.vres/2,radius,180,240, RGB(cyan))
segment(mm.hres/2,mm.vres/2,radius,240,300, RGB(yellow))
segment(mm.hres/2,mm.vres/2,radius,300,360, RGB(green))
segment(mm.hres/2,mm.vres/2,radius,60,60,0)
segment(mm.hres/2,mm.vres/2,radius,120,120,0)
segment(mm.hres/2,mm.vres/2,radius,180,180,0)
segment(mm.hres/2,mm.vres/2,radius,240,240,0)
segment(mm.hres/2,mm.vres/2,radius,300,300,0)
segment(mm.hres/2,mm.vres/2,radius,360,360,0)
circle mm.hres/2,mm.vres/2,radius
print timer
end
'
' Routine to draw a segment of a circle
' Parameters are:
' x-coordinate of centre of circle
' y-coordinate of centre of circle
' radius of circle
' start radial of segment to be drawn (0-360 degrees)
' end radial of segment to be drawn (0-360 degrees)
' colour to draw segment
'
' NB if start radial and end radioal are the same a line will be drawn
'
sub segment(x as integer, y as integer, size as integer, startradial as integer, endradial as integer, colour as integer)
local integer i,j,x1,x2,y1,y2,sr,er
if startradial=endradial then
x2=sin(rad(startradial))*size + x
y2=-cos(rad(startradial))*size + y
line x,y,x2,y2,,colour
else
IF startradial<endradial then
sr=startradial
er=endradial
else
er=startradial
sr=endradial
endif
for i=sr+stepsize to er step stepsize
x2=sin(rad(i))*size + x
y2=-cos(rad(i))*size + y
x1=sin(rad(i-stepsize))*size + x
y1=-cos(rad(i-stepsize))*size + y
j=triangle(x1,y1,x2,y2,x,y,colour,colour)
next i
endif
end sub
'
' Routine to draw a triangle
'
' Parameters are:
' x-coordinate of first point
' y-coordinate of first point
' x-coordinate of second point
' y-coordinate of second point
' x-coordinate of third point
' y-coordinate of third point
' colour to draw triangle outline
' colour to fill triangle use -1 for outline only
'
CFunction triangle
00000000
27bdffa0 afb40048 8fb4007c 8ce90000 8e820000 afa50064 8fa30064 afa60068
afa7006c 8fa70070 afa40060 8c850000 8c660000 8fa40068 8fa30074 8ce80000
2407ffff afbe0058 afb70054 8c9e0000 8c770000 afbf005c afb60050 afb5004c
afb30044 afb20040 afb1003c afb00038 00401821 104700f4 8e840004 0126202a
afa60020 afa90018 10800005 00a09821 03c09821 afa90020 afa60018 00a0f021
8fa50018 02e5202a 10800006 afa80024 03c02021 afb70018 0100f021 00a0b821
afa40024 8fa60020 8fa70018 00e6202a 148000ac 02602021 8fa40020 509700b0
03d3182a 8fa70018 10f70002 8fa60018 24e6ffff 8fa90020 00c9202a 148000e1
8fa70024 8fa20018 03d32823 00f32023 0049b023 02e9a823 afbe0028 afb7002c
afb4001c 01208021 00009021 00008821 3c029d00 00a0b821 0080f021 10000003
00c0a021 8fa4001c 8c830000 0236001a 02c001f4 02002821 02003821 02378821
26100001 00002012 0255001a 02a001f4 00932021 00804021 00003012 00d33021
00c4482a 11200003 025e9021 00c02021 01003021 afa30010 8c430048 0060f809
afa20030 0290182a 1060ffe6 8fa20030 8fb4001c 8fbe0028 8e830000 8fb7002c
00601021 02f0202a 148000ab 8fa70018 8fa50024 8fa90020 00b3b023 00be3023
02079023 02098823 02e92023 72368802 afb40018 afa6001c 02c0a021 72469002
0260b021 02e7a823 3c029d00 10000003 00809821 8fa40018 8c830000 0255001a
02a001f4 8fa6001c 02002821 02469021 02003821 26100001 00002012 0233001a
026001f4 009e2021 00804021 00003012 00d63021 00c4482a 11200003 02348821
00c02021 01003021 afa30010 8c430048 0060f809 afa20030 02f0182a 1060ffe5
8fa20030 8fb40018 8e830000 8e840004 8fa50078 8ca20000 1043005d 8ca50004
8fa3006c 8fa60060 8fa70064 8fa90068 24110001 8cc40000 8ce50000 8d260000
8c670000 3c109d00 afb10010 afa20014 8e020050 0040f809 00000000 8fa40078
8fa50068 8c820000 8fa6006c 8fa70070 8fa90074 8ca40000 8cc50000 8ce60000
8d270000 afb10010 afa20014 8e020050 0040f809 00000000 8fa30078 8fa50070
8c620000 8fa60074 8fa70060 8fa90064 8ca40000 8cc50000 8ce60000 8d270000
afb10010 afa20014 8e020050 0040f809 00000000 8fbf005c 8fbe0058 8fb70054
8fb60050 8fb5004c 8fb40048 8fb30044 8fb20040 8fb1003c 8fb00038 03e00008
27bd0060 afa70020 03c09821 0080f021 8fa40020 1497ff53 afa60018 03d3182a
1460002d 8fa50024 027e182a 14600030 03c03821 02603821 02602021 8fa50024
00a4182a 54600003 8fa40024 00e5182a 00a3380b 8fa60020 afa20010 3c029d00
00e63821 8c420048 00c02821 00e43823 0040f809 00803021 8fa50078 8e830000
8ca20000 8e840004 1443ffa5 8ca50004 54a4ffa4 8fa3006c 8fbf005c 8fbe0058
8fb70054 8fb60050 8fb5004c 8fb40048 8fb30044 8fb20040 8fb1003c 8fb00038
03e00008 27bd0060 5482ff0d 0126202a 1000ff90 8fa50078 03c02021 00a4182a
1060ffda 02603821 1000ffda 8fa40024 1000ffd2 02602021 00401821 1000ff84
8e840004 1000ff4f 8fb00020
End CFunction