APL Wiki logo: Difference between revisions
Jump to navigation
Jump to search
(→Code) |
|||
Line 359: | Line 359: | ||
indices←⍳⍴sizes | indices←⍳⍴sizes | ||
locs←,⍤0⍤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¨⍵} | ||
circles←,Circle⍤1⊢locs,sizes | circles←,Circle⍤1⊢locs,sizes | ||
dims←∊'width' 'height'Attr¨130 | dims←∊'width' 'height'Attr¨130 | ||
pad←2+⌈/0⌷sizes | pad←2+⌈/0⌷sizes | ||
first←1 1↑locs | first←1 1↑locs | ||
Line 368: | Line 370: | ||
begin←first-pad | begin←first-pad | ||
size←(last-first)+2×pad | size←(last-first)+2×pad | ||
viewBox←'viewBox'Attr,begin,size | viewBox←'viewBox'Attr,begin,size | ||
svg←⊂'<svg',dims,viewBox,' xmlns="http://www.w3.org/2000/svg">' | svg←⊂'<svg',dims,viewBox,' xmlns="http://www.w3.org/2000/svg">' | ||
svg,←circles,⊂'</svg>' | svg,←circles,⊂'</svg>' | ||
svg ⎕NPUT ⍵ | svg ⎕NPUT ⍵ | ||
} | } |