-- card: 10200 from stack: in
-- bmap block id: 10246
-- flags: 0000
-- background id: 6859
-- name: meteor
----- HyperTalk script -----
on openCard
  hide cd fld data
  put "("& word 4 of the long date&")" into cd fld year
end openCard

on mcalc
  get word 4 of the long date
  if it ≠ last word of cd fld data then meteor
end mcalc

on meteor
  global h,m
  put "                              " into spaces
  if cd fld meteors is not empty then
    select text of cd fld meteors
    doMenu "Clear Text"
  end if
  put number of lines of cd fld data into lin
  repeat with i=1 to lin-1
    put line i of cd fld data into mdat
    put item 1 of mdat into shower
    put item 2 of mdat into s0
    put item 3 of mdat into s1
    put item 4 of mdat into j5
    put word 4 of the long date into y
    put y into line lin of cd fld data
    put number of chars of shower into nch
    put word 4 of the long date into y
    put (y-1950)/100 into t5
    put s0+t5*(s1+1.39663+.0003*t5) mod 360 into s
    put j5+t5*(36525.636+s1) into j
    repeat 2
      set cursor to busy
      put (j+17980)/36525 into t
      put 279.7+t*(36000.769+.0003*t) into l
      put 358.48+t*(35999.05-.0002*t)into m
      put (l+sind(m)*(1.92-.005*t)+.02*sind(2*m)) mod 360 into s5
      subtract (s5-s)/(.986+.033*cosd(m)) from j
    end repeat
    put (j+16519.5-DSTCheck()/24) into jd
    put jd*86400 into sec
    put sec - sec mod 1 into sec
    convert sec to dateItems
    get char 2 to 4 of last word of line 4 of cd fld coords of cd 1
    if item 2 of sec<4 or item 2 of sec>10 then put "S" into char 2 of it
    convert sec to long date
    put jd mod 1 * 24 into arg
    hm false,arg
    put shower&& char 1 to (18-nch) of spaces & sec && "at"&&h &":"& m && it into line i of cd fld meteors
  end repeat
end meteor


-- part 1 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=29 top=77 right=273 bottom=457
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 15036
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: meteors


-- part 2 (field)
-- low flags: 80
-- high flags: 0007
-- rect: left=30 top=79 right=319 bottom=293
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Data


-- part 3 (button)
-- low flags: 00
-- high flags: 0004
-- rect: left=465 top=118 right=158 bottom=508
-- title width / last selected line: 0
-- icon id / first selected line: 4450 / 4450
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
  meteor
end mouseUp



-- part 4 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=335 top=41 right=72 bottom=414
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 14991
-- text size: 24
-- style flags: 0
-- line height: 32
-- part name: year


-- part 5 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=348 top=21 right=37 bottom=428
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Show Data
----- HyperTalk script -----
on mouseUp
  if short name of me contains "Show" then
    set name of me to "Hide Data"
    show cd fld data
  else
    set name of me to "Show Data"
    hide cd fld data
  end if
end mouseUp



-- part contents for card part 2
----- text -----
Quadrantids,282.9,-.4,285.3
Lyrids,31.7,.06,393.9
Eta Aquariids,44,0.3,406.6
Delta Aquariids,125,-1,491.2
Perseids,139.2,.03,506
Orionids,207.7,.4,576.2
Taurids,220,.44,588.5
Leonids,234.3,1.5,602.7
Geminids,261.4,0,629.5
1989

-- part contents for card part 4
----- text -----
(1989)

-- part contents for card part 1
----- text -----
Quadrantids        Tuesday, January 3, 1989 at 12:16 EST
Lyrids             Saturday, April 22, 1989 at 6:09 EDT
Eta Aquariids      Friday, May 5, 1989 at 0:13 EDT
Delta Aquariids    Friday, July 28, 1989 at 2:01 EDT
Perseids           Saturday, August 12, 1989 at 7:56 EDT
Orionids           Saturday, October 21, 1989 at 15:48 EDT
Taurids            Thursday, November 2, 1989 at 23:52 EST
Leonids            Friday, November 17, 1989 at 15:11 EST
Geminids           Wednesday, December 13, 1989 at 19:11 EST