
FileVersion 1

// all units are in 1/20th of a pixel
FrameArea {
  width 4000
  height 3000
}

// frames per second
FrameRate 5.0

BackgroundColour { 128 0 128 }

// define the shape
DefineShape {
  id 1
  fillstyle { solid ffffffff }
  selectfillstyle0 1
  moveby { 1000 1000 }
  lineby { 1000 1000 }
  lineby { 1000 -1000 }
  lineby { -1000 -1000 }
  lineby { -1000 1000 }
}

// place the shape on the screen
PlaceObject {
  depth 1
  id 1
  matrix {
    65536           // scale x and y
    0 500           // translate
  }
}

DefineSound {
  id 100
  file "$.Blast"
  format "LIN8"
  channels 1
  freq 22
}

// wait 20 frames (4 seconds)
:for i = 1 to 20
ShowFrame { }
:next

// play the sound
PlaySound {
  id 100
}

ShowFrame { }
