APL Wiki logo: Difference between revisions

Jump to navigation Jump to search
17 bytes added ,  19:21, 7 January 2020
Line 323: Line 323:
<source lang=apl>
<source lang=apl>
  Logo←{
  Logo←{
     r←⌊∘.+⍨0.5×4!⍨⍳5
     sizes←⌊∘.+⍨0.5×4!⍨⍳5
 
     offsets←0,+\1+⌈⌿2+/sizes
     offsets←0,+\1+⌈⌿2+/sizes
     indices←⍳⍴r
     indices←⍳⍴sizes
     xy←indices⌷⍤0 1⊢offsets
     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←,Circle⍤1⊢xy,r
     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>'

Navigation menu