please dont rip this site

Postscript Encoder Disk

This Postscript code will produce an encoder disk sutable for a rotational motion sensor when used with a photodetector.

Areas in the code can be changed to modify the characteristics of the disk that is generated. Look for the comments starting with "%".

Also:


%!PS-Adobe-2.0
%%Title: Encoder Disk  
%%Creator: (C) Ricardo Seixas - rseixas@pobox.com 
%%CreationDate: May 12 2000
%%EndComments
% You can freely distribute and use this file as long as you maintain the original copyright 
% This file is provided as is and there's NO WARRANTY
% Use it at your own risk

/mm {2.8346 mul} def   
/pi 3.1415926536 def   

%
%
%Here you can change the encoder characteristics

/slots 45 def
/external_diameter 50 mm def

/internal_diameter external_diameter 10 mm sub def
%/internal_diameter 45 mm def   
/text ( Ricardo Seixas 2000 - rseixas@pobox.com - Encoder Disc ) def 	% don't remove the parentheses when you change text!!!  
/text_diameter internal_diameter 2 mm sub def
%/text_diameter 43 mm def
/font_size external_diameter 20 div def 
%/font_size 6 def
/font_type (Courier) def
%/internal_circle 38 mm def
/internal_circle internal_diameter font_size mm sub def
%
%
%
%Look at the end of the file for positioning


/angle {360 slots div} def
/trace_width {internal_diameter pi mul slots div 2 div} def
/center_hole {

	%Cross
	-11 mm 0 moveto 22 mm 0 rlineto 0.2 setlinewidth stroke
	0 -11 mm moveto 0 22 mm rlineto 0.2 setlinewidth stroke

	%Bulls Eye 6 mm
	0 0 6 mm 2 div
	0 360 arc .2 setlinewidth stroke  
	%Bulls Eye 8 mm
	0 0 8 mm 2 div
	0 360 arc .2 setlinewidth stroke  
	%Bulls Eye 10 mm
	0 0 10 mm 2 div
	0 360 arc .2 setlinewidth stroke  
	%Bulls Eye 20 mm
	0 0 20 mm 2 div
	0 360 arc .2 setlinewidth stroke 
	
	%Draw internal circle
	%Comment the two lines below if you don't want internal circle before font  	

	0 0 internal_circle 2 div
	0 360 arc .05 setlinewidth stroke 
	 
	%Draw internal_diameter circle
	%Comment the two lines below if you don't want internal circle after font  	

	0 0 internal_diameter 2 div
	0 360 arc .05 setlinewidth stroke 

	%Draw External Circle
	%Comment the two lines below if you don't want external line  	

	0 0 external_diameter 2 div
	0 360 arc .05 mm setlinewidth stroke 
	
	
	} def
%Don't mess around here unless you know what you're doing
/Draw_Disc {
		0 0 moveto  
		gsave
		angle 2 div rotate
		
		0 angle 360
		 	{
			gsave 
			rotate
			internal_diameter 2 div 0 rmoveto
			external_diameter internal_diameter sub 2 div 0 rlineto
			trace_width setlinewidth
			stroke
			grestore
			} for
		grestore
		center_hole
		} def



% Text routine borrowed from Adobe Blue Book Program 10, on page 167
/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
	
/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
  
end


/font_type findfont font_size scalefont setfont
/Encoder_Text {
		text 18 -90 text_diameter 2 div insidecircletext
	       } def	

/Draw_Encoder {
	  Draw_Disc
	  %Comment next line to remove text
	  Encoder_Text
	  } def

%Here you can change where you want to put the disk on the sheet
%TODO automagicaly fill a A4 or A3 sheet

%automatic placement
external_diameter 2 div 15 mm add external_diameter 2 div 15 mm add translate Draw_Encoder

%manual placement, you can put more than one encoder on the same sheet				
%30 mm 30 mm translate Draw_Encoder
%52 mm 0 mm translate Draw_Encoder

showpage


Interested:

Comments:


file: /Techref/io/sensor/pos/enc/enc_ps.htm, 4KB, , updated: 2018/11/5 11:54, local time: 2024/3/28 12:05,
TOP NEW HELP FIND: 
44.210.107.64:LOG IN

 ©2024 These pages are served without commercial sponsorship. (No popup ads, etc...).Bandwidth abuse increases hosting cost forcing sponsorship or shutdown. This server aggressively defends against automated copying for any reason including offline viewing, duplication, etc... Please respect this requirement and DO NOT RIP THIS SITE. Questions?
Please DO link to this page! Digg it! / MAKE!

<A HREF="http://www.sxlist.com/techref/io/sensor/pos/enc/enc_ps.htm"> Postscript Encoder Disk</A>

After you find an appropriate page, you are invited to your to this massmind site! (posts will be visible only to you before review) Just type a nice message (short messages are blocked as spam) in the box and press the Post button. (HTML welcomed, but not the <A tag: Instead, use the link box to link to another page. A tutorial is available Members can login to post directly, become page editors, and be credited for their posts.


Link? Put it here: 
if you want a response, please enter your email address: 
Attn spammers: All posts are reviewed before being made visible to anyone other than the poster.
Did you find what you needed?

 

Welcome to sxlist.com!


Site supported by
sales, advertizing,
& kind contributors
just like you!

Please don't rip/copy
(here's why

Copies of the site on CD
are available at minimal cost.
 

Welcome to www.sxlist.com!

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

  .