Otherware/Otherware_1_SB_Development.iso/mac/misc/math/mathgrap.sit/MathGrapher/card_9658.txt

Text File | 1989-07-28 | 17.4 KB | 808 lines

-- card: 9658 from stack: in
-- bmap block id: 10372
-- flags: 4000
-- background id: 4059
-- name: Graph Options
----- HyperTalk script -----
on OpenCard
  global XtickInterval,YtickInterval
  global XaxisScale, YaxisScale
  put line 1 of XtickInterval into cd fld "XSpacing"
  put line 1 of XaxisScale into cd fld "XScale"
  put line 1 of YtickInterval into cd fld "YSpacing"
  put line 1 of YaxisScale into cd fld "YScale"
end OpenCard

on CloseCard
  global XtickInterval,YtickInterval
  global XaxisScale, YaxisScale
  if cd fld "XSpacing" is not empty then
    put cd fld "XSpacing" into XtickInterval
  end if
  if cd fld "XScale" is not empty then
    put cd fld "XScale" into XaxisScale
  end if
  if cd fld "YSpacing" is not empty then
    put cd fld "YSpacing" into YtickInterval
  end if
  if cd fld "YScale" is not empty then
    put cd fld "YScale" into YaxisScale
  end if
end CloseCard

on EnterKey
  send mouseUp to btn "Graph"
end EnterKey



-- part 4 (field)
-- low flags: 01
-- high flags: 2002
-- rect: left=17 top=23 right=95 bottom=440
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 8448
-- line height: 16
-- part name:


-- part 5 (field)
-- low flags: 01
-- high flags: 2000
-- rect: left=21 top=92 right=117 bottom=148
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 2
-- text size: 12
-- style flags: 1280
-- line height: 16
-- part name:


-- part 6 (field)
-- low flags: 01
-- high flags: 2000
-- rect: left=226 top=91 right=115 bottom=373
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 2
-- text size: 12
-- style flags: 1280
-- line height: 16
-- part name:


-- part 8 (field)
-- low flags: 01
-- high flags: 2000
-- rect: left=253 top=111 right=247 bottom=490
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:


-- part 2 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=322 top=177 right=197 bottom=346
-- title width / last selected line: 0
-- icon id / first selected line: 26635 / 26635
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  lock screen
  show cd field "More Scale help"
  unlock screen with zoom open
end mouseUp



-- part 7 (field)
-- low flags: 01
-- high flags: 2000
-- rect: left=20 top=111 right=248 bottom=244
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:


-- part 9 (field)
-- low flags: 00
-- high flags: 0004
-- rect: left=61 top=233 right=253 bottom=111
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 4
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: XSpacing


-- part 10 (field)
-- low flags: 00
-- high flags: 0004
-- rect: left=328 top=205 right=225 bottom=386
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 4
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: XScale


-- part 11 (button)
-- low flags: 00
-- high flags: 8002
-- rect: left=448 top=36 right=90 bottom=494
-- title width / last selected line: 0
-- icon id / first selected line: 14953 / 14953
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Graph
----- HyperTalk script -----
on mouseUp
  visual effect scroll down
  go to card "Graph Paper"
end mouseUp



-- part 12 (field)
-- low flags: 00
-- high flags: 0004
-- rect: left=148 top=234 right=254 bottom=198
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 4
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: YSpacing


-- part 13 (field)
-- low flags: 00
-- high flags: 0004
-- rect: left=329 top=230 right=250 bottom=386
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 4
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: YScale


-- part 14 (field)
-- low flags: 01
-- high flags: 2000
-- rect: left=21 top=270 right=302 bottom=227
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:


-- part 15 (field)
-- low flags: 01
-- high flags: 2000
-- rect: left=20 top=252 right=277 bottom=147
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 2
-- text size: 12
-- style flags: 1280
-- line height: 16
-- part name:


-- part 16 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=31 top=305 right=328 bottom=56
-- 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:
----- HyperTalk script -----
on mouseUp
  global databrush
  put 2 into databrush
  repeat with s = 16 to 23
    set the hilite of btn id s to false
  end repeat
  set the hilite of me to true
