APL Wiki logo: Difference between revisions

Jump to navigation Jump to search
Line 358: Line 358:
     offsets←0,+\1+⌈⌿2+/sizes
     offsets←0,+\1+⌈⌿2+/sizes
     indices←⍳⍴sizes
     indices←⍳⍴sizes
     locs←(↑indices)⌷⍤0 1⊢offsets
     locs←,⍤0⍤0 1⍨offsets
     Attr←{' ',⍺,'=',1⌽'""','¯'⎕R'-'⍕⍵}
     Attr←{' ',⍺,'=',1⌽'""','¯'⎕R'-'⍕⍵}
     Circle←{⊂2⌽'/><circle',∊'cx' 'cy' 'r'Attr¨⍵}
     Circle←{⊂2⌽'/><circle',∊'cx' 'cy' 'r'Attr¨⍵}