DQBellipse

SUB

Prototype

DECLARE SUB DQBellipse (BYVAL Layer, BYVAL x, BYVAL y, BYVAL rx, BYVAL ry,
                        BYVAL Col)

Parameters

Layer - Source layer to copy data from

x - x coordinate of the center of your ellipse

y - y coordinate of the center of your ellipse

rx - Horizontal radius in pixels

ry - Vertical radius in pixels

Col - Ellipse color

Returns

none

Description

This function is useful to draw ellipses (and, needless to say, a circle is a particular ellipse with equal radiuses); the radiuses can range from 0 up to 256.

Notes:

Also DQBellipse is affected by the clipping box

Example

*****************************************************************************

' All integers for speed
DEFINT A-Z

'$INCLUDE:'DIRECTQB.BI'

' Let's initialize the library with one extra layer and no sounds nor EMS
IF DQBinit(1, 0, 0) THEN DQBclose: PRINT DQBerror$: END

DQBinitVGA

FOR i = 10 TO 90 STEP 10
  ' Draws our ellipses
  DQBellipse VIDEO, 160, 100, 90, i, 40
  DQBellipse VIDEO, 160, 100, i, 90, 40
NEXT i

' Waits for the user to press a key
WHILE INKEY$ = "": WEND

' Ends program
DQBclose

*****************************************************************************