end mouseUp



-- part 17 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=59 top=305 right=328 bottom=84
-- 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:
----- HyperTalk script -----
on mouseUp
  global databrush
  put 3 into databrush
  repeat with s = 16 to 23
    set the hilite of btn id s to false
  end repeat
  set the hilite of me to true
end mouseUp



-- part 18 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=85 top=305 right=328 bottom=110
-- 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:
----- HyperTalk script -----
on mouseUp
  global databrush
  put 4 into databrush
  repeat with s = 16 to 23
    set the hilite of btn id s to false
  end repeat
  set the hilite of me to true
end mouseUp



-- part 19 (button)
-- low flags: 00
-- high flags: 4000
-- rect: left=107 top=305 right=328 bottom=132
-- 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:
----- HyperTalk script -----
on mouseUp
  global databrush
  put 32 into databrush
  repeat with s = 16 to 23
    set the hilite of btn id s to false
  end repeat
  set the hilite of me to true
end mouseUp



-- part 20 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=129 top=305 right=328 bottom=154
-- 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:
----- HyperTalk script -----
on mouseUp
  global databrush
  put 28 into databrush
  repeat with s = 16 to 23
    set the hilite of btn id s to false
  end repeat
  set the hilite of me to true
end mouseUp



-- part 21 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=151 top=305 right=328 bottom=176
-- 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:
----- HyperTalk script -----
on mouseUp
  global databrush
  put 8 into databrush
  repeat with s = 16 to 23
    set the hilite of btn id s to false
  end repeat
  set the hilite of me to true
end mouseUp



-- part 22 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=178 top=305 right=328 bottom=203
-- 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:
----- HyperTalk script -----
on mouseUp
  global databrush
  put 7 into databrush
  repeat with s = 16 to 23
    set the hilite of btn id s to false
  end repeat
  set the hilite of me to true
end mouseUp



-- part 23 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=204 top=305 right=328 bottom=229
-- 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:
----- HyperTalk script -----
on mouseUp
  global databrush
  put 6 into databrush
  repeat with s = 16 to 23
    set the hilite of btn id s to false
  end repeat
  set the hilite of me to true
end mouseUp



-- part 24 (field)
-- low flags: 01
-- high flags: 2000
-- rect: left=241 top=252 right=277 bottom=368
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 2
-- text size: 12
-- style flags: 1280
-- line height: 16
-- part name:


-- part 25 (field)
-- low flags: 01
-- high flags: 2000
-- rect: left=253 top=270 right=302 bottom=459
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:


-- part 29 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=252 top=305 right=317 bottom=300
-- 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:
----- HyperTalk script -----
on mouseUp
  global lineDensity
  get the short name of me
  get last word of it
  put it - 28 into lineDensity
  repeat with b = 29 to 38
    set the hilite of btn id b to false
  end repeat
  set the hilite of me to true
end mouseUp



-- part 30 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=252 top=317 right=329 bottom=300
-- 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:
----- HyperTalk script -----
on mouseUp
  global lineDensity
  get the short name of me
  get last word of it
  put it - 28 into lineDensity
  repeat with b = 29 to 38
    set the hilite of btn id b to false
  end repeat
  set the hilite of me to true
end mouseUp



-- part 31 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=294 top=305 right=317 bottom=342
-- 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:
----- HyperTalk script -----
on mouseUp
  global lineDensity
  get the short name of me
  get last word of it
  put it - 28 into lineDensity
  repeat with b = 29 to 38
    set the hilite of btn id b to false
  end repeat
  set the hilite of me to true
end mouseUp



-- part 32 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=295 top=317 right=329 bottom=343
-- 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:
----- HyperTalk script -----
on mouseUp
  global lineDensity
  get the short name of me
  get last word of it
  put it - 28 into lineDensity
  repeat with b = 29 to 38
    set the hilite of btn id b to false
  end repeat
  set the hilite of me to true
end mouseUp



-- part 33 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=343 top=305 right=317 bottom=386
-- 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:
----- HyperTalk script -----
on mouseUp
  global lineDensity
  get the short name of me
  get last word of it
  put it - 28 into lineDensity
  repeat with b = 29 to 38
    set the hilite of btn id b to false
  end repeat
  set the hilite of me to true
