Jump to content


Photo

PDF files for Degree Circles (patterns)

  • Please log in to reply
2 replies to this topic

#1 csa/montana

csa/montana

    Den Mama

  • *****
  • Posts: 86349
  • Joined: 14 May 2005
  • Loc: montana

Posted 21 May 2011 - 10:04 AM

PDF patterns for degree circles

#2 GregBuchholz

GregBuchholz

    Explorer 1

  • -----
  • Posts: 58
  • Joined: 13 Feb 2012
  • Loc: Kennewick, WA

Posted 12 June 2012 - 10:17 PM

I had such great success with the setting circle pattern for my 8" Dob, I also created an azimuth version for my 3" Celestron First Scope (see attached). If you are printing out the PDF on 8.5" x 11" paper using the Adobe PDF Reader, you'll need to make sure when you hit the print button to select "None" for "Page Scaling:", otherwise it'll shrink the output size a bit.

Attached Files



#3 GregBuchholz

GregBuchholz

    Explorer 1

  • -----
  • Posts: 58
  • Joined: 13 Feb 2012
  • Loc: Kennewick, WA

Posted 12 June 2012 - 10:42 PM

...and here's the source code for the PostScript program I used to generate that setting circle. The programmers in our midst can see how to modify that to generate graduated circles of any diameter. (see the attached, or below)

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

Attached Files








Cloudy Nights LLC
Cloudy Nights Sponsor: Astronomics