home *** CD-ROM | disk | FTP | other *** search
/ Carousel Volume 2 #1 / carousel.iso / mactosh / hc / neuralne.sit / NNCS / background_3959.txt < prev    next >
Text File  |  1988-11-14  |  10KB  |  448 lines
  1. -- background: 3959 from stack: in
  2. -- bmap block id: 4367
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on newCard
  8.   put the id of this card into bkgnd field "Card ID"
  9.   put "put X into Y" into field "Transformation"
  10. end newcard
  11.  
  12. on newStack
  13.   put the id of this card into bkgnd field "Card ID"
  14.   put "put X into Y" into field "Transformation"
  15. end newStack
  16.  
  17.  
  18. -- part 1 (field)
  19. -- low flags: 00
  20. -- high flags: 2004
  21. -- rect: left=48 top=26 right=51 bottom=168
  22. -- title width / last selected line: 0
  23. -- icon id / first selected line: 0 / 0
  24. -- text alignment: 0
  25. -- font id: 3
  26. -- text size: 12
  27. -- style flags: 0
  28. -- line height: 16
  29. -- part name: Title
  30.  
  31.  
  32. -- part 2 (field)
  33. -- low flags: 01
  34. -- high flags: 2004
  35. -- rect: left=165 top=26 right=51 bottom=263
  36. -- title width / last selected line: 0
  37. -- icon id / first selected line: 0 / 0
  38. -- text alignment: 0
  39. -- font id: 3
  40. -- text size: 12
  41. -- style flags: 0
  42. -- line height: 16
  43. -- part name: Card ID
  44.  
  45.  
  46. -- part 3 (field)
  47. -- low flags: 00
  48. -- high flags: 0002
  49. -- rect: left=115 top=63 right=80 bottom=302
  50. -- title width / last selected line: 0
  51. -- icon id / first selected line: 0 / 0
  52. -- text alignment: 0
  53. -- font id: 3
  54. -- text size: 12
  55. -- style flags: 0
  56. -- line height: 16
  57. -- part name: Resting Value
  58.  
  59.  
  60. -- part 4 (field)
  61. -- low flags: 00
  62. -- high flags: 0002
  63. -- rect: left=126 top=85 right=102 bottom=302
  64. -- title width / last selected line: 0
  65. -- icon id / first selected line: 0 / 0
  66. -- text alignment: 0
  67. -- font id: 3
  68. -- text size: 10
  69. -- style flags: 0
  70. -- line height: 13
  71. -- part name: Transformation
  72.  
  73.  
  74. -- part 5 (field)
  75. -- low flags: 00
  76. -- high flags: 0002
  77. -- rect: left=112 top=117 right=134 bottom=300
  78. -- title width / last selected line: 0
  79. -- icon id / first selected line: 0 / 0
  80. -- text alignment: 0
  81. -- font id: 3
  82. -- text size: 12
  83. -- style flags: 0
  84. -- line height: 16
  85. -- part name: Output
  86.  
  87.  
  88. -- part 6 (field)
  89. -- low flags: 00
  90. -- high flags: 0002
  91. -- rect: left=101 top=137 right=154 bottom=301
  92. -- title width / last selected line: 0
  93. -- icon id / first selected line: 0 / 0
  94. -- text alignment: 0
  95. -- font id: 3
  96. -- text size: 12
  97. -- style flags: 0
  98. -- line height: 16
  99. -- part name: Input
  100.  
  101.  
  102. -- part 7 (field)
  103. -- low flags: 00
  104. -- high flags: 0007
  105. -- rect: left=21 top=180 right=308 bottom=208
  106. -- title width / last selected line: 0
  107. -- icon id / first selected line: 0 / 0
  108. -- text alignment: 0
  109. -- font id: 3
  110. -- text size: 12
  111. -- style flags: 0
  112. -- line height: 16
  113. -- part name: Connections
  114.  
  115.  
  116. -- part 8 (field)
  117. -- low flags: 00
  118. -- high flags: 0007
  119. -- rect: left=207 top=180 right=308 bottom=301
  120. -- title width / last selected line: 0
  121. -- icon id / first selected line: 0 / 0
  122. -- text alignment: 0
  123. -- font id: 3
  124. -- text size: 12
  125. -- style flags: 0
  126. -- line height: 16
  127. -- part name: Connection Strength
  128.  
  129.  
  130. -- part 11 (button)
  131. -- low flags: 00
  132. -- high flags: 0000
  133. -- rect: left=360 top=28 right=59 bottom=392
  134. -- title width / last selected line: 0
  135. -- icon id / first selected line: 1020 / 1020
  136. -- text alignment: 1
  137. -- font id: 0
  138. -- text size: 12
  139. -- style flags: 0
  140. -- line height: 16
  141. -- part name: Info Button
  142. ----- HyperTalk script -----
  143. on mouseUp
  144.   push card
  145.   go to stack "NNCS"
  146.   show card button id 6
  147. end mouseUp
  148.  
  149.  
  150.  
  151.  
  152. -- part 12 (button)
  153. -- low flags: 00
  154. -- high flags: 2000
  155. -- rect: left=439 top=27 right=61 bottom=480
  156. -- title width / last selected line: 0
  157. -- icon id / first selected line: 20098 / 20098
  158. -- text alignment: 1
  159. -- font id: 0
  160. -- text size: 12
  161. -- style flags: 0
  162. -- line height: 16
  163. -- part name: New Button
  164. ----- HyperTalk script -----
  165. on mouseUp
  166.   go to home
  167. end mouseUp
  168.  
  169.  
  170.  
  171. -- part 13 (button)
  172. -- low flags: 00
  173. -- high flags: A003
  174. -- rect: left=369 top=77 right=99 bottom=469
  175. -- title width / last selected line: 0
  176. -- icon id / first selected line: 0 / 0
  177. -- text alignment: 1
  178. -- font id: 0
  179. -- text size: 12
  180. -- style flags: 0
  181. -- line height: 16
  182. -- part name: New Neuron
  183. ----- HyperTalk script -----
  184. on mouseUp
  185.   doMenu "New Card"
  186. end mouseUp
  187.  
  188.  
  189.  
  190. -- part 14 (button)
  191. -- low flags: 00
  192. -- high flags: A003
  193. -- rect: left=368 top=119 right=141 bottom=468
  194. -- title width / last selected line: 0
  195. -- icon id / first selected line: 0 / 0
  196. -- text alignment: 1
  197. -- font id: 0
  198. -- text size: 12
  199. -- style flags: 0
  200. -- line height: 16
  201. -- part name: Clear Net
  202. ----- HyperTalk script -----
  203. on mouseUp
  204.   push card
  205.  
  206.   set the cursor to 4
  207.   set the lockScreen to true
  208.  
  209.   go to first card
  210.   put the id of this card into FirstCardID
  211.   put empty into field "Input"
  212.   put empty into field "Output"
  213.   go to next card
  214.   put the id of this card into ThisCardID
  215.   repeat while ThisCardID <> FirstCardID
  216.     put empty into field "Input"
  217.     put empty into field "Output"
  218.     go to next card
  219.     put the id of this card into ThisCardID
  220.   end repeat
  221.  
  222.   set the cursor to 1
  223.   set the lockScreen to false
  224.  
  225.   pop card
  226. end mouseUp
  227.  
  228.  
  229.  
  230. -- part 15 (button)
  231. -- low flags: 00
  232. -- high flags: A003
  233. -- rect: left=368 top=145 right=167 bottom=468
  234. -- title width / last selected line: 0
  235. -- icon id / first selected line: 0 / 0
  236. -- text alignment: 1
  237. -- font id: 0
  238. -- text size: 12
  239. -- style flags: 0
  240. -- line height: 16
  241. -- part name: Run Net
  242. ----- HyperTalk script -----
  243. on mouseUp
  244.  
  245.   Ask "Number of cycles:" with 1
  246.   put it into NumCycles
  247.  
  248.   set the cursor to 4
  249.   set the lockScreen to true
  250.  
  251.   repeat for numCycles
  252.  
  253.     go to first card
  254.     put the id of this card into FirstCardID
  255.     Put field "Input" into X
  256.     Do field "Transformation"
  257.     put field "Resting Value"+ Y into field "Output"
  258.     put empty into field "Input"
  259.     go to next card
  260.     put the id of this card into ThisCardID
  261.     repeat while ThisCardID <> FirstCardID
  262.       Put field "Input" into X
  263.       Do field "Transformation"
  264.       put field "Resting Value"+ Y into field "Output"
  265.       put empty into field "Input"
  266.       go to next card
  267.       put the id of this card into ThisCardID
  268.     end repeat
  269.  
  270.     SendOut
  271.     go to next card
  272.     put the id of this card into ThisCardID
  273.     repeat while ThisCardID <> FirstCardID
  274.       SendOut
  275.       go to next card
  276.       put the id of this card into ThisCardID
  277.     end repeat
  278.  
  279.   end repeat
  280.  
  281.   Put field "Input" into X
  282.   Do field "Transformation"
  283.   put field "Resting Value"+ Y into field "Output"
  284.   put empty into field "Input"
  285.   go to next card
  286.   put the id of this card into ThisCardID
  287.   repeat while ThisCardID <> FirstCardID
  288.     Put field "Input" into X
  289.     Do field "Transformation"
  290.     put field "Resting Value"+ Y into field "Output"
  291.     put empty into field "Input"
  292.     go to next card
  293.     put the id of this card into ThisCardID
  294.   end repeat
  295.  
  296.   set the cursor to 1
  297.   set the lockScreen to false
  298.  
  299. end mouseUp
  300.  
  301.  
  302.  
  303. -- part 16 (button)
  304. -- low flags: 00
  305. -- high flags: A003
  306. -- rect: left=369 top=187 right=210 bottom=469
  307. -- title width / last selected line: 0
  308. -- icon id / first selected line: 0 / 0
  309. -- text alignment: 1
  310. -- font id: 0
  311. -- text size: 12
  312. -- style flags: 0
  313. -- line height: 16
  314. -- part name: Connect
  315. ----- HyperTalk script -----
  316. on mouseUp
  317.   Show bkgnd button "Confirm Connect"
  318.   Show bkgnd button "Cancel Connect"
  319.   Hide bkgnd button "Connect"
  320.   push card
  321. end mouseUp
  322.  
  323.  
  324.  
  325. -- part 17 (button)
  326. -- low flags: 80
  327. -- high flags: A003
  328. -- rect: left=361 top=216 right=238 bottom=480
  329. -- title width / last selected line: 0
  330. -- icon id / first selected line: 0 / 0
  331. -- text alignment: 1
  332. -- font id: 0
  333. -- text size: 12
  334. -- style flags: 0
  335. -- line height: 16
  336. -- part name: Confirm Connect
  337. ----- HyperTalk script -----
  338. on mouseUp
  339.   get the id of this card
  340.   pop card
  341.   put number of chars in field "Connections" into DoReturn
  342.   if DoReturn > 0 then put return after field "Connections"
  343.   put it after field "Connections"
  344.   Hide bkgnd button "Confirm Connect"
  345.   Hide bkgnd button "Cancel Connect"
  346.   Show bkgnd button "Connect"
  347. end mouseUp
  348.  
  349.  
  350.  
  351. -- part 18 (button)
  352. -- low flags: 80
  353. -- high flags: A003
  354. -- rect: left=362 top=243 right=264 bottom=480
  355. -- title width / last selected line: 0
  356. -- icon id / first selected line: 0 / 0
  357. -- text alignment: 1
  358. -- font id: 0
  359. -- text size: 12
  360. -- style flags: 0
  361. -- line height: 16
  362. -- part name: Cancel Connect
  363. ----- HyperTalk script -----
  364. on mouseUp
  365.   Pop Card
  366.   Hide bkgnd button "Confirm Connect"
  367.   Hide bkgnd button "Cancel Connect"
  368.   Show bkgnd button "Connect"
  369. end mouseUp
  370.  
  371.  
  372.  
  373. -- part 19 (button)
  374. -- low flags: 00
  375. -- high flags: 2000
  376. -- rect: left=359 top=271 right=302 bottom=395
  377. -- title width / last selected line: 0
  378. -- icon id / first selected line: 29114 / 29114
  379. -- text alignment: 1
  380. -- font id: 0
  381. -- text size: 12
  382. -- style flags: 0
  383. -- line height: 16
  384. -- part name: New Button
  385. ----- HyperTalk script -----
  386. on mouseUp
  387.   pop card
  388. end mouseUp
  389.  
  390.  
  391.  
  392. -- part 20 (button)
  393. -- low flags: 00
  394. -- high flags: A002
  395. -- rect: left=441 top=276 right=298 bottom=481
  396. -- title width / last selected line: 0
  397. -- icon id / first selected line: 0 / 0
  398. -- text alignment: 1
  399. -- font id: 0
  400. -- text size: 12
  401. -- style flags: 0
  402. -- line height: 16
  403. -- part name: Find
  404. ----- HyperTalk script -----
  405. on mouseUp
  406.   ask "Find:" with "something"
  407.   find it
  408. end mouseUp
  409.  
  410.  
  411.  
  412. -- part 21 (button)
  413. -- low flags: 00
  414. -- high flags: 2000
  415. -- rect: left=359 top=309 right=336 bottom=389
  416. -- title width / last selected line: 0
  417. -- icon id / first selected line: 902 / 902
  418. -- text alignment: 1
  419. -- font id: 0
  420. -- text size: 12
  421. -- style flags: 0
  422. -- line height: 16
  423. -- part name: Backward
  424. ----- HyperTalk script -----
  425. on mouseUp
  426.   go to prev card
  427. end mouseUp
  428.  
  429.  
  430.  
  431. -- part 22 (button)
  432. -- low flags: 00
  433. -- high flags: 2000
  434. -- rect: left=450 top=307 right=336 bottom=480
  435. -- title width / last selected line: 0
  436. -- icon id / first selected line: 26425 / 26425
  437. -- text alignment: 1
  438. -- font id: 0
  439. -- text size: 12
  440. -- style flags: 0
  441. -- line height: 16
  442. -- part name: Foward
  443. ----- HyperTalk script -----
  444. on mouseUp
  445.   go to next card
  446. end mouseUp
  447.  
  448.