home *** CD-ROM | disk | FTP | other *** search
/ Digital Design Material S…es 2: Stone Material Raw / 石素材王.iso / pc / showpict / 00003.ls < prev    next >
Encoding:
Text File  |  1996-12-24  |  1.8 KB  |  75 lines
  1. on showpict
  2.   global gfilename, showsize
  3.   if voidp(showsize) then
  4.     set showsize to "1:2"
  5.   end if
  6.   set oldframe to the frame
  7.   go(marker("loading"))
  8.   unLoad()
  9.   repeat with i = 1 to 3
  10.     set the visible of sprite i to 0
  11.   end repeat
  12.   set x to getPos(["2:1", "1:1", "1:2"], showsize)
  13.   set goframe to integer(char 4 to 6 of gfilename) + 10
  14.   preLoad(goframe, goframe)
  15.   go(goframe)
  16.   set the visible of sprite x to 1
  17. end
  18.  
  19. on zoom
  20.   global showsize, gfilename
  21.   set slist to ["2:1": 1, "1:1": 2, "1:2": 4]
  22.   set x to findPos(slist, showsize)
  23.   set oldpoint to (the clickLoc - the loc of sprite x) * getAt(slist, x)
  24.   if the optionDown then
  25.     if x = 3 then
  26.       beep()
  27.       exit
  28.     else
  29.       set the visible of sprite x to 0
  30.       set x to x + 1
  31.     end if
  32.   else
  33.     if x = 1 then
  34.       beep()
  35.       exit
  36.     else
  37.       set the visible of sprite x to 0
  38.       set x to x - 1
  39.     end if
  40.   end if
  41.   set showsize to getPropAt(slist, x)
  42.   set the title of window "showpict" to gfilename & "(" & showsize & ")"
  43.   set the loc of sprite x to the clickLoc - (oldpoint / getAt(slist, x))
  44.   set the visible of sprite x to 1
  45. end
  46.  
  47. on linkdata
  48.   set seriese to "stn"
  49.   repeat with i = 1 to 300
  50.     if i < 10 then
  51.       set it to seriese & "00" & i & ".pic"
  52.     else
  53.       if i < 100 then
  54.         set it to seriese & "0" & i & ".pic"
  55.       else
  56.         set it to seriese & i & ".pic"
  57.       end if
  58.     end if
  59.     set the fileName of member (100 + i) to pathName() & "pict:" & it
  60.     set the name of member (100 + i) to it
  61.     set the regPoint of member (100 + i) to point(0, 0)
  62.   end repeat
  63.   beep()
  64. end
  65.  
  66. on check
  67.   repeat with i = 10 to 310
  68.     go(i)
  69.     put i
  70.     put the width of sprite 1 & ":1600"
  71.     put the width of sprite 2 & ":800"
  72.     put the width of sprite 3 & ":400"
  73.   end repeat
  74. end
  75.