%!PS-Adobe-2.0
%%Title: Setting Circles for 195mm diameter Celestron First Scope
%%Creator: Greg Buchholz
%%CreationDate: 2012Jun10
%%EndComments

/inch {72 mul} def
/mm {inch 25.4 div} def

/long_mark 10 mm def
/short_mark 5 mm def
/radius 195 mm 2 div def
/choose_mark {dup 5 mod 0 eq {long_mark 1} {short_mark 0.5} ifelse setlinewidth} def
/Courier findfont 10 scalefont setfont
/inner_radius radius 2 mm sub (360) stringwidth pop sub long_mark sub def

%center mark and outer circles
8.5 inch 2 div 11 inch 2 div translate % assume 8.5"x11" paper
0 0 short_mark 4 div 0 360 arc stroke
0 0 radius 0 360 arc stroke
1 300 div inch setlinewidth
0 0 inner_radius 0 360 arc stroke
0 short_mark 2 div neg moveto
0 short_mark rlineto 
short_mark 2 div neg 0 moveto
short_mark 0 rlineto 
stroke

%degree marks
0 0 moveto 
0 1 359 {
1 rotate
radius neg 0 moveto choose_mark 0 rlineto 
dup 10 mod 0 eq {(    ) cvs 1 mm -3 rmoveto show} if
stroke
} for

showpage