Contents

#!/usr/bin/env ruby
# Copyright (C) 2004-2007 Kouichirou Eto, All rights reserved.

require "sgl/cocoa"

def setup
  $windowShadow = 0
  window 700, 700
  backgroundHSV 66, 100, 20
  $movie = movie("/Applications/iDVD 3/Tutorial/Media/Background Movie.mov")
  $movie.loop = 1
end

def onMouseDown(x, y)
  if 100 < x && x < 120 && 100 < y && y < 120
    #p x
    $movie.play
  end

  if 150 < x && x < 170 && 100 < y && y < 120
    $movie.stop
  end
end

def display
  x, y = mouseX, mouseY
  backgroundHSV 66, 100, 20, y/2

  $movie.rect 100, 200, 500, 500
  $movie.rate = x-350
  $movie.volume = y/7

  colorHSV 0, 100, 100
  rect 100, 100, 120, 120

  colorHSV 33, 100, 100
  rect 150, 100, 170, 120
end

mainloop

Version data entries

1 entries across 1 versions & 1 rubygems

Version	Path
sgl-1.0.0	examples/cocoa7-movie.rb