-- card: 9537 from stack: in
-- bmap block id: 10919
-- flags: 0000
-- background id: 6859
-- name: Conjunct
----- HyperTalk script -----
on openCard
  put line 1 of cd fld date into line 2 of cd fld date
  put the date into line 1 of cd fld date
  if line 1 of cd fld date ≠ line 2 of cd fld date then conj
end openCard

on conj
  hide message box
  global ra,dec
  put "Mercury,Venus,Mars,Jupiter,Saturn,Uranus,Neptune" into planet
  set lockScreen to true
  set lockMessages to true
  go card Mercury
  put number of this cd into c1
  go recent cd
  set lockScreen to false
  set lockMessages to false
  put cd fld threshhold into thresh
  put 0 into k
  put empty into cd fld conj
  put c1+6 into c2
  repeat with i=c1 to c2
    set cursor to busy
    put line 5 of fld Pos of cd i into item i-c1+1 of ra
    put line 6 of fld Pos of cd i into item i-c1+1 of dec
  end repeat
  repeat with i=1 to 6
    repeat with j=i+1 to 7
      get sqrt((item i of ra - item j of ra)^2+ (item i of dec - item j of dec)^2)
      if it <thresh then
        if it<1 then get trunc(it*100)/100
        else
          get trunc(it*10)/10
        end if
        add 1 to k
        set numberFormat to "0.0#"
        put item i of planet &&"and"&& item j of planet && "will be" &&"separated by "&&it&&"degrees." into line k of cd fld conj
        set numberFormat to "0.######"
      end if
      set cursor to busy
    end repeat
  end repeat
end conj

on enterInField
  conj
end enterInField

on returnInField
  conj
end returnInField




-- part 1 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=356 top=299 right=323 bottom=448
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 14860
-- text size: 18
-- style flags: 0
-- line height: 24
-- part name: Date


-- part 6 (field)
-- low flags: 02
-- high flags: 0000
-- rect: left=363 top=51 right=70 bottom=393
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 15009
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Threshhold


-- part 3 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=29 top=77 right=297 bottom=457
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 14843
-- text size: 14
-- style flags: 0
-- line height: 18
-- part name: conj


-- part 16 (button)
-- low flags: 00
-- high flags: 0004
-- rect: left=467 top=118 right=155 bottom=504
-- title width / last selected line: 0
-- icon id / first selected line: 26516 / 26516
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: conj
----- HyperTalk script -----
on mouseUp
  conj
end mouseUp



-- part contents for card part 1
----- text -----
10/15/89
10/15/89

-- part contents for card part 6
----- text -----
10

-- part contents for card part 3
----- text -----
Saturn and Uranus will be separated by  6.9 degrees.
Saturn and Neptune will be separated by  1.6 degrees.
Uranus and Neptune will be separated by  8.6 degrees.