4,509
edits
(→Code) |
|||
Line 323: | Line 323: | ||
<source lang=apl> | <source lang=apl> | ||
Logo←{ | Logo←{ | ||
sizes←⌊∘.+⍨0.5×4!⍨⍳5 | |||
offsets←0,+\1+⌈⌿2+/sizes | offsets←0,+\1+⌈⌿2+/sizes | ||
indices←⍳⍴sizes | |||
locs←(↑indices)⌷⍤0 1⊢offsets | |||
Attr←{' ',⍺,'=',1⌽'""','¯'⎕R'-'⍕⍵} | Attr←{' ',⍺,'=',1⌽'""','¯'⎕R'-'⍕⍵} | ||
Circle←{⊂2⌽'/><circle',∊'cx' 'cy' 'r'Attr¨⍵} | Circle←{⊂2⌽'/><circle',∊'cx' 'cy' 'r'Attr¨⍵} | ||
circles←, | circles←,Circle⍤1⊢locs,sizes | ||
dims←∊'width' 'height'Attr¨130 | dims←∊'width' 'height'Attr¨130 | ||
pad←2+⌈/0⌷sizes | pad←2+⌈/0⌷sizes | ||
Line 340: | Line 337: | ||
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>' |