createPinLPP.il

;; copyleft ebecheto
;; see also createInstPins in  pinAddText.il
;; /!\ cv is global ???§§§!!!!!! TOCHANGE  :!
;ineed('createPinLPP t )
defun(createPinLPP (@optional (name "GND")(bBox list(0:0 0.2:0.2))(lpp '("M1" "pin"))(dir "inputOutput")(rot "R0")(accessDir '("top" "bottom" "left" "right")))
let((pin term disp)
;;printf("bBox:%L\n" bBox)
pin=leCreatePin(cv lpp "rectangle" bBox name dir accessDir)
term=pin~>term
disp=dbCreateTextDisplay(term term lpp t centerBox(bBox) "centerLeft" rot "roman" 0.5)
disp~>isNameVisible=nil ;makes the 'name=' invisible
disp~>parent=pin~>fig   ;makes the text moving with the rect pin
pin))



; createPinLPP(name bBox lpp dir)
; createPinLPP( "GND" list(0:0 0.2:0.2) '("M1" "pin"))
; createPinLPP( "GND" list(0:0 0.2:0.2) '("TOP_M" "drawing"))
; textDisplay oki for IBM but not for AMS : label !