What PC? 1996 August/WPCAUG96.ISO/multi/singing/shared.dxr/01963_BITMAPS.ls

Text File | 1996-06-12 | 677 b | 32 lines

on MatteInk
  return 8
end

on InitBitMap theSprite
  puppetSprite(theSprite, 1)
  set the stretch of sprite theSprite to 0
  set the type of sprite theSprite to 1
  set the ink of sprite theSprite to MatteInk()
  set the foreColor of sprite theSprite to 255
  set the backColor of sprite theSprite to 0
end

on KillBitMap theSprite
  set the type of sprite theSprite to 0
end

on InstallBitMap theSprite, theCast, theH, theV, theInk
  InitBitMap(theSprite, theInk)
  set the castNum of sprite theSprite to the number of cast theCast
  set the locH of sprite theSprite to theH
  set the locV of sprite theSprite to theV
end

on bitmap
  return 1
end

on copyInk
  return 0
end