9base

revived minimalist port of Plan 9 userland to Unix
git clone git://git.suckless.org/9base
Log | Files | Refs | README | LICENSE

LA (981B)


      1 /LOGO-dict-mm dup where not
      2 { dup 64 dict def currentdict } if
      3 exch get
      4 begin
      5 /l {  lineto } def
      6 /rl {  rlineto } def
      7 /m {  moveto } def
      8 /rm {  rmoveto } def
      9 /C { closepath } def
     10 /c {  curveto } def
     11 /rc {  rcurveto } def
     12 /T { m 0 29 rl -9.5 0 rl 0 7 rl 29 0 rl 0 -7 rl -9.5 0 rl 0 -29 rl C } def
     13 /ATT {
     14 newpath
     15 1 36 div dup scale
     16 0  0 m  12 36 rl  8 0 rl -11 -36 rl C
     17 25  0 m -11 36 rl  8 0 rl  12 -36 rl C
     18 10  7 m   0  7 rl 14 0 rl   0  -7 rl C
     19 36  0 T
     20 80  6 m -3 0 -5 1.2 -6 2 rc -12 10 rl -2.4 2 -2.7 6 0 6 rc
     21 1 0 2 -1 2 -2 rc 0 -4 rl 7 0 rl 0 4 rl
     22 0 5 -3 7 -9 7 rc -6 0 -9 -3 -9 -7 rc
     23 0 -2 0 -3.6 2 -6 rc 12 -10 rl 6 -5 10 -6 13 -6 rc C
     24 71 18 m 0 -6 rl 0 -5 -3 -7 -7 -7 rc -3 0 -5 2 -5 4 rc 0 1 0 3 2 4 rc
     25 -4 5 rl -4 -2 -6 -6 -6 -9 rc 0 -7 6 -10 13 -10 rc
     26 9 0 14 6 14 11 rc 0 8 rl C
     27 82  0 T
     28 36 dup scale
     29 } def
     30 end
     31 /build_LA {
     32 pop
     33 LOGO-dict-mm begin
     34 gsave
     35 currentpoint translate
     36 size 2.56 div dup scale		% was size 2.75 div dup scale
     37 .02 0 translate
     38 ATT fill
     39 grestore
     40 end
     41 } def