home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / mac / hypercar / fun / astroalm.sit / Almanac / card_2966.txt < prev    next >
Text File  |  1989-10-15  |  5KB  |  226 lines
  1. -- card: 2966 from stack: in
  2. -- bmap block id: 7067
  3. -- flags: 0000
  4. -- background id: 2765
  5. -- name: Origin
  6. ----- HyperTalk script -----
  7. on elong
  8.   global moon
  9.   go first cd
  10.   put line 5 of fld Pos of cd sun into sra
  11.   put line 6 of fld Pos of cd sun into sdec
  12.   repeat with i=(3+moon) to 9+moon
  13.     set cursor to busy
  14.     put (sra -  line 5 of fld Pos of cd i) into dra
  15.     put (sdec - line 6 of fld Pos of cd i) into ddec
  16.     put (dra+360) mod 360 into arg
  17.     if arg>180 then
  18.       get round(sqrt((360-arg)*(360-arg) + ddec*ddec))
  19.       put "E" into dir
  20.     else
  21.       get round(sqrt(arg*arg + ddec*ddec))
  22.       put "W" into dir
  23.     end if
  24.     put (short name of cd i) & " -- " & it && dir into line i-(2+moon) of cd fld "elong"
  25.   end repeat
  26. end elong
  27.  
  28.  
  29. -- part 2 (field)
  30. -- low flags: 80
  31. -- high flags: 4001
  32. -- rect: left=4 top=24 right=74 bottom=471
  33. -- title width / last selected line: 0
  34. -- icon id / first selected line: 0 / 0
  35. -- text alignment: 0
  36. -- font id: 20
  37. -- text size: 10
  38. -- style flags: 0
  39. -- line height: 13
  40. -- part name: Sidereal Cheb
  41.  
  42.  
  43. -- part 9 (field)
  44. -- low flags: 00
  45. -- high flags: 4000
  46. -- rect: left=129 top=74 right=140 bottom=208
  47. -- title width / last selected line: 0
  48. -- icon id / first selected line: 0 / 0
  49. -- text alignment: 0
  50. -- font id: 20
  51. -- text size: 12
  52. -- style flags: 0
  53. -- line height: 16
  54. -- part name: Coords
  55.  
  56.  
  57. -- part 18 (button)
  58. -- low flags: 00
  59. -- high flags: 8003
  60. -- rect: left=36 top=310 right=331 bottom=174
  61. -- title width / last selected line: 0
  62. -- icon id / first selected line: 0 / 0
  63. -- text alignment: 1
  64. -- font id: 0
  65. -- text size: 12
  66. -- style flags: 0
  67. -- line height: 16
  68. -- part name: Update for Today
  69. ----- HyperTalk script -----
  70. on mouseUp
  71.   global force,dodoo,moon
  72.   put 1 into force
  73.   put 1 into dodoo
  74.   repeat with i=2 to 9+moon
  75.     go card i
  76.   end repeat
  77.   put 0 into force
  78.   put 0 into dodoo
  79.   elong
  80.   send mouseUp to bg btn conj
  81.   go cd origin
  82. end mouseUp
  83.  
  84.  
  85.  
  86. -- part 23 (field)
  87. -- low flags: 00
  88. -- high flags: 0002
  89. -- rect: left=39 top=240 right=279 bottom=270
  90. -- title width / last selected line: 0
  91. -- icon id / first selected line: 0 / 0
  92. -- text alignment: 0
  93. -- font id: 15034
  94. -- text size: 14
  95. -- style flags: 0
  96. -- line height: 18
  97. -- part name: Algol
  98.  
  99.  
  100. -- part 24 (field)
  101. -- low flags: 00
  102. -- high flags: 0004
  103. -- rect: left=272 top=164 right=281 bottom=389
  104. -- title width / last selected line: 0
  105. -- icon id / first selected line: 0 / 0
  106. -- text alignment: 0
  107. -- font id: 20
  108. -- text size: 12
  109. -- style flags: 0
  110. -- line height: 16
  111. -- part name: Elong
  112.  
  113.  
  114. -- part 31 (field)
  115. -- low flags: 00
  116. -- high flags: 0000
  117. -- rect: left=40 top=163 right=226 bottom=239
  118. -- title width / last selected line: 0
  119. -- icon id / first selected line: 0 / 0
  120. -- text alignment: 0
  121. -- font id: 3
  122. -- text size: 12
  123. -- style flags: 0
  124. -- line height: 16
  125. -- part name: Daily
  126.  
  127.  
  128. -- part 33 (button)
  129. -- low flags: 00
  130. -- high flags: 8003
  131. -- rect: left=365 top=310 right=331 bottom=506
  132. -- title width / last selected line: 0
  133. -- icon id / first selected line: 0 / 0
  134. -- text alignment: 1
  135. -- font id: 0
  136. -- text size: 12
  137. -- style flags: 0
  138. -- line height: 16
  139. -- part name: Delete Lunar Card
  140. ----- HyperTalk script -----
  141. on mouseUp
  142.   global moon,userName
  143.   if "Mike Kaz" is in userName then exit mouseUp
  144.   Answer "Are you really sure???" with "No" or "Yes"
  145.   if it is "No" then exit mouseUp
  146.   set lockMessages to true
  147.   set lockScreen to true
  148.   go cd "Occult."
  149.   put 0 into moon
  150.   doMenu "Delete Card"
  151.   go first cd
  152.   choose btn tool
  153.   click at the loc of bg btn "Moon"
  154.   doMenu "Clear Button"
  155.   click at the loc of btn "Delete Lunar Card"
  156.   doMenu "Clear Button"
  157.   choose fld tool
  158.   click at the loc of fld pct
  159.   doMenu "Cut Field"
  160.   choose browse tool
  161.   set lockMessages to false
  162.   set lockScreen to false
  163. end mouseUp
  164.  
  165.  
  166.  
  167. -- part contents for card part 2
  168. ----- text -----
  169. 37.46641019 12.02493024 .00000335 .00000202 .00000561 .00001716 -.00000493 -.00000826
  170.  
  171. -- part contents for card part 9
  172. ----- text -----
  173. 33.57500
  174. 84.001639
  175. 238
  176. 5.0 (EDT)
  177.  
  178. -- part contents for background part 7
  179. ----- text -----
  180. Sidereal Time = 21:46
  181. 21.771
  182.  
  183. -- part contents for background part 6
  184. ----- text -----
  185. Universal Time = 1:43
  186. 1.722
  187. 226
  188.  
  189. -- part contents for background part 14
  190. ----- text -----
  191. Card
  192.  
  193. -- part contents for background part 28
  194. ----- text -----
  195. 15 October 1989
  196.  
  197. -- part contents for background part 31
  198. ----- text -----
  199. Julian Date = 2447815.572
  200.  
  201. -- part contents for card part 23
  202. ----- text -----
  203. Next minimum of Algol occurs in 56.5 hours at JD=2447817.925
  204. 47817.925
  205.  
  206. -- part contents for background part 10
  207. ----- text -----
  208.  
  209.  
  210.  
  211.  
  212.  
  213. -- part contents for background part 39
  214. ----- text -----
  215.  98%-
  216.  
  217. -- part contents for card part 24
  218. ----- text -----
  219. Mercury -- 17 W
  220. Venus -- 47 E
  221. Mars -- 6 W
  222. Jupiter -- 105 W
  223. Saturn -- 79 E
  224. Uranus -- 72 E
  225. Neptune -- 81 E
  226.