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     ! 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.