home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 5 / BBS in a Box -Volume V (BBS in a Box) (April 1992).iso / Files / Hyper / T / trigHype.cpt / trigHype™ / card_6276.txt < prev    next >
Encoding:
Text File  |  1990-08-12  |  4.0 KB  |  207 lines
  1. -- card: 6276 from stack: in
  2. -- bmap block id: 6483
  3. -- flags: 4000
  4. -- background id: 4114
  5. -- name: A,b known
  6. ----- HyperTalk script -----
  7. on mouseUp
  8.   set numberFormat to <0.000000>
  9.  
  10.   --Calculate Angle B
  11.   get bkgnd field "Angle C"
  12.   put it into mem1
  13.   get card field "Angle A"
  14.   put it into mem2
  15.   get mem1-mem2
  16.   put it into card field "Angle B"
  17.  
  18.   --Calculate Tan A
  19.   get tan(mem2*(pi/180))
  20.   put it into mem3
  21.   put it into card field "tan A"
  22.  
  23.   --Calculate Sin A
  24.   get sin(mem2*(pi/180))
  25.   put it into mem4
  26.   put it into card field "sin A"
  27.  
  28.   --Calculate Cos A
  29.   get mem4/mem3
  30.   put it into mem5
  31.   put it into card field "cos A"
  32.  
  33.   --Calculate Side a
  34.   get card field "side b"/mem3
  35.   put it into mem6
  36.   put it into card field "side a"
  37.  
  38.   --Calculate Side c
  39.   get card field "side b"/mem5
  40.   put it into mem7
  41.   put it into card field "side c"
  42.  
  43.   --Calculate Area
  44.   get card field "side a"*card field "side b"/2
  45.   put it into bkgnd field "Area"
  46.  
  47.   --Calculate Perimeter
  48.   get card field "side a"+card field "side b"+card field "side c"
  49.   put it into bkgnd field "Perimeter"
  50. end mouseUp
  51.  
  52.  
  53. -- part 1 (field)
  54. -- low flags: 00
  55. -- high flags: 0002
  56. -- rect: left=22 top=217 right=234 bottom=150
  57. -- title width / last selected line: 0
  58. -- icon id / first selected line: 0 / 0
  59. -- text alignment: 1
  60. -- font id: 3
  61. -- text size: 12
  62. -- style flags: 0
  63. -- line height: 16
  64. -- part name: angle A
  65.  
  66.  
  67. -- part 2 (field)
  68. -- low flags: 00
  69. -- high flags: 0002
  70. -- rect: left=112 top=263 right=280 bottom=240
  71. -- title width / last selected line: 0
  72. -- icon id / first selected line: 0 / 0
  73. -- text alignment: 1
  74. -- font id: 3
  75. -- text size: 12
  76. -- style flags: 0
  77. -- line height: 16
  78. -- part name: side b
  79.  
  80.  
  81. -- part 3 (field)
  82. -- low flags: 01
  83. -- high flags: 0004
  84. -- rect: left=51 top=135 right=154 bottom=184
  85. -- title width / last selected line: 0
  86. -- icon id / first selected line: 0 / 0
  87. -- text alignment: 1
  88. -- font id: 3
  89. -- text size: 12
  90. -- style flags: 256
  91. -- line height: 16
  92. -- part name: side c
  93.  
  94.  
  95. -- part 4 (field)
  96. -- low flags: 01
  97. -- high flags: 0004
  98. -- rect: left=245 top=85 right=104 bottom=373
  99. -- title width / last selected line: 0
  100. -- icon id / first selected line: 0 / 0
  101. -- text alignment: 1
  102. -- font id: 3
  103. -- text size: 12
  104. -- style flags: 256
  105. -- line height: 16
  106. -- part name: angle B
  107.  
  108.  
  109. -- part 5 (field)
  110. -- low flags: 01
  111. -- high flags: 0004
  112. -- rect: left=347 top=144 right=163 bottom=475
  113. -- title width / last selected line: 0
  114. -- icon id / first selected line: 0 / 0
  115. -- text alignment: 1
  116. -- font id: 3
  117. -- text size: 12
  118. -- style flags: 256
  119. -- line height: 16
  120. -- part name: side a
  121.  
  122.  
  123. -- part 6 (field)
  124. -- low flags: 01
  125. -- high flags: 0001
  126. -- rect: left=387 top=208 right=220 bottom=447
  127. -- title width / last selected line: 0
  128. -- icon id / first selected line: 0 / 0
  129. -- text alignment: 0
  130. -- font id: 3
  131. -- text size: 9
  132. -- style flags: 0
  133. -- line height: 12
  134. -- part name: tan A
  135.  
  136.  
  137. -- part 7 (field)
  138. -- low flags: 01
  139. -- high flags: 0001
  140. -- rect: left=387 top=224 right=236 bottom=447
  141. -- title width / last selected line: 0
  142. -- icon id / first selected line: 0 / 0
  143. -- text alignment: 0
  144. -- font id: 3
  145. -- text size: 9
  146. -- style flags: 0
  147. -- line height: 12
  148. -- part name: sin A
  149.  
  150.  
  151. -- part 8 (field)
  152. -- low flags: 01
  153. -- high flags: 0001
  154. -- rect: left=387 top=240 right=252 bottom=447
  155. -- title width / last selected line: 0
  156. -- icon id / first selected line: 0 / 0
  157. -- text alignment: 0
  158. -- font id: 3
  159. -- text size: 9
  160. -- style flags: 0
  161. -- line height: 12
  162. -- part name: cos A
  163.  
  164.  
  165. -- part contents for card part 1
  166. ----- text -----
  167. 45
  168.  
  169. -- part contents for card part 2
  170. ----- text -----
  171. 1
  172.  
  173. -- part contents for background part 3
  174. ----- text -----
  175. 90
  176.  
  177. -- part contents for card part 4
  178. ----- text -----
  179. 45.000000
  180.  
  181. -- part contents for card part 6
  182. ----- text -----
  183. 1.000000
  184.  
  185. -- part contents for card part 7
  186. ----- text -----
  187. 0.707107
  188.  
  189. -- part contents for card part 8
  190. ----- text -----
  191. 0.707107
  192.  
  193. -- part contents for card part 5
  194. ----- text -----
  195. 1.000000
  196.  
  197. -- part contents for card part 3
  198. ----- text -----
  199. 1.414214
  200.  
  201. -- part contents for background part 5
  202. ----- text -----
  203. 0.500000
  204.  
  205. -- part contents for background part 9
  206. ----- text -----
  207. 3.414214