| LA - 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 } d… | |
| 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 |