Support vias in topologies

examples/via-structures/diff-via-structure.stanza

@@ -56,6 +56,3 @@ set-main-module(top-level)
 
 ; View the results
 view-board()
-
-
-

examples/via-structures/se-via-structure.stanza

@@ -6,7 +6,6 @@ defpackage jsl/examples/via-structures/se-via-structures:
 
   import jsl
   import jsl/examples/protocols/common/example-board
-  import jsl/examples/protocols/common/example-components
 
 
 pcb-module top-level :

src/via-structures.stanza

@@ -10,6 +10,8 @@ defpackage jsl/via-structures:
   import jsl/ensure
   import jsl/bundles
   import jsl/symbols/arrows
+  import jsl/symbols
+  import jsl/si
 
 var debug-mode = false
 val debug-layer = CustomLayer("vs-debug", Top)
@@ -425,10 +427,15 @@ defmethod make-via-structure (v:SingleViaStructure -- pose:Pose = DEF_VS_LOC) ->
 
     port COMMON
 
+    ; Wrapper instance
+    inst via-pin : topo-via-pin(`p)
+    place(via-pin) at pose * loc(0.0, 0.0) on Top
+    geom(via-pin.p) :
+      via(via-def(v)) at pose * Point(0.0, 0.0)
+
     net cage (COMMON)
 
-    net via-net (sig-in, sig-out)
-    topology-segment(sig-in, sig-out)
+    topo-net(sig-in => via-pin.p => sig-out)
 
     supports pass-through:
       pass-through.A => sig-in
@@ -437,9 +444,6 @@ defmethod make-via-structure (v:SingleViaStructure -- pose:Pose = DEF_VS_LOC) ->
     for cv in ground-cages(v) do:
       make-ground-cage(cv, cage, pose = pose)
 
-    geom(via-net):
-      via(via-def(v)) at pose * Point(0.0, 0.0)
-
     make-anti-pads(v, pose = pose)
     make-insertion-points(v, pose = pose)
 
@@ -549,10 +553,28 @@ defmethod make-via-structure (v:DifferentialViaStructure -- pose:Pose = DEF_VS_L
 
     port COMMON
 
-    net via-net-P (sig-in.P, sig-out.P)
-    topology-segment(sig-in.P, sig-out.P)
-    net via-net-N (sig-in.N, sig-out.N)
-    topology-segment(sig-in.N, sig-out.N)
+    val [via-def-P, via-def-N] = match(via-def(v)):
+      (obj1:Via): [obj1, obj1]
+      (obj2:[Via, Via]): obj2
+    val via-pitch = pitch(v) / 2.0
+
+    ; First wrapper instance
+    inst via-pin-P : topo-via-pin(`p)
+    place(via-pin-P) at pose * loc(via-pitch, 0.0) on Top
+    geom(via-pin-P.p) :
+      via(via-def-P) at pose * Point(via-pitch, 0.0)
+
+    ; Second wrapper instance
+    inst via-pin-N : topo-via-pin(`n)
+    place(via-pin-N) at pose * loc((- via-pitch), 0.0) on Top
+    geom(via-pin-N.n) :
+      via(via-def-N) at pose * Point((- via-pitch), 0.0)
+
+    ; Connect first wrapper instance
+    topo-net(sig-in.P => via-pin-P.p => sig-out.P)
+
+    ; Connect second wrapper instance
+    topo-net(sig-in.N => via-pin-N.n => sig-out.N)
 
     net cage (COMMON)
 
@@ -565,20 +587,41 @@ defmethod make-via-structure (v:DifferentialViaStructure -- pose:Pose = DEF_VS_L
     for cv in ground-cages(v) do:
       make-ground-cage(cv, cage, pose = pose)
 
-    val vp = pitch(v) / 2.0
+    make-anti-pads(v, pose = pose)
+    make-insertion-points(v, pose = pose)
 
-    val [vd-P, vd-N] = match(via-def(v)):
-      (obj1:Via): [obj1, obj1]
-      (obj2:[Via, Via]): obj2
 
-    geom(via-net-P):
-      via(vd-P) at pose * Point(vp, 0.0)
+; Private topology helpers:
+; In order for vias to be used in topologies we need to instantiate phantom pins
+
+defn topo-via-sym (name:Symbol) :
+  new SymbolDefn :
+    defmethod name (this) : "Via Pin"
+    defmethod build-pins (this, sn:SymbolNode) :
+      add-pin(sn, Ref(name), Point(0.0, 0.0), name = "pin-1")
+    defmethod build-artwork (this, sn:SymbolNode) :
+      add-glyph(sn, Circle(-0.5, 0., 0.25))
+    defmethod build-params (this, sn:SymbolNode) :
+      false
+
+pcb-pad topo-via-pad :
+  type  = SMD
+  name  = "'Empty' Pad"
+  shape = EmptyShape()
+
+pcb-landpattern topo-via-landpattern :
+  pad p : topo-via-pad at loc(0.0, 0.0)
+
+; The wrapper component
+public pcb-component topo-via-pin (name:Symbol) :
+  description = "Wrapper object for injecting via in topology"
+  reference-prefix = "V"
+  val p = make-port(name)
+  val lp = topo-via-landpattern
+  landpattern = lp(p => lp.p)
+  assign-symbol(create-symbol(topo-via-sym(name)))
 
-    geom(via-net-N):
-      via(vd-N) at pose * Point((- vp), 0.0)
 
-    make-anti-pads(v, pose = pose)
-    make-insertion-points(v, pose = pose)
 
 
 doc: \<DOC>