Buddy Collier wrote:
>>>>> Thanks for the information. I receive the NASS publication, but to tell the truth my involvement in a master's program that has tapped every last bit of my spare time. I have to steal away to paint my dials on school grounds! Since I joined the NASS only a year ago I don't have the 1995 issues. I appreciate your offer of sending me that information. My e-mail address is [EMAIL PROTECTED] <<<<< 12-8-97 Hello Buddy, As a NASS member, you can get a copy of COMPENDIUM 2-3, containing the articles on analemmatic sundials, by sending $3 to Fred Sawyer, 8 Sachem Drive, Glastonbury, CT 06033-2726 USA. I'm sure you'll appreciate Bob Terwilliger's layout tools. If for some reason (I can't imagine what) Fred can't help you, I will undertake to xerox the articles and mail them to you. In an earlier post you stated, "I too am interested in a program [that I can run on my Mac] that would make it easier to make my portable dials, and I am wondering if there is an easier way to make the anammlatic dials." What type(s) of portable dials do you make? What model of Macintosh computer do you have? What system software are you running? What flavor(s) of BASIC can you use? Apparently only a tiny percentage of the NASS membership uses Macs. Since the digital COMPENDIUM is for PCs, we Mac owners miss out on the programs distributed with the digital edition unless our Macs can emulate a PC, either with hardware or software. My Mac has a 486 PC board and runs DOS 6.2 and Windows 3.1. Other Mac users run SoftWindows, VirtualPC, or RealPC software, assuming their machines have enough memory and the proper CPUs. While I hated to sellout to the enemy, I wanted access to Fer de Vries' program ZONWVLAK as well as digital COMPENDIUM. Incidentally, ZONWVLAK (available for download at: http://www.iaehv.nl/users/ferdv/) is a superb tool for designing several types of sundials (but not analemmatic). It has the great virtue of being usable on older as well as newer PCs (I have used it on a 286). Be sure to peruse thoroughly the sundial links listed on Daniel Roth's excellent webpage, http://www.ph-cip.uni-koeln.de/~roth/slinks.html Appended below is a BASIC program to generate analemmatic sundial data, written in TrueBASIC. I hope it is of some use to you. Best, Mac * * * * * * * * * * 100 REM Generate Analemmatic Sundial Dimensional Data 110 REM (Offers correction for longitude.) 130 REM Ver 2.0 Mac Oglesby 941212 rev 960105 170 INPUT PROMPT "Latitude? (pos for North, neg South) ":L 180 PRINT " For a sundial showing Local Apparent Time" 181 PRINT " (no longitude correction), enter" 182 PRINT " [any] equal values for Longitude and Time Meridian." 183 INPUT PROMPT "Longitude? (pos for West, neg East) ":G 184 INPUT PROMPT "Time Meridian? (pos West, neg East) ":TM 186 LET MC=(TM-G)/15 190 INPUT PROMPT "Size in meters? (5 is suggested) ":S 220 LET C=0.0174532 230 PRINT "ANALEMMATIC SUNDIAL DATA" 240 PRINT "LATITUDE: ";STR$(ABS(L));"°"; 250 IF L>0 then PRINT " N" 260 IF L=0 then PRINT " " 270 IF L<0 then PRINT " S" 275 PRINT "TIME CORRECTION for LONGITUDE: ";MC*60;"minutes" 280 PRINT "SIZE: ";S;"meters" 310 PRINT 320 PRINT "HOUR POINTS:" 330 PRINT "Hour","X (meters)","Y (meters)" 340 FOR J=-8 to 8 STEP 0.5 350 LET H=J+12 360 IF J>0.5 THEN LET H=J 370 IF H=INT(H) THEN PRINT STR$(H);":00"; 375 IF H<>INT(H) THEN PRINT STR$(INT(H));":30"; 380 IF J<0 THEN PRINT " am", 390 IF J=0 THEN PRINT " noon", 400 IF J>0 THEN PRINT " pm", 410 LET X=ROUND(SIN(C*15*(J+MC))*S/2,3) 430 PRINT X, 440 LET Y=ROUND(SIN(C*L)*COS(C*15*(J+MC))*S/2,3) 460 PRINT Y 470 NEXT J 475 PRINT 480 DATA "JAN 7",-22.47,"JAN 21",-20.08,"FEB 7",-15.57,"FEB 21",-10.87 485 DATA "MAR 7",-5.5,"MAR 21",0,"APR 7",6.6,"APR 21",11.65 490 DATA "MAY 7",16.65,"MAY 21",20.07,"JUN 7",22.7,"JUN 21",23.43 500 DATA "JUL 7",22.65,"JUL 21",20.6,"AUG 7",16.6,"AUG 21",12.32 505 DATA "SEP 7",6.3,"SEP 21",0.95,"OCT 7",-5.27,"OCT 21",-10.48 510 DATA "NOV 7",-16.1,"NOV 21",-19.78,"DEC 7",-22.53,"DEC 21",-23.43 520 PRINT "DATELINE POINTS:" 525 PRINT "Date","X (meters)","Y (meters)" 530 FOR J=1 to 24 540 READ D$,SD 550 LET Y=ROUND(TAN(C*SD)*COS(C*L)*S/2,3) 570 PRINT D$,"0",Y 580 NEXT J 590 PRINT 600 END
