;================================================================================
; Robert Johnstone
; Simon Fraser University
;
; Last Modified:  2001/01/08
;
; Copyright 2000 Robert W. Johnstone
;--------------------------------------------------------------------------------

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

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

	(
		( length		100.0 )
		( shuttle_length	50.0 )
		( shuttle_width 	12.0 )
		( truss_width		5.0 )
		( yoke_width		5.0 )
		( anchor_width		0.0 )
		( anchor_length		0.0 )
		( folds			2 )
		( dimples		3 )
	) ; end of parameter list

	prog( 
		let( beam_sep )
	
		; load tech file rules
		pcTechFile = techGetTechFile( pcCellView )
		p1_minWidth = techGetSpacingRule( pcTechFile "minWidth" "POLY1" )
		if( (p1_minWidth==nil) then warn("minWidth rule for POLY1 not set") )
		p1_nomSpacing = techGetSpacingRule( pcTechFile "nomSpacing" "POLY1" )
		if( (p1_nomSpacing==nil) then warn("nomSpacing rule for POLY1 not set") )
		p1_nomWidth = techGetSpacingRule( pcTechFile "nomWidth" "POLY1" )
		if( (p1_nomWidth==nil) then warn("nomWidth rule for POLY1 not set") )
		p1a1_enclosure = techGetOrderedSpacingRule( pcTechFile "minEnclosure" "POLY1" "ANCHOR1" )
		if( (p1a1_enclosure==nil) then warn("minEnclosure rule for POLY1->ANCHOR1 not set") )
		p1d_enclosure = techGetOrderedSpacingRule( pcTechFile "minEnclosure" "POLY1" "DIMPLE" )
		if( (p1d_enclosure==nil) then warn("minEnclosure rule for POLY1->DIMPLE not set") )
		a1_nomWidth = techGetSpacingRule( pcTechFile "nomWidth" "ANCHOR1" )
		if( (a1_nomWidth==nil) then warn("nomWidth rule for ANCHOR1 not set") )
		d_nomWidth = techGetSpacingRule( pcTechFile "nomWidth" "DIMPLE" )
		if( (d_nomWidth==nil) then warn("nomWidth rule for DIMPLE not set") )

		; check parameters
		anchor_width = if( (anchor_width<2*p1a1_enclosure+a1_nomWidth) 2*p1a1_enclosure+a1_nomWidth anchor_width )
		anchor_length = if( (anchor_length<2*p1a1_enclosure+a1_nomWidth) 2*p1a1_enclosure+a1_nomWidth anchor_length )
		dimples = if( (dimples<2) 2 dimples )
		folds = if( (folds<1) 1 folds )
		shuttle_width = if( (shuttle_width<p1_nomWidth) p1_nomWidth shuttle_width )
		shuttle_width = if( (shuttle_width<p1_minWidth*2) p1_minWidth*2 shuttle_width )
		shuttle_width = if( (dimples>0 && shuttle_width<d_nomWidth+2*p1d_enclosure) d_nomWidth+2*p1d_enclosure shuttle_width )
		truss_width = if( (truss_width<p1_nomWidth) p1_nomWidth truss_width )
		truss_width = if( (truss_width<p1_minWidth*2) p1_minWidth*2 truss_width )
		truss_width = if( (dimples>0 && truss_width<d_nomWidth+2*p1d_enclosure) d_nomWidth+2*p1d_enclosure truss_width )

		; calculate some values
		beam_sep = (shuttle_length - p1_minWidth ) / ( folds*4 - 1 )
		if( (beam_sep+p1_minWidth<anchor_length) then
			; make sure that there is room enough for the anchor
			beam_sep = ( shuttle_length - p1_minWidth - anchor_length + p1_minWidth ) / ( folds*4 - 2 )
		)

		; build shuttle
		dbCreateRect( pcCellView "POLY1" list( -shuttle_width*0.5:-shuttle_length*0.5 shuttle_width*0.5:shuttle_length*0.5 ) )
		; add dimples
		for( lp 0 dimples-1
			tmpx =  lp * (shuttle_length - 2*p1d_enclosure - d_nomWidth) / (dimples-1)
			tmpx = tmpx - shuttle_length*0.5 + p1d_enclosure
			dbCreateRect( pcCellView "DIMPLE" list( -d_nomWidth*0.5:tmpx d_nomWidth*0.5:tmpx+d_nomWidth ) )
		)
		
		for( lp 0 folds-2
			; inside trusses
			tmpx1 = lp * ( truss_width + p1_nomSpacing) + p1_nomSpacing + shuttle_width*0.5
			tmpx2 = tmpx1 + truss_width
			tmpy1 = shuttle_length*0.5 - (lp*2+1) * beam_sep
			dbCreateRect( pcCellView "POLY1" list( tmpx1:tmpy1 tmpx2:-tmpy1 ) )
			dbCreateRect( pcCellView "POLY1" list( -tmpx1:tmpy1 -tmpx2:-tmpy1 ) )
			; outside trusses
			tmpx3 = shuttle_width*0.5 + p1_nomSpacing + (folds-1)*(truss_width+p1_nomSpacing) + anchor_width + length
			tmpx3 = tmpx3 + (folds-lp-1) * ( truss_width + p1_nomSpacing )
			tmpx4 = tmpx3 + truss_width
			tmpy2 = shuttle_length * 0.5 - (lp*2) * beam_sep
			dbCreateRect( pcCellView "POLY1" list( tmpx3:tmpy2 tmpx4:-tmpy2 ) )
			dbCreateRect( pcCellView "POLY1" list( -tmpx3:tmpy2 -tmpx4:-tmpy2 ) )
			; folding beams
			dbCreateRect( pcCellView "POLY1" list( tmpx2:tmpy1 tmpx3:tmpy1-p1_minWidth ) )
			dbCreateRect( pcCellView "POLY1" list( tmpx2-truss_width-p1_nomSpacing:tmpy2 tmpx3:tmpy2-p1_minWidth ) )
			dbCreateRect( pcCellView "POLY1" list( -tmpx2:tmpy1 -tmpx3:tmpy1-p1_minWidth ) )
			dbCreateRect( pcCellView "POLY1" list( -tmpx2+truss_width+p1_nomSpacing:tmpy2 -tmpx3:tmpy2-p1_minWidth ) )
			dbCreateRect( pcCellView "POLY1" list( tmpx2:-tmpy1 tmpx3:-tmpy1+p1_minWidth ) )
			dbCreateRect( pcCellView "POLY1" list( tmpx2-truss_width-p1_nomSpacing:-tmpy2 tmpx3:-tmpy2+p1_minWidth ) )
			dbCreateRect( pcCellView "POLY1" list( -tmpx2:-tmpy1 -tmpx3:-tmpy1+p1_minWidth ) )
			dbCreateRect( pcCellView "POLY1" list( -tmpx2+truss_width+p1_nomSpacing:-tmpy2 -tmpx3:-tmpy2+p1_minWidth ) )

			; add dimples
			tmpx1 = (tmpx1+tmpx2)*0.5 - d_nomWidth*0.5
			tmpx2 = (tmpx3+tmpx4)*0.5 - d_nomWidth*0.5
			for( lp2 0 dimples-1
				tmpy =  lp2 * (2*tmpy1 - 2*p1d_enclosure - d_nomWidth) / (dimples-1)
				tmpy = tmpy - tmpy1 + p1d_enclosure
				dbCreateRect( pcCellView "DIMPLE" list( tmpx1:tmpy tmpx1+d_nomWidth:tmpy+d_nomWidth ) )
				dbCreateRect( pcCellView "DIMPLE" list( -tmpx1:tmpy -tmpx1-d_nomWidth:tmpy+d_nomWidth ) )
				tmpy =  lp2 * (2*tmpy2 - 2*p1d_enclosure - d_nomWidth) / (dimples-1)
				tmpy = tmpy - tmpy2 + p1d_enclosure
				dbCreateRect( pcCellView "DIMPLE" list( tmpx2:tmpy tmpx2+d_nomWidth:tmpy+d_nomWidth ) )
				dbCreateRect( pcCellView "DIMPLE" list( -tmpx2:tmpy -tmpx2-d_nomWidth:tmpy+d_nomWidth ) )
			)
		) 

		; last fold
		tmpx1 = (folds-1) * ( truss_width + p1_nomSpacing) + p1_nomSpacing + shuttle_width*0.5
		tmpx2 = tmpx1 + anchor_width
		tmpy1 = shuttle_length*0.5 - (folds*2-1) * beam_sep
		dbCreateRect( pcCellView "POLY1" list( tmpx1:tmpy1 tmpx2:-tmpy1 ) )
		dbCreateRect( pcCellView "POLY1" list( -tmpx1:tmpy1 -tmpx2:-tmpy1 ) ) 
		dbCreateRect( pcCellView "ANCHOR1" list( tmpx1+p1a1_enclosure:tmpy1-p1a1_enclosure tmpx2-p1a1_enclosure:-tmpy1+p1a1_enclosure) )
		dbCreateRect( pcCellView "ANCHOR1" list( -tmpx1-p1a1_enclosure:tmpy1-p1a1_enclosure -tmpx2+p1a1_enclosure:-tmpy1+p1a1_enclosure) )
		tmpx3 = shuttle_width*0.5 + p1_nomSpacing + (folds-1)*(truss_width+p1_nomSpacing) + anchor_width + length
		tmpx4 = tmpx3 + truss_width
		tmpy2 = shuttle_length*0.5 - (folds*2-2) * beam_sep
		dbCreateRect( pcCellView "POLY1" list( tmpx3:tmpy2 tmpx4:-tmpy2 ) )
		dbCreateRect( pcCellView "POLY1" list( -tmpx3:tmpy2 -tmpx4:-tmpy2 ) )
		; folding beams
		dbCreateRect( pcCellView "POLY1" list( tmpx2:tmpy1 tmpx3:tmpy1-p1_minWidth ) )
		dbCreateRect( pcCellView "POLY1" list( tmpx2-anchor_width-p1_nomSpacing:tmpy2 tmpx3:tmpy2-p1_minWidth ) )
		dbCreateRect( pcCellView "POLY1" list( -tmpx2:tmpy1 -tmpx3:tmpy1-p1_minWidth ) )
		dbCreateRect( pcCellView "POLY1" list( -tmpx2+anchor_width+p1_nomSpacing:tmpy2 -tmpx3:tmpy2-p1_minWidth ) )
		dbCreateRect( pcCellView "POLY1" list( tmpx2:-tmpy1 tmpx3:-tmpy1+p1_minWidth ) )
		dbCreateRect( pcCellView "POLY1" list( tmpx2-anchor_width-p1_nomSpacing:-tmpy2 tmpx3:-tmpy2+p1_minWidth ) )
		dbCreateRect( pcCellView "POLY1" list( -tmpx2:-tmpy1 -tmpx3:-tmpy1+p1_minWidth ) )
		dbCreateRect( pcCellView "POLY1" list( -tmpx2+anchor_width+p1_nomSpacing:-tmpy2 -tmpx3:-tmpy2+p1_minWidth ) )
		tmpx1 = (tmpx1+tmpx2)*0.5 - d_nomWidth*0.5
		tmpx2 = (tmpx3+tmpx4)*0.5 - d_nomWidth*0.5
		for( lp2 0 dimples-1
			tmpy =  lp2 * (2*tmpy1 - 2*p1d_enclosure - d_nomWidth) / (dimples-1)
			tmpy = tmpy - tmpy1 + p1d_enclosure
			;dbCreateRect( pcCellView "DIMPLE" list( tmpx1:tmpy tmpx1+d_nomWidth:tmpy+d_nomWidth ) )
			;dbCreateRect( pcCellView "DIMPLE" list( -tmpx1:tmpy -tmpx1-d_nomWidth:tmpy+d_nomWidth ) )
			tmpy =  lp2 * (2*tmpy2 - 2*p1d_enclosure - d_nomWidth) / (dimples-1)
			tmpy = tmpy - tmpy2 + p1d_enclosure
			dbCreateRect( pcCellView "DIMPLE" list( tmpx2:tmpy tmpx2+d_nomWidth:tmpy+d_nomWidth ) )
			dbCreateRect( pcCellView "DIMPLE" list( -tmpx2:tmpy -tmpx2-d_nomWidth:tmpy+d_nomWidth ) )
		)

		; Create the instNamePrefix property
		dbReplaceProp( pcCellView "instNamePrefix" "string" "suspension" )
		; set version string
		dbReplaceProp( pcCellView "version" "string" "1.0.1" )
		; body SKILL code returns value t
		return(t)

	)
)