-- background: 3959 from stack: in
-- bmap block id: 4367
-- flags: 0000
-- background id: 0
-- name: 
----- HyperTalk script -----
on newCard
  put the id of this card into bkgnd field "Card ID"
  put "put X into Y" into field "Transformation"
end newcard

on newStack
  put the id of this card into bkgnd field "Card ID"
  put "put X into Y" into field "Transformation"
end newStack


-- part 1 (field)
-- low flags: 00
-- high flags: 2004
-- rect: left=48 top=26 right=51 bottom=168
-- 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: Title


-- part 2 (field)
-- low flags: 01
-- high flags: 2004
-- rect: left=165 top=26 right=51 bottom=263
-- 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: Card ID


-- part 3 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=115 top=63 right=80 bottom=302
-- 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: Resting Value


-- part 4 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=126 top=85 right=102 bottom=302
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Transformation


-- part 5 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=112 top=117 right=134 bottom=300
-- 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: Output


-- part 6 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=101 top=137 right=154 bottom=301
-- 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: Input


-- part 7 (field)
-- low flags: 00
-- high flags: 0007
-- rect: left=21 top=180 right=308 bottom=208
-- 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: Connections


-- part 8 (field)
-- low flags: 00
-- high flags: 0007
-- rect: left=207 top=180 right=308 bottom=301
-- 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: Connection Strength


-- part 11 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=360 top=28 right=59 bottom=392
-- title width / last selected line: 0
-- icon id / first selected line: 1020 / 1020
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Info Button
----- HyperTalk script -----
on mouseUp
  push card
  go to stack "NNCS"
  show card button id 6
end mouseUp




-- part 12 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=439 top=27 right=61 bottom=480
-- title width / last selected line: 0
-- icon id / first selected line: 20098 / 20098
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
  go to home
end mouseUp



-- part 13 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=369 top=77 right=99 bottom=469
-- 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: New Neuron
----- HyperTalk script -----
on mouseUp
  doMenu "New Card"
end mouseUp



-- part 14 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=368 top=119 right=141 bottom=468
-- 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: Clear Net
----- HyperTalk script -----
on mouseUp
  push card

  set the cursor to 4
  set the lockScreen to true

  go to first card
  put the id of this card into FirstCardID
  put empty into field "Input"
  put empty into field "Output"
  go to next card
  put the id of this card into ThisCardID
  repeat while ThisCardID <> FirstCardID
    put empty into field "Input"
    put empty into field "Output"
    go to next card
    put the id of this card into ThisCardID
  end repeat

  set the cursor to 1
  set the lockScreen to false

  pop card
end mouseUp



-- part 15 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=368 top=145 right=167 bottom=468
-- 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: Run Net
----- HyperTalk script -----
on mouseUp

  Ask "Number of cycles:" with 1
  put it into NumCycles

  set the cursor to 4
  set the lockScreen to true

  repeat for numCycles

    go to first card
    put the id of this card into FirstCardID
    Put field "Input" into X
    Do field "Transformation"
    put field "Resting Value"+ Y into field "Output"
    put empty into field "Input"
    go to next card
    put the id of this card into ThisCardID
    repeat while ThisCardID <> FirstCardID
      Put field "Input" into X
      Do field "Transformation"
      put field "Resting Value"+ Y into field "Output"
      put empty into field "Input"
      go to next card
      put the id of this card into ThisCardID
    end repeat

    SendOut
    go to next card
    put the id of this card into ThisCardID
    repeat while ThisCardID <> FirstCardID
      SendOut
      go to next card
      put the id of this card into ThisCardID
    end repeat

  end repeat

  Put field "Input" into X
  Do field "Transformation"
  put field "Resting Value"+ Y into field "Output"
  put empty into field "Input"
  go to next card
  put the id of this card into ThisCardID
  repeat while ThisCardID <> FirstCardID
    Put field "Input" into X
    Do field "Transformation"
    put field "Resting Value"+ Y into field "Output"
    put empty into field "Input"
    go to next card
    put the id of this card into ThisCardID
  end repeat

  set the cursor to 1
  set the lockScreen to false

end mouseUp



-- part 16 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=369 top=187 right=210 bottom=469
-- 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: Connect
----- HyperTalk script -----
on mouseUp
  Show bkgnd button "Confirm Connect"
  Show bkgnd button "Cancel Connect"
  Hide bkgnd button "Connect"
  push card
end mouseUp



-- part 17 (button)
-- low flags: 80
-- high flags: A003
-- rect: left=361 top=216 right=238 bottom=480
-- 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: Confirm Connect
----- HyperTalk script -----
on mouseUp
  get the id of this card
  pop card
  put number of chars in field "Connections" into DoReturn
  if DoReturn > 0 then put return after field "Connections"
  put it after field "Connections"
  Hide bkgnd button "Confirm Connect"
  Hide bkgnd button "Cancel Connect"
  Show bkgnd button "Connect"
end mouseUp



-- part 18 (button)
-- low flags: 80
-- high flags: A003
-- rect: left=362 top=243 right=264 bottom=480
-- 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: Cancel Connect
----- HyperTalk script -----
on mouseUp
  Pop Card
  Hide bkgnd button "Confirm Connect"
  Hide bkgnd button "Cancel Connect"
  Show bkgnd button "Connect"
end mouseUp



-- part 19 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=359 top=271 right=302 bottom=395
-- title width / last selected line: 0
-- icon id / first selected line: 29114 / 29114
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
  pop card
end mouseUp



-- part 20 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=441 top=276 right=298 bottom=481
-- 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: Find
----- HyperTalk script -----
on mouseUp
  ask "Find:" with "something"
  find it
end mouseUp



-- part 21 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=359 top=309 right=336 bottom=389
-- title width / last selected line: 0
-- icon id / first selected line: 902 / 902
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Backward
----- HyperTalk script -----
on mouseUp
  go to prev card
end mouseUp



-- part 22 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=450 top=307 right=336 bottom=480
-- title width / last selected line: 0
-- icon id / first selected line: 26425 / 26425
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Foward
----- HyperTalk script -----
on mouseUp
  go to next card
end mouseUp