;================================================================================
; Robert Johnstone
; Simon Fraser University
;
; Copyright 2000,2002 Robert W. Johnstone
;--------------------------------------------------------------------------------

; 2002/02/25
; - fixed variable bug
; 2000/10/07
; - creation date

unless( boundp( 'admLibraryName )
	warn( "Setting the destination library to default value of ADM" )
	admLibraryName = "ADM"
)

pcDefinePCell(
	list( ddGetObj(admLibraryName) "guckel_ring_2" "layout"
	) ; end of list for first argument

	(
		( radius		20.0 )
		( width			0.0 )
		( beam			0.0 )
		( anchor		0.0 )
		( include_poly0		t )
	) ; end of parameter list

	prog( 
		let( pcTechFile 
		  p0p_enclosure p_nomSpacing p_nomWidth pa_enclosure a_nomWidth
		  tmp x1 x2 y1 y2 player alayer )

		; initialize layers
		player = "POLY2"
		alayer = "ANCHOR2"

		; load tech file rules
		pcTechFile = techGetTechFile( pcCellView )
		p0p_enclosure = techGetOrderedSpacingRule( pcTechFile "minEnclosure" "POLY0" player )
		if( (p0p_enclosure==nil) then warn( strcat( "minEnclosure rule for POLY0->" player " not set" ) ) )
		p_nomSpacing = techGetSpacingRule( pcTechFile "nomSpacing" player )
		if( (p_nomSpacing==nil) then warn("nomSpacing rule for " + player + " not set") )
		p_nomWidth = techGetSpacingRule( pcTechFile "nomWidth" player )
		if( (p_nomWidth==nil) then warn("nomWidth rule for " + player + " not set") )
		pa_enclosure = techGetOrderedSpacingRule( pcTechFile "minEnclosure" player alayer )
		if( (pa_enclosure==nil) then warn("minEnclosure rule for " + player + "->" + alayer + " not set.") )
		a_nomWidth = techGetSpacingRule( pcTechFile "nomWidth" alayer )
		if( (a_nomWidth==nil) then warn("nomWidth rule for " + alayer + " not set") )

		; check parameters
		width = if( (width<p_nomWidth) p_nomWidth width )
		beam = if( (beam<p_nomWidth) p_nomWidth beam )
		anchor = if( (anchor<a_nomWidth) a_nomWidth anchor )

		; create ring
		dbCreateDonut( pcCellView player 0:0 radius+width*0.5 radius-width*0.5 )
		tmp = sqrt( radius*radius - 0.25 * beam * beam )
		dbCreatePolygon( pcCellView player list( -beam*0.5:tmp 0:radius beam*0.5:tmp beam*0.5:-tmp 0:-radius -beam*0.5:-tmp ))
		
		; and create anchors
		tmp = sqrt( radius*radius - 0.25 * width * width )
		x1 = radius + width*0.5 + p_nomSpacing
		x2 = x1 + a_nomWidth + 2*pa_enclosure
		y1 = width*0.5
		y2 = ( a_nomWidth + 2*pa_enclosure ) * 0.5
		dbCreatePolygon( pcCellView player list( tmp:-width*0.5 radius:0 tmp:width*0.5 x1:y1 x1:y2 x2:y2 x2:-y2 x1:-y2 x1:-y1 ) )
		dbCreatePolygon( pcCellView player list( -tmp:-width*0.5 -radius:0 -tmp:width*0.5 -x1:y1 -x1:y2 -x2:y2 -x2:-y2 -x1:-y2 -x1:-y1 ) )
		x1 = x1 + pa_enclosure
		x2 = x2 - pa_enclosure
		dbCreateRect( pcCellView alayer list( x1:-a_nomWidth*0.5 x2:a_nomWidth*0.5 ) )
		dbCreateRect( pcCellView alayer list( -x1:-a_nomWidth*0.5 -x2:a_nomWidth*0.5 ) )
		
		; create POLY0 ground plane
		if( (include_poly0==t) then
			tmp = radius + width*0.5 + p0p_enclosure*1.1
			dbCreateEllipse( pcCellView "POLY0" list( -tmp:-tmp tmp:tmp ) )
			x2 = x2 + pa_enclosure + p0p_enclosure
			y2 = y2 + p0p_enclosure
			dbCreateRect( pcCellView "POLY0" list( -x2:-y2 x2:y2 ) )
		)
		
		; set default instance name prefix
		dbReplaceProp( pcCellView "instNamePrefix" "string" "test" )
		; set version string
		dbReplaceProp( pcCellView "version" "string" "1.1.1" )
		; body SKILL code returns value t
		return(t)

	) ; end of body-of-SKILL-code prog

) ; ; end of pcDefinePCell