TransRed
= _RGBA(255, 0, 0, 128)TransGreen
= _RGBA(0, 255, 0, 128)TransBlue
= _RGBA(0, 0, 255, 128)
CALL CircleFill
(100, 100, 75, TransRed
) CALL CircleFill
(120, 120, 75, TransBlue
)
CALL EllipseFill
(550, 100, 150, 75, TransBlue
) CALL EllipseFill
(570, 120, 150, 75, TransGreen
)
CALL EllipseTilt
(200, 400, 150, 75, 0, TransGreen
) CALL EllipseTilt
(220, 420, 150, 75, 3.14 / 4, TransRed
)
CALL EllipseTiltFill
(0, 550, 400, 150, 75, 3.14 / 6, TransRed
) CALL EllipseTiltFill
(0, 570, 420, 150, 75, 3.14 / 4, TransGreen
)
' CX = center x coordinate
' CY = center y coordinate
' R = radius
' C = fill color
RadiusError = -Radius
X = Radius
Y = 0
LINE (CX
- X
, CY
)-(CX
+ X
, CY
), C
, BF
RadiusError = RadiusError + Y * 2 + 1
LINE (CX
- Y
, CY
- X
)-(CX
+ Y
, CY
- X
), C
, BF
LINE (CX
- Y
, CY
+ X
)-(CX
+ Y
, CY
+ X
), C
, BF
X = X - 1
RadiusError = RadiusError - X * 2
Y = Y + 1
LINE (CX
- X
, CY
- Y
)-(CX
+ X
, CY
- Y
), C
, BF
LINE (CX
- X
, CY
+ Y
)-(CX
+ X
, CY
+ Y
), C
, BF
' CX = center x coordinate
' CY = center y coordinate
' a = semimajor axis
' b = semiminor axis
' C = fill color
w2 = a * a
h2 = b * b
h2w2 = h2 * w2
LINE (CX
- a
, CY
)-(CX
+ a
, CY
), C
, BF
y = y + 1
x
= SQR((h2w2
- y
* y
* w2
) \ h2
) LINE (CX
- x
, CY
+ y
)-(CX
+ x
, CY
+ y
), C
, BF
LINE (CX
- x
, CY
- y
)-(CX
+ x
, CY
- y
), C
, BF
' CX = center x coordinate
' CY = center y coordinate
' a = semimajor axis
' b = semiminor axis
' ang = clockwise orientation of semimajor axis in radians (0 default)
' C = fill color
FOR k
= 0 TO 6.283185307179586 + .025 STEP .025 i = i + CX
j = -j + CY
' destHandle& = destination handle
' CX = center x coordinate
' CY = center y coordinate
' a = semimajor axis
' b = semiminor axis
' ang = clockwise orientation of semimajor axis in radians (0 default)
' C = fill color
prc
= _RGB32(255, 255, 255, 255) mx2 = max + max
FOR k
= 0 TO 6.283185307179586 + .025 STEP .025 LINE (lasti
, lastj
)-(i
, j
), prc
lasti = i: lastj = j
x = 0
x = x + 1
xleft(y) = x
x = x + 1
x = x + 1
IF x
= mx2
THEN xright
(y
) = xleft
(y
) ELSE xright
(y
) = x
IF xleft
(y
) <> mx2
THEN LINE (xleft
(y
) + CX
- max
, y
+ CY
- max
)-(xright
(y
) + CX
- max
, y
+ CY
- max
), C
, BF