Issue with CCShiHierLayerOps

Hello All,

   I have been using a piece of community code to do hierarchical layer gen for a while. In general, the program works pretty well but there is one critical element that it has been failing me. The program will consistently give me ellipses that are not perfectly circular and are instead truncated into polygons. 

 My thoughts/testing:

• The problem arises whether or not the object has been flattened or not (so probably doesn't have to do with dbFlattenInst)
• The problem occurs regardless of which layer operation (mainly "AND" and "GROW BY" set to 0 were tested)
• The problem occurs when making the scratch/dummy cell in both "s" and "a" mode
• I tried testing to see if dbCopyFig would change the objType from ellipse to polygon and in general it did not have this effect. Maybe there is some condition we are triggering that is causing it to act this way?

RELEVENT CODE BELOW:

;-------------------------------------------------------------------------------------------------------------------------------------------------------------

 procedure(CCShierLayerOps(@key (cv geGetEditCellView())
layer1 layer2 outLayer op size (level 0) "dgggtgx")
let((newcv layer1Name layer2Name layerOp newInst newShapes)
when(and(cv equal(cv~>cellViewType "maskLayout"))
;; create a new scratch cell for intermediate operations
newcv = dbOpenCellViewByType(cv~>libName
symbolToString(gensym(cv~>cellName))
"layout"
"maskLayout" "s"
)
layer1Name = stringp(layer1)&&layer1 || pairp(layer1)&&car(layer1)
layer2Name = stringp(layer2)&&layer2 || pairp(layer2)&&car(layer2)
;; copy each shape & instance to the new scratch cell
;; NOTE: "textDisplays" will not be copied using this method
foreach(shape
setof(shp cv~>shapes shp~>objType!="textDisplay")
dbCopyFig(shape newcv)
)
;; when the hierarchy depth is greater than 0, copy the instances,
;; and then flatten each instance by the number of levels desired
;; Only perform the copy and flatten if level is greater than 0
when(level>0
foreach(inst cv~>instances
;; when the instance was copied, flatten the new instance
when(newInst=dbCopyFig(inst newcv)
dbFlattenInst(newInst level t nil t) ; was previously ....dbFlattenInst(newInst level t t t), but we don't care about pins
); when the instance is copied
); foreach
); when the hierarchy depth is > 0
;; create new shapes based on the interaction (AND in this
;; example) of shapes on certain layers ("metal1" and "poly1"
;; in this example) and store the list for the copy back
layerOp = case(op
("AND" 'dbLayerAnd)
("AND NOT" 'dbLayerAndNot)
("OR" 'dbLayerOr)
("XOR" 'dbLayerXor)
("GROW BY" 'dbLayerSize)
)
;; use "apply" to pass all the arguments to the appropraite
;; dbLayer function
newShapes = apply(layerOp list(newcv outLayer
setof(shape newcv~>shapes shape~>layerName == layer1Name)
;; if the size argument is non-nil use this for "grow by"
or(size setof(shape newcv~>shapes shape~>layerName == layer2Name)) )
)
;; copy back each new generated shape to the original layout
newShapes = foreach(mapcar shape newShapes dbCopyFig(shape cv))
;; close the scratch cellview
dbClose(newcv)
;; return the new shape list in the original cellview, this is
;; useful when this function is called directly (not via the UI)
newShapes
); when
); let
); procedure CCShierLayerOps

;-------------------------------------------------------------------------------------------------------------------------------------------------------------

   For those not familiar with the full piece of code follow the link below:

   How can I perform boolean or logical operations on layers across multiple hierarchy levels? (cadence.com)

Thank you,

Zack