TIP: Click on subject to list as thread! ANSI
echo: science
to: Miles Maxted
from: DAVID WILLIAMS
date: 2006-10-30 21:47:28
subject: Re: anyone there?

-> I haven't heard from the good Dr Sprott yet,  either - I found his  
-> email and relayed your dial-drawing programme,  but have received  
-> nothing back ay yet....   hope the Remuera sun-dial in benefitting  
-> regardless. 
  
I found an earlier, and much shorter, version of that program. It just 
calculates the directions of the hour-lines on the sundial plate, 
without doing any graphics. I guess it should run on any computer that 
can handle BASIC. In case you're interested, here it is. 
  
Let me know if you hear from Dr. Sprott. 
  
                                dow 
  
---------------------------------------------------------- 
  
' SUNDIAL.BAS.  David Williams. 2001 
CLS 
DEFDBL A-Z 
PRINT "This program calculates the positions of the hour lines" 
PRINT "on a horizontal sundial." 
PRINT 
PRINT "Should the dial show lock or local olar time? "; 
DO 
  K$ = LCASE$(INKEY$) 
LOOP UNTIL K$ = "c" OR K$ = "s" 
PRINT K$ 
PRINT 
PI = 4 * ATN(1) 
PI2 = PI / 2 
DR = PI / 180 
RH = PI / 12 
PRINT "Use negative numbers for directions opposite from those shown." 
INPUT "Latitude (deg. N)"; LT 
IF K$ = "c" THEN 
  INPUT "Longitude (deg. E)"; LG 
  INPUT "Time Zone Offset (hours ahead of GMT)"; TZ 
  A0 = TZ * RH - DR * LG 
ELSE 
  A0 = 0 
END IF 
ST = SIN(DR * LT) 
PRINT 
PRINT "Hour line angles are in degrees, measured around gnomon base" 
PRINT "clockwise from poleward direction (e.g. North in N hemisphere)." 
PRINT 
PRINT "Hour", "  Angle" 
FOR X% = 5 TO 19 
  A = RH * (X% - 12) - A0 
  Q% = SGN(A * LT) 
  D = ABS(A) - PI2 
  IF ABS(D) < .0000000001# THEN 
     AZ = PI2 * Q% 
  ELSE 
     AZ = ATN(ST * TAN(A)) 
     IF D > 0 THEN AZ = AZ + PI * Q% 
  END IF 
  PRINT X%, CSNG(AZ / DR) 
NEXT 
END 
  
------------------------------------------------------------ 
--- Platinum Xpress/Win/WINServer v3.0pr5
* Origin: The Bayman BBS,Toronto, (416)698-6573 - 1:250/514 (1:250/514)
SEEN-BY: 633/267 270
@PATH: 250/514 123/500 379/1 633/267

SOURCE: echomail via fidonet.ozzmosis.com

Email questions or comments to sysop@ipingthereforeiam.com
All parts of this website painstakingly hand-crafted in the U.S.A.!
IPTIA BBS/MUD/Terminal/Game Server List, © 2025 IPTIA Consulting™.