Return to CircularText.eps CVS log

Up to [NeXTSTEP 3.3 examples] / Examples / PostScript

Annotation of Examples/PostScript/CircularText.eps, revision 1.1.1.1

1.1       root        1: %!PS-Adobe-2.0
                      2: %%Title: Blue Book Program 10, on page 167
                      3: %%Creator: Adobe Systems Incorporated 
                      4: %%CreationDate: Thu Dec 28 13:14:59 PST 1989
                      5: %%Pages: 0 1
                      6: %%BoundingBox: 0 0 320 320
                      7: %%DocumentFonts: Times-Bold
                      8: %%EndComments
                      9: 
                     10: /outsidecircletext
                     11:   { circtextdict begin
                     12:          /radius exch def
                     13:          /centerangle exch def
                     14:          /ptsize exch def
                     15:          /str exch def
                     16:          /xradius radius ptsize 4 div add def
                     17: 
                     18:          gsave
                     19:            centerangle str findhalfangle add rotate
                     20:            str
                     21:                  { /charcode exch def
                     22:                    ( ) dup 0 charcode put outsideplacechar
                     23:                  } forall
                     24:          grestore
                     25:        end
                     26:   } def
                     27:   
                     28: /insidecircletext
                     29:   { circtextdict begin
                     30:          /radius exch def  /centerangle exch def
                     31:          /ptsize exch def  /str exch def
                     32:          
                     33:          /xradius radius ptsize 3 div sub def
                     34:          gsave
                     35:            centerangle str findhalfangle sub rotate
                     36:            str
                     37:                  { /charcode exch def
                     38:                    ( ) dup 0 charcode put insideplacechar
                     39:                  } forall
                     40:          grestore
                     41:        end
                     42:   } def
                     43:   
                     44: /circtextdict 16 dict def
                     45: circtextdict begin
                     46:   /findhalfangle
                     47:        { stringwidth pop 2 div
                     48:          2 xradius mul pi mul div 360 mul
                     49:        } def
                     50:        
                     51: /outsideplacechar
                     52:   { /char exch def
                     53:        /halfangle char findhalfangle def
                     54:        gsave
                     55:          halfangle neg rotate
                     56:          radius 0 translate
                     57:          -90 rotate
                     58:          char stringwidth pop 2 div neg 0 moveto
                     59:          char show
                     60:        grestore
                     61:        halfangle 2 mul neg rotate
                     62:   } def
                     63:   
                     64: /insideplacechar
                     65:   { /char exch def
                     66:        /halfangle char findhalfangle def
                     67:        gsave
                     68:          halfangle rotate
                     69:          radius 0 translate
                     70:          90 rotate
                     71:          char stringwidth pop 2 div neg 0 moveto
                     72:          char show
                     73:        grestore
                     74:        halfangle 2 mul rotate
                     75:   } def
                     76:   
                     77: /pi 3.1415923 def
                     78: end
                     79: 
                     80: /Times-Bold findfont 22 scalefont setfont
                     81: 
                     82: 160 140 translate
                     83: 
                     84: (Symphony No. 9 (The Choral Symphony))
                     85:   22 90 140 outsidecircletext
                     86:   
                     87: /Times-Roman findfont 15 scalefont setfont
                     88: 
                     89: (Ludwig von Beethoven)
                     90:   15 90 118 outsidecircletext
                     91:   
                     92: (The New York Philharmonic Orchestra)
                     93:   15 270 118 insidecircletext
                     94:   
                     95: showpage

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