Click above to get retro games delivered to your door ever month!

CIRCLE_3PT()                                                        C_DEMO
   Converts an array of 3 points to a circle for OBJ_ADD().

   Syntax
         CIRCLE_3PT(aInfoArray)

   Arguments
         aInfoArray    Three points to a circle.
                  +-------------------------------------+
                  | InfoArray[1] | Horizontal X1 point. |
                  | InfoArray[2] | Vertical Y1 point.   |
                  | InfoArray[3] | Horizontal X2 point. |
                  | InfoArray[4] | Vertical Y2 point.   |
                  | InfoArray[5] | Horizontal X3 point. |
                  | InfoArray[6] | Vertical Y3 point.   |
                  +-------------------------------------+

   Returns
         aInfoArray    Returns circle information passed by aInfoArray.
               +-------------------------------------------+
               | InfoArray[1] | Center X world coordinate. |
               | InfoArray[2] | Center Y world coordinate. |
               | InfoArray[3] | X radius.                  |
               | InfoArray[4] | Y radius.                  |
               | InfoArray[5] | Arc start (0 - 3600).      |
               | InfoArray[6] | Arc width (0 - 3600).      |
               +-------------------------------------------+

   Description
         CIRCLE_3PT() is used to convert three points into the proper form
         for OBJ_ADD().

   Examples

       Points := {10,10,20,20,15,30}
       OBJ_ADD(10,15,0,0,CIRCLE_3PT(Points),"Circle")