Jump to content


CNers have asked about a donation box for Cloudy Nights over the years, so here you go. Donation is not required by any means, so please enjoy your stay.

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: 86769
  • 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




CNers have asked about a donation box for Cloudy Nights over the years, so here you go. Donation is not required by any means, so please enjoy your stay.



Recent Reviews


Imaging/Sketching Contest






Cloudy Nights LLC
Cloudy Nights Sponsor: Astronomics