Click here if you are having trouble logging into the forums
Privacy Policy |
Please read our Terms
of Service | Signup and
Troubleshooting FAQ | Problems? PM a Red or a Green Gu… uh, User
csa/montana
Den Mama
Reged: 05/14/05
Loc: montana
|
PDF files for Degree Circles (patterns)
#4594123 - 05/21/11 11:04 AM
|
Edit
|
Reply
|
Quote |
Quick Reply
|
|
|
PDF patterns for degree circles
|
GregBuchholz
member
Reged: 02/13/12
Loc: Kennewick, WA
|
Re: PDF files for Degree Circles (patterns)
[Re: csa/montana]
#5268858 - 06/12/12 11:17 PM Attachment (278 downloads)
|
|
Edit
|
Reply
|
Quote |
Quick Reply
|
|
|
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.
|
GregBuchholz
member
Reged: 02/13/12
Loc: Kennewick, WA
|
Re: PDF files for Degree Circles (patterns)
[Re: GregBuchholz]
#5268863 - 06/12/12 11:42 PM Attachment (256 downloads)
|
|
Edit
|
Reply
|
Quote |
Quick Reply
|
|
|
...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
|
|
10 registered and 17 anonymous users are browsing this forum.
Moderator: Jarad, tecmage
Print Thread
|
Forum Permissions
You cannot start new topics
You cannot reply to topics
HTML is disabled
UBBCode is enabled
|
Thread views: 5659
|
|
|
|
|
|
|
Previous
Index
Next
Threaded
