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

; 2002/09/03
; - modified code to add the "#" character
; 2002/06/14
; - modified code generating "=" character
; - added escape sequences for new line and backspace
; 2002/02/18
; - added "=" character

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

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

	(
		( height		20.0 )
		( width			10.0 )
		( weight		2.0 )
		( text			"label" )
		( layer			"POLY0" )
		;( layer			"metal3" )
	) ; end of parameter list

	prog( 
		; declare variables
		( pcTechFile
			p_minWidth p_minSpacing
			x y chr d d2 escape )

		; load tech file rules
		pcTechFile = techGetTechFile( pcCellView )
		p_minWidth = techGetSpacingRule( pcTechFile "minWidth" layer )
		unless( p_minWidth  warn( strcat("minWidth rule for " layer " not set") ) )
		p_minSpacing = techGetSpacingRule( pcTechFile "minSpacing" layer )
		unless( p_minSpacing  warn( strcat("minSpacing rule for " layer " not set") ) )

		; check parameters
		weight = if( (weight<p_minWidth) p_minWidth weight )
		weight = if( (weight<p_minSpacing) p_minSpacing weight )
		text = upperCase( text )  ; we don't support lower case letters (yet?)

		; precalculations
		x = 0
		y = 0
		d = weight*0.5
		d2 = weight*0.25
		
		; print out characters
		for( lp 1 strlen(text)
			; clip letter from text
			chr = substring( text lp 1 )
			
			; is this character an escape sequence?
			if( escape then
			
				; get rid of intercharacter spacing that was added
				x = x - weight * 1.5
	
				if( (chr=="N") then
					x = 0
					y = y - height - weight*2
					)
				if( (chr=="B") then
					x = x - width - weight*1.5
				)
			
				; read next character normally
				escape = nil
			
			else
			
			; print out letter
			if( (chr=="A") then
				dbCreatePath( pcCellView layer list( x+d:y-height x+d:y-height*0.25 x+width*0.5-weight:y-d x+width*0.5+weight:y-d x+width-d:y-height*0.25 x+width-d:y-height ) weight )
				dbCreatePath( pcCellView layer list( x:y-height*0.5 x+width:y-height*0.5 ) weight )
				x = x + width
			)
			if( (chr=="B") then
				dbCreatePath( pcCellView layer list( x+d:y-height x+d:y-d x+width*0.75:y-d x+width-d:y-height*0.25 x+width*0.75:y-height*0.5 x+weight:y-height*0.5 ) weight )
				dbCreatePath( pcCellView layer list( x+weight:y-height*0.5 x+width*0.75:y-height*0.5 x+width-d:y-height*0.75 x+width*0.75:y-height+d x+weight:y-height+d ) weight )
				x = x + width
			)
			if( (chr=="C") then
				dbCreatePath( pcCellView layer list( x+width-d:y-height*0.25 x+width*0.75:y-d x+width*0.25:y-d x+d:y-height*0.25 x+d:y-height*0.75 x+width*0.25:y-height+d x+width*0.75:y-height+d x+width-d:y-height*0.75) weight )
				x = x + width
			)
			if( (chr=="D") then
				dbCreatePath( pcCellView layer list( x+d:y-height x+d:y-d x+width*0.5:y-d x+width-d:y-height*0.25 x+width-d:y-height*0.75 x+width*0.5:y-height+d x+weight:y-height+d) weight )
				x = x + width
			)
			if( (chr=="E") then
				dbCreatePath( pcCellView layer list( x+width:y-d x+d:y-d x+d:y-height+d x+width:y-height+d ) weight )
				dbCreatePath( pcCellView layer list( x:y-height*0.5 x+width*0.75:y-height*0.5 ) weight )
				x = x + width
			)
			if( (chr=="F") then
				dbCreatePath( pcCellView layer list( x+width:y-d x+d:y-d x+d:y-height ) weight )
				dbCreatePath( pcCellView layer list( x:y-height*0.5 x+width*0.75:y-height*0.5 ) weight )
				x = x + width
			)
			if( (chr=="H") then
				dbCreatePath( pcCellView layer list( x+d:y x+d:y-height ) weight )
				dbCreatePath( pcCellView layer list( x+width-d:y x+width-d:y-height ) weight )
				dbCreatePath( pcCellView layer list( x:y-height*0.5 x+width:y-height*0.5 ) weight )
				x = x + width 
			)
			if( (chr=="G") then
				dbCreatePath( pcCellView layer list( x+width:y-d x+width*0.25:y-d x+d:y-height*0.25 x+d:y-height*0.75 x+width*0.25:y-height+d x+width-d:y-height+d
					x+width-d:y-height*0.5 x+width*0.75:y-height*0.5) weight )
				x = x + width
			)
			if( (chr=="I") then
				dbCreatePath( pcCellView layer list( x:y-d x+weight*3:y-d ) weight )
				dbCreatePath( pcCellView layer list( x:y-height+d x+weight*3:y-height+d) weight )
				dbCreatePath( pcCellView layer list( x+weight*1.5:y x+weight*1.5:y-height) weight )
				x = x + weight*3
			)
			if( (chr=="J") then
				dbCreatePath( pcCellView layer list( x+width-d:y x+width-d:y-height*0.75 x+width*0.75:y-height+d x:y-height+d ) weight )
				x = x + width
			)
			if( (chr=="K") then
				dbCreatePath( pcCellView layer list( x+d:y x+d:y-height ) weight )
				;dbCreatePath( pcCellView layer list( x+width-d:y-d x+d:y-height*0.5 x+width-d:y-height+d ) weight )
				dbCreatePath( pcCellView layer list( x+width-d:y x+width-d:y-weight x+d:y-height*0.5+d x+d:y-height*0.5-d x+width-d:y-height+weight x+width-d:y-height) weight )
				x = x + width
			)
			if( (chr=="L") then
				dbCreatePath( pcCellView layer list( x+d:y x+d:y-height+d x+width:y-height+d ) weight )
				x = x + width
			)
			if( (chr=="M") then
				dbCreatePath( pcCellView layer list( x+d:y-height x+d:y-d x+weight:y-d x+width*0.5-d:y-height*0.5 x+width*0.5+d:y-height*0.5 x+width-weight:y-d x+width-d:y-d x+width-d:y-height ) weight )
				x = x + width
			)
			if( (chr=="N") then
				dbCreatePath( pcCellView layer list( x+d:y-height x+d:y-d x+weight:y-d x+width-weight:y-height+d x+width-d:y-height+d x+width-d:y ) weight )
				x = x + width
			)
			if( (chr=="O") then
				dbCreatePath( pcCellView layer list( x+width*0.5:y-d x+width*0.75:y-d x+width-d:y-height*0.25 x+width-d:y-height*0.75 x+width*0.75:y-height+d
					x+width*0.25:y-height+d x+d:y-height*0.75 x+d:y-height*0.25 x+width*0.25:y-d x+width*0.5:y-d ) weight )
				x = x + width
			)
			if( (chr=="P") then
				dbCreatePath( pcCellView layer list( x+d:y-height x+d:y-d x+width*0.75:y-d x+width-d:y-height*0.25 x+width*0.75:y-height*0.5 x+weight:y-height*0.5) weight )
				x = x + width
			)
			if( (chr=="Q") then
				dbCreatePath( pcCellView layer list( x+width*0.5:y-d x+width*0.75:y-d x+width-d:y-height*0.25 x+width-d:y-height*0.75 x+width*0.75:y-height+d
					x+width*0.25:y-height+d x+d:y-height*0.75 x+d:y-height*0.25 x+width*0.25:y-d x+width*0.5:y-d ) weight )
				dbCreatePath( pcCellView layer list( x+width-d:y-height x+width-d:y-height+weight x+width*0.5:y-height*0.5 ) weight )
				x = x + width
			)
			if( (chr=="R") then
				dbCreatePath( pcCellView layer list( x+d:y-height x+d:y-d x+width*0.75:y-d x+width-d:y-height*0.25 x+width*0.75:y-height*0.5 x+weight:y-height*0.5) weight )
				dbCreatePath( pcCellView layer list( x+weight:y-height*0.5 x+width*0.5:y-height*0.5 x+width-d:y-height*0.75 x+width-d:y-height ) weight )
				x = x + width
			)
			if( (chr=="S") then
				dbCreatePath( pcCellView layer list( x+width:y-d x+width*0.25:y-d x+d:y-height*0.25+weight*0.5 x+d:y-height*0.25-weight*0.5
					x+width*0.25:y-height*0.5 
					x+width*0.75:y-height*0.5
					x+width-d:y-height*0.75+weight*0.5 x+width-d:y-height*0.75-weight*0.5 
					x+width*0.75:y-height+d x:y-height+d) weight )
				x = x + width
			)
			if( (chr=="T") then
				dbCreatePath( pcCellView layer list( x:y-d x+width:y-d ) weight )
				dbCreatePath( pcCellView layer list( x+width*0.5:y-weight x+width*0.5:y-height) weight )
				x = x + width
			)
			if( (chr=="U") then
				dbCreatePath( pcCellView layer list( x+d:y x+d:y-height*0.75 x+width*0.25:y-height+d x+width*0.75:y-height+d x+width-d:y-height*0.75
					x+width-d:y) weight )
				x = x + width
			)
			if( (chr=="V") then
				dbCreatePath( pcCellView layer list( x+d:y x+d:y-weight x+width*0.5-d2:y-height+d x+width*0.5+d2:y-height+d x+width-d:y-weight x+width-d:y ) weight )
				x = x + width
			)
			if( (chr=="W") then
				dbCreatePath( pcCellView layer list( x+d:y x+d:y-weight x+width*0.25-d2:y-height+d x+width*0.25+d2:y-height+d
					x+width*0.5-d2:y-height*0.5 x+width*0.5+d2:y-height*0.5  
					x+width*0.75-d2:y-height+d x+width*0.75+d2:y-height+d  x+width-d:y-weight x+width-d:y) weight )
				x = x + width
			)
			if( (chr=="X") then
				dbCreatePath( pcCellView layer list( x+d:y x+d:y-weight x+width-d:y-height+weight x+width-d:y-height ) weight )
				dbCreatePath( pcCellView layer list( x+width-d:y x+width-d:y-weight x+d:y-height+weight x+d:y-height ) weight )
				x = x + width
			)
			if( (chr=="Y") then
				dbCreatePath( pcCellView layer list( x+d:y x+d:y-weight x+width*0.5:y-height*0.5 x+width*0.5:y-height ) weight )
				dbCreatePath( pcCellView layer list( x+width-d:y x+width-d:y-weight x+width*0.5:y-height*0.5 ) weight )
				x = x + width
			)
			if( (chr=="Z") then
				dbCreatePath( pcCellView layer list( x:y-d x+width-d:y-d x+width-d:y-weight x+d:y-height+weight x+d:y-height+d x+width:y-height+d) weight )
				x = x + width
			)
			
			if( (chr=="0") then
				dbCreatePath( pcCellView layer list( x+width*0.5:y-d x+width*0.75:y-d x+width-d:y-height*0.25 x+width-d:y-height*0.75 x+width*0.75:y-height+d
					x+width*0.25:y-height+d x+d:y-height*0.75 x+d:y-height*0.25 x+width*0.25:y-d x+width*0.5:y-d ) weight )
				dbCreateRect( pcCellView layer list( x+width*0.5-weight*0.5:y-height*0.5-weight*0.5 x+width*0.5+weight*0.5:y-height*0.5+weight*0.5 ) )
				x = x + width
			)
			if( (chr=="1") then
				dbCreatePath( pcCellView layer list( x:y-height+d x+weight*3:y-height+d) weight )
				dbCreatePolygon( pcCellView layer list( x+weight:y x:y-weight x:y-2*weight x+weight:y-2*weight ) )
				dbCreatePath( pcCellView layer list( x+weight*1.5:y x+weight*1.5:y-height ) weight )
				x = x + weight*3
			)
			if( (chr=="2") then
				dbCreatePath( pcCellView layer list( x+d:y-height*0.25 x+width*0.25:y-d x+width*0.75:y-d x+width-d:y-height*0.25
					x+width-d:y-height*0.5 x+width*0.25:y-height*0.5 x+d:y-height*0.75 x+d:y-height+d x+width:y-height+d )
					weight )
				x = x + width
			)
			if( (chr=="3") then
				dbCreatePath( pcCellView layer list( x+d:y-height*0.25 x+width*0.25:y-d x+width*0.75:y-d x+width-d:y-height*0.25
					x+width*0.75:y-height*0.5 x+width*0.25:y-height*0.5 ) weight )
				dbCreatePath( pcCellView layer list( x+width*0.25:y-height*0.5 x+width*0.75:y-height*0.5 x+width-d:y-height*0.75
					x+width*0.75:y-height+d x+width*0.25:y-height+d x+d:y-height*0.75 ) weight )
				x = x + width
			)
			if( (chr=="4") then
				dbCreatePath( pcCellView layer list( x+d+weight:y x+d+weight:y-weight x+d:y-height*0.25 x+d:y-height*0.5 x+width-weight:y-height*0.5) weight )
				dbCreatePath( pcCellView layer list( x+width-d:y x+width-d:y-height ) weight )
				x = x + width
			)
			if( (chr=="5") then
				dbCreatePath( pcCellView layer list( x+width:y-d x+d:y-d x+d:y-height*0.5 x+width*0.75:y-height*0.5 x+width-d:y-height*0.75
					x+width*0.75:y-height+d x:y-height+d ) weight )
				x = x + width
			)
			if( (chr=="6") then
				dbCreatePath( pcCellView layer list( x+width:y-d x+width*0.25:y-d x+d:y-height*0.25 x+d:y-height*0.75 x+width*0.25:y-height+d
					x+width*0.75:y-height+d x+width-d:y-height*0.75 x+width*0.75:y-height*0.5 x+weight:y-height*0.5 ) weight )
				x = x + width
			)
			if( (chr=="7") then
				dbCreatePath( pcCellView layer list( x:y-d x+width-d:y-d x+width-d:y-height*0.25 x+d:y-height+weight x+d:y-height ) weight )
				x = x + width
			)
			if( (chr=="8") then
				dbCreatePath( pcCellView layer list( x+width*0.5:y-d x+width*0.75:y-d x+width-d:y-height*0.25 x+width*0.75:y-height*0.5
					x+width*0.25:y-height*0.5 x+d:y-height*0.25 x+width*0.25:y-d x+width*0.5:y-d ) weight )
				dbCreatePath( pcCellView layer list( x+width*0.5:y-height*0.5 x+width*0.75:y-height*0.5 x+width-d:y-height*0.75 x+width*0.75:y-height+d
					x+width*0.25:y-height+d x+d:y-height*0.75 x+width*0.25:y-height*0.5 x+width*0.5:y-height*0.5) weight )
				x = x + width
			)
			if( (chr=="9") then
				dbCreatePath( pcCellView layer list( x+width-weight:y-height*0.5 x+width*0.25:y-height*0.5 x+d:y-height*0.25 x+width*0.25:y-d
					x+width-d:y-d x+width-d:y-height ) weight )
				x = x + width
			)
			
			if( (chr==".") then
				dbCreateRect( pcCellView layer list( x:y-height+weight x+weight:y-height ) )
				x = x + weight
			)
			if( (chr=="!") then
				dbCreatePath( pcCellView layer list( x+d:y x+d:y-height+weight*2 ) weight )
				dbCreateRect( pcCellView layer list( x:y-height+weight x+weight:y-height ) )
				x = x + weight
			)
			if( (chr=="-") then
				dbCreatePath( pcCellView layer list( x:y-height*0.5 x+width*0.75:y-height*0.5 ) weight )
				x = x + width * 0.75
			)
			if( (chr=="=") then
			        dbCreateRect( pcCellView layer list( x:y-height*0.33+d x+width:y-height*0.33-d ) )
			        dbCreateRect( pcCellView layer list( x:y-height*0.67+d x+width:y-height*0.67-d ) )
			        x = x + width
			)
			if( (chr==":") then
				dbCreateRect( pcCellView layer list( x:y-height*0.33+d x+weight:y-height*0.33-d ) )
				dbCreateRect( pcCellView layer list( x:y-height*0.67+d x+weight:y-height*0.67-d ) )
				x = x + weight
			)
			if( (chr==" ") then
				x = x + width * 0.75
			)
			if( (chr=="(") then
				dbCreatePath( pcCellView layer list( x+width*0.25+weight*0.75+d:y-d x+width*0.25+d:y-d x+d:y-height*0.25 x+d:y-height*0.75 x+width*0.25+d:y-height+d x+width*0.25+weight*0.75+d:y-height+d ) weight )
				x = x + width*0.25 + weight*0.75 + d
			)
			if( (chr==")") then
				dbCreatePath( pcCellView layer list( x:y-d x+weight*0.75:y-d x+width*0.25+weight*0.75:y-height*0.25 x+width*0.25+weight*0.75:y-height*0.75 x+weight*0.75:y-height+d x:y-height+d ) weight )
				x = x + width*0.25 + weight*0.75 + d
			)
			if( (chr=="<") then
				dbCreatePath( pcCellView layer list( x+width*0.5:y-d x+d:y-height*0.5 x+width*0.5:y-height+d ) weight )
				x = x + width*0.5 + d
			)
			if( (chr==">") then
				dbCreatePath( pcCellView layer list( x+d:y-d x+width*0.5:y-height*0.5 x+d:y-height+d ) weight )
				x = x + width*0.5 + d
			)
			if( (chr=="#") then
				dbCreatePath( pcCellView layer list( x+weight*1.5:y-height*0.5+weight*2.5 x+weight*1.5:y-height*0.5-weight*2.5 ) weight )
				dbCreatePath( pcCellView layer list( x+weight*3.5:y-height*0.5+weight*2.5 x+weight*3.5:y-height*0.5-weight*2.5 ) weight )
				dbCreatePath( pcCellView layer list( x:y-height*0.5+weight*1.5 x+weight*5:y-height*0.5+weight*1.5 ) weight )
				dbCreatePath( pcCellView layer list( x:y-height*0.5-weight*1.5 x+weight*5:y-height*0.5-weight*1.5 ) weight )
				x = x + weight * 5
			)
			if( (chr=="\n") then
				x = 0
				y = y + height + weight
			)
			if( (chr=="\\") then
				escape = t
			)
			
			; add intercharacter spacing
			x = x + weight*1.5
			
			) ; if( escape then ... else ... )

		)
		; set default instance name prefix
		dbReplaceProp( pcCellView "instNamePrefix" "string" "label" )
		; set version string
		dbReplaceProp( pcCellView "version" "string" "1.2.2" )
		; body SKILL code returns value t
		return(t)

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

) ; ; end of pcDefinePCell