Return to baseline.ps CVS log

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

Annotation of researchv10no/cmd/post.src/psfiles/baseline.ps, revision 1.1.1.1

1.1       root        1: %
                      2: % Stuff used to draw or set text along a baseline specified by parametric equations
                      3: % for x and y.
                      4: %
                      5: 
                      6: /left -1 def
                      7: /center 0 def
                      8: /right 1 def
                      9: 
                     10: /baselinedict 50 dict def
                     11: 
                     12: /newbaseline {
                     13:        baselinedict begin
                     14:                /g' exch bind def
                     15:                /f' exch bind def
                     16:                /g  exch bind def
                     17:                /f  exch bind def
                     18: 
                     19:                counttomark 2 eq {/hoffset exch def} if
                     20:                /res exch def
                     21: 
                     22:                /t 0 def
                     23:                /s 0 def
                     24:                /voffset false def
                     25:                cleartomark
                     26:        end
                     27: } bind def
                     28: 
                     29: /drawfunnytext {
                     30:        baselinedict begin
                     31:                /t exch def
                     32:                /mode exch def
                     33:                /str exch def
                     34: 
                     35:                mode left eq {
                     36:                        /leftstring emptystring def
                     37:                        /rightstring str def
                     38:                } if
                     39: 
                     40:                mode right eq {
                     41:                        /leftstring str reversestring def
                     42:                        /rightstring emptystring def
                     43:                } if
                     44: 
                     45:                mode center eq {
                     46:                        str splitstring
                     47:                        /rightstring exch def
                     48:                        /leftstring exch reversestring def
                     49:                } if
                     50: 
                     51:                gsave currentpoint translate leftstring left t baselineshow grestore
                     52:                gsave currentpoint translate rightstring right t baselineshow grestore
                     53: 
                     54:                /t 0 def
                     55:                /s 0 def
                     56:                /voffset false def
                     57:                cleartomark
                     58:        end
                     59: } bind def
                     60: 
                     61: /setfunnytext {
                     62:        baselinedict begin
                     63:                /vpos exch def
                     64:                /hpos exch def
                     65:                /str  exch def
                     66: 
                     67:                voffset vpos ne {
                     68:                        /voffset vpos def
                     69:                        /t 0 def
                     70:                        /s hoffset def
                     71:                } if
                     72: 
                     73:                gsave
                     74:                        hoffset voffset translate
                     75:                        0 0 moveto
                     76:                        /ds hpos s sub def
                     77:                        /dt ds t f' dup mul t g' dup mul add sqrt res mul div def
                     78:                        /s s ds add def
                     79:                        /t t dt add def
                     80:                        str right t baselineshow
                     81:                grestore
                     82:        end
                     83: } bind def
                     84: 
                     85: baselinedict begin
                     86: 
                     87: /f  {} bind def
                     88: /g  {pop 0} bind def
                     89: /f' {pop 1} bind def
                     90: /g' {pop 0} bind def
                     91: 
                     92: /s 0 def
                     93: /t 0 def
                     94: /res 72 def
                     95: 
                     96: /onecharstring ( ) def
                     97: /emptystring () def
                     98: 
                     99: /baselineshow {
                    100:        /t exch def
                    101:        /mode exch def
                    102:        /str exch def
                    103: 
                    104:        gsave
                    105:                t f res mul t g res mul translate
                    106:                0 0 moveto
                    107:                t g' t f' atan rotate
                    108:                {
                    109:                        mode right eq {pop} if
                    110:                        grestore gsave
                    111:                        onecharstring 0 3 -1 roll put onecharstring stringwidth pop
                    112:                        /ds exch mode mul def
                    113:                        /dt ds t f' dup mul t g' dup mul add sqrt res mul div def
                    114:                        /t t dt add def
                    115:                        /s s ds add def
                    116:                        t f res mul t g res mul translate
                    117:                        0 0 moveto
                    118:                        t g' t f' atan rotate
                    119:                        mode left eq {pop} if
                    120:                } str kshow
                    121:        grestore
                    122: } bind def
                    123: 
                    124: /reversestring {
                    125:        /str1 exch def
                    126: 
                    127:        /str2 str1 length string def
                    128:        /i 0 def
                    129:        /n str1 length 1 sub def
                    130: 
                    131:        {
                    132:                str1 n get str2 exch i exch put
                    133:                /i i 1 add def
                    134:                /n n 1 sub def
                    135:                n 0 lt {exit} if
                    136:        } loop
                    137:        str2
                    138: } bind def
                    139: 
                    140: /splitstring {
                    141:        /str1 exch def
                    142: 
                    143:        /len str1 stringwidth pop def
                    144:        /s 0 def
                    145:        /n 0 def
                    146:        str1 length {
                    147:                str1 n get onecharstring exch 0 exch put
                    148:                /s onecharstring stringwidth pop s add def
                    149:                s len 2 div ge {exit} if
                    150:                /n n 1 add def
                    151:        } repeat
                    152:        str1 0 n 1 add getinterval
                    153:        str1 n str1 length n sub getinterval
                    154: } bind def
                    155: 
                    156: end

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