//    Instruction Example :     long water.width.get (objectid)


        Screen.resolution.set(512,384)

        @pic=Picture.load ("avo\cloack.jpg")

        picture.persistence.set (@pic,TRUE)
        picture.display (@pic,center,center)
        %width=picture.width.get (@pic)
        %height=picture.height.get (@pic)

        @WaterID = Water.Create (%width, %height)
        Water.Display (@WaterID, center,center)

        Text.Display("Water Width : "+str (water.width.get (@WaterID)), CENTER, 20)
        Text.Display("Press a key to exit.", CENTER, 350)

        repeat ()
          %x=number.random.get (0,%width)
          %y=number.random.get (0,%height)

          water.rect.wave.create (@WaterID,100,4,%x,%y)

          time.wait ()

        until (keyboard.get ())

        Script.Stop()