'
'----------------------------
'--- Creation information ---
'----------------------------
'
'Name: balcir.ave
'Version: 1.0
'Date: 01/11/97
'Author: Ferdi Hellweger
'        Center for Research in Water Resources
'        The University of Texas at Austin
'        ferdi@crwr.utexas.edu
'
'---------------------------
'--- Purpose/Description ---
'---------------------------
'
'This plots a circle.
'
'----------------------
'--- Get parameters ---
'----------------------
'
cx = self.get(0)
cy = self.get(1)
wr  = self.get(2)
wc = self.get(3)
vgraphics = self.get(4)
'

apnt = point.make((cx - wr), (cy + wr))
bpnt = point.make((cx + wr), (cy + wr))
cpnt = point.make((cx + wr), (cy - wr))
dpnt = point.make((cx - wr), (cy - wr))

aPolyLine = PolyLine.Make({{apnt,bpnt},{bpnt,cpnt},{cpnt,dpnt}, {dpnt, apnt}})

qvline = GraphicShape.Make(aPolyLine)
'
'------------------------
'--- Set vector color ---
'------------------------
'
qvsym=qvline.getsymbol
qvsym.setcolor(wc)
'
'-------------------
'--- Draw vector ---
'-------------------
'
vgraphics.add(qvline)

'
'-----------
'--- End ---
'-----------
'