end mouseUp



-- part 34 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=339 top=317 right=329 bottom=387
-- 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:
----- HyperTalk script -----
on mouseUp
  global lineDensity
  get the short name of me
  get last word of it
  put it - 28 into lineDensity
  repeat with b = 29 to 38
    set the hilite of btn id b to false
  end repeat
  set the hilite of me to true
end mouseUp



-- part 35 (button)
-- low flags: 00
-- high flags: 4000
-- rect: left=387 top=305 right=317 bottom=434
-- 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:
----- HyperTalk script -----
on mouseUp
  global lineDensity
  get the short name of me
  get last word of it
  put it - 28 into lineDensity
  repeat with b = 29 to 38
    set the hilite of btn id b to false
  end repeat
  set the hilite of me to true
end mouseUp



-- part 36 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=387 top=317 right=329 bottom=435
-- 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:
----- HyperTalk script -----
on mouseUp
  global lineDensity
  get the short name of me
  get last word of it
  put it - 28 into lineDensity
  repeat with b = 29 to 38
    set the hilite of btn id b to false
  end repeat
  set the hilite of me to true
end mouseUp



-- part 37 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=435 top=305 right=317 bottom=483
-- 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:
----- HyperTalk script -----
on mouseUp
  global lineDensity
  get the short name of me
  get last word of it
  put it - 28 into lineDensity
  repeat with b = 29 to 38
    set the hilite of btn id b to false
  end repeat
  set the hilite of me to true
end mouseUp



-- part 1 (field)
-- low flags: 81
-- high flags: 2004
-- rect: left=51 top=27 right=338 bottom=506
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: More Scale Help
----- HyperTalk script -----
on MouseLeave
  lock screen
  hide me
  unlock screen with zoom close
end MouseLeave

on MouseUp
  lock screen
  hide me
  unlock screen with zoom close
end MouseUp



-- part 38 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=437 top=317 right=329 bottom=485
-- 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:
----- HyperTalk script -----
on mouseUp
  global lineDensity
  get the short name of me
  get last word of it
  put it - 28 into lineDensity
  repeat with b = 29 to 38
    set the hilite of btn id b to false
  end repeat
  set the hilite of me to true
end mouseUp



-- part contents for card part 1
----- text -----
Your computer screen is composed of many little dots called pixels.  The "classic" Macintosh screen has a size of 512 x 342 pixels.  The area in which graphs are drawn in this HyperCard stack is somewhat smaller at 462 x 292 pixels.

I have made the default setting of the coordinate axes to be
                          1 spacing marker = 1 numerical unit

After you choose the function which you would like to be plotted you may discover that the default scale is not suitable for your needs.  If this is the case then you can change the default setting to any size that you would like.  You could enter N in the window where N is the distance between each spacing marker:

                          1 spacing marker = N numerical units
For example you could have 1 marker = 0.01 or 1 marker = 200.

You may dismiss this help section by clicking anywhere.



-- part contents for card part 4
----- text -----
This card provides you with the ability to scale and set the grid markings separately for each axis.  You can also set the size of the data points as well as the interval at which the points are plotted.







-- part contents for card part 5
----- text -----
Marker Spacing

-- part contents for card part 6
----- text -----
Marker Scale

-- part contents for card part 7
----- text -----
Shown below are sample spacings for the graph:
     10
     25
     50
   100
For example the first axis has a mark every 10 pixels.  What do want the spacing to be?
X axis                  Y axis

-- part contents for card part 8
----- text -----
One might think of a graph as a map.  A map of the earth could fit on a piece of typing paper just as well as a map of your local town.  The difference is in the scale.
Click here:        for more help.
What do you want the scale to be?
    X marker    =                units

    Y marker   =                units

-- part contents for card part 15
----- text -----
Data Point Size

-- part contents for card part 24
----- text -----
Line Density

-- part contents for card part 25
----- text -----
Click on the line density you want for your graph.

-- part contents for card part 14
----- text -----
Click on the shape that you want your data points to be.