Return to CircularText.eps CVS log

Up to [NeXTSTEP 3.3 examples] / Examples / PostScript

Sample Programs from NeXSTEP 3.3

%!PS-Adobe-2.0
%%Title: Blue Book Program 10, on page 167
%%Creator: Adobe Systems Incorporated 
%%CreationDate: Thu Dec 28 13:14:59 PST 1989
%%Pages: 0 1
%%BoundingBox: 0 0 320 320
%%DocumentFonts: Times-Bold
%%EndComments

/outsidecircletext
  { circtextdict begin
	  /radius exch def
	  /centerangle exch def
	  /ptsize exch def
	  /str exch def
	  /xradius radius ptsize 4 div add def

	  gsave
	    centerangle str findhalfangle add rotate
	    str
		  { /charcode exch def
		    ( ) dup 0 charcode put outsideplacechar
		  } forall
	  grestore
	end
  } def
  
/insidecircletext
  { circtextdict begin
	  /radius exch def  /centerangle exch def
	  /ptsize exch def  /str exch def
	  
	  /xradius radius ptsize 3 div sub def
	  gsave
	    centerangle str findhalfangle sub rotate
	    str
		  { /charcode exch def
		    ( ) dup 0 charcode put insideplacechar
		  } forall
	  grestore
	end
  } def
  
/circtextdict 16 dict def
circtextdict begin
  /findhalfangle
	{ stringwidth pop 2 div
	  2 xradius mul pi mul div 360 mul
	} def
	
/outsideplacechar
  { /char exch def
	/halfangle char findhalfangle def
	gsave
	  halfangle neg rotate
	  radius 0 translate
	  -90 rotate
	  char stringwidth pop 2 div neg 0 moveto
	  char show
	grestore
	halfangle 2 mul neg rotate
  } def
  
/insideplacechar
  { /char exch def
	/halfangle char findhalfangle def
	gsave
	  halfangle rotate
	  radius 0 translate
	  90 rotate
	  char stringwidth pop 2 div neg 0 moveto
	  char show
	grestore
	halfangle 2 mul rotate
  } def
  
/pi 3.1415923 def
end

/Times-Bold findfont 22 scalefont setfont

160 140 translate

(Symphony No. 9 (The Choral Symphony))
  22 90 140 outsidecircletext
  
/Times-Roman findfont 15 scalefont setfont

(Ludwig von Beethoven)
  15 90 118 outsidecircletext
  
(The New York Philharmonic Orchestra)
  15 270 118 insidecircletext
  
showpage

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