Arc
The Arc function draws an elliptical arc.
Arc
nLeftRect, nTopRect, nRightRect, nBottomRect, nXStartArc, nYStartArc, nXEndArc, nYEndArc
Parameters
-
nLeftRect
-
Specifies the logical x-coordinate of the upper-left corner of the bounding rectangle.
-
nTopRect
-
Specifies the logical y-coordinate of the upper-left corner of the bounding rectangle.
-
nRightRect
-
Specifies the logical x-coordinate of the lower-right corner of the bounding rectangle.
-
nBottomRect
-
Specifies the logical y-coordinate of the lower-right corner of the bounding rectangle.
-
nXStartArc
-
Specifies the logical x-coordinate of the ending point of the radial line defining the starting point of the arc.
-
nYStartArc
-
Specifies the logical y-coordinate of the ending point of the radial line defining the starting point of the arc.
-
nXEndArc
-
Specifies the logical x-coordinate of the ending point of the radial line defining the ending point of the arc.
-
nYEndArc
-
Specifies the logical y-coordinate of the ending point of the radial line defining the ending point of the arc.
Remarks
The drawing direction is counterclockwise
Example
View result
<%@ Language=VBScript %>
<%
Response.ContentType="image/gif"
set obj=Server.CreateObject("shotgraph.image")
size=400
obj.CreateImage size,size,4
obj.SetColor 0,255,255,255
obj.SetColor 1,0,0,0
obj.SetColor 2,0,0,204
obj.SetColor 3,103,0,51
obj.SetBgColor 0
obj.FillRect 0,0,size-1,size-1
obj.SetDrawColor 2
obj.Arc 0,0,size-1,size-1,0,0,size-1,0
obj.CreatePen "PS_SOLID",4,3
obj.Arc 10,10,size-11,size-11,size-1,size-1,0,size-1
obj.CreatePen "PS_SOLID",4,1
obj.Arc 20,20,size-21,size-21,0,size-1,0,0
obj.Arc 40,40,size-41,size-41,0,0,0,size-1
img=obj.GifImage(-1,1,"")
Response.BinaryWrite(img)
%>