Smooth transition

[Beertje]

Greetings,

I am trying to create a smooth transition slide show. The first 2 graphics
transition nicely but I can't get the rest to come up on the screen. Can
anyone tell me what I am missing here?

Thanks in advance,

George Carlile
[EMAIL PROTECTED]

property pOrigMember, pOrigImage
property pNextMember, pNextImage
property pWorkMember, pWorkImage
property pMatteImage
property pX

on beginSprite me
  -- get twelve images
  pOrigMember = sprite(me.spriteNum).member
  pNextMember = member(sprite(me.spriteNum).memberNum+1)
  pOrigImage = pOrigMember.image
  pNextImage = pNextMember.image
  pOrigImage = pOrigMember.image
  pNextImage = pNextMember.image
  pOrigImage = pOrigMember.image
  pNextImage = pNextMember.image
  pOrigImage = pOrigMember.image
  pNextImage = pNextMember.image
  pOrigImage = pOrigMember.image
  pNextImage = pNextMember.image
  pOrigImage = pOrigMember.image
  pNextImage = pNextMember.image
  pOrigImage = pOrigMember.image
  pNextImage = pNextMember.image
  pOrigImage = pOrigMember.image
  pNextImage = pNextMember.image
  pOrigImage = pOrigMember.image
  pNextImage = pNextMember.image
  pOrigImage = pOrigMember.image
  pNextImage = pNextMember.image
  pOrigImage = pOrigMember.image
  pNextImage = pNextMember.image

  -- create a working image and use it for the sprite
  pWorkMember = new(#bitmap)
  pWorkImage = duplicate(pOrigImage)
  pWorkMember.image = pWorkImage
  sprite(me.spriteNum).member = pWorkMember

  -- get the mask image for the soft edge
  pMatteImage = member("soft edge").image

  pX = 0
end

on exitFrame me
  -- advance the wipe 20 pixels
  pX = pX + 20

  -- draw the left side of the image
  r = pOrigImage.rect
  r.right = r.left + pX
  pWorkImage.copyPixels(pNextImage,r,r)

  -- draw the soft edge
  r = pOrigImage.rect
  r.left = pX
  r.right = pX + 20
  pWorkImage.copyPixels(pNextImage,r,r,[#ink: 8, #maskImage: pMatteImage,
#maskOffset: point(pX,0)])

  -- place new image
  pWorkMember.image = pWorkImage

  -- see if the wipe is done
  if pX >= pOrigImage.width then
    -- replace sprite with next member
    sprite(me.spriteNum).member = pNextMember
    -- remove working member
    erase(pWorkMember)
    -- get rid of this (and all) behaviors
    sprite(me.spriteNum).scriptInstanceList = []
  end if
end




[To remove yourself from this list, or to change to digest mode, go to
http://www.penworks.com/LUJ/lingo-l.cgi  To post messages to the list,
email [EMAIL PROTECTED]  (Problems, email [EMAIL PROTECTED])
Lingo-L is for learning and helping with programming Lingo.  Thanks!]