Return to LA CVS log

Up to [Research Unix] / researchv10no / cmd / post.src / devpost / charlib

Annotation of researchv10no/cmd/post.src/devpost/charlib/LA, revision 1.1

1.1     ! root        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

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.