qtruby4 2.1.0.b-mswin32 → 2.1.0-mswin32

data/examples/ruboids/ruboids/Thing.rb

@@ -0,0 +1,34 @@
+#
+# Copyright (c) 2001 by Jim Menard <jimm@io.com>
+#
+# Released under the same license as Ruby. See
+# http://www.ruby-lang.org/en/LICENSE.txt.
+#
+
+require 'Point'
+
+class Thing
+
+    attr_accessor :position, :vector, :view
+
+    def initialize(pos = nil, vec = nil)
+	@position = pos ? pos : Point.new
+	@vector = vec ? vec : Point.new
+    end
+
+    def move
+	position.x += vector.x
+	position.y += vector.y
+	position.z += vector.z
+    end
+
+    def draw
+	view.draw() if view
+    end
+
+    def pixelsPerSecToPixelsPerMove(pixelsPerSecond)
+	pps = (pixelsPerSecond.to_f / (1000.0 / 75.0)).to_i
+	pps = 1 if pps == 0
+	return pps
+    end
+end

data/examples/ruboids/ruboids/Triangle.rb

@@ -0,0 +1,21 @@
+#
+# Copyright (c) 2001 by Jim Menard <jimm@io.com>
+#
+# Released under the same license as Ruby. See
+# http://www.ruby-lang.org/en/LICENSE.txt.
+#
+
+require 'Point'
+
+class Triangle
+    attr_accessor :points
+
+    def initialize(p0 = Point::ORIGIN,
+		   p1 = Point::ORIGIN,
+		   p2 = Point::ORIGIN)
+	@points = []
+	@points << p0 ? p0 : Point::ORIGIN.dup()
+	@points << p1 ? p1 : Point::ORIGIN.dup()
+	@points << p2 ? p2 : Point::ORIGIN.dup()
+    end
+end

data/examples/ruboids/ruboids/View.rb

@@ -0,0 +1,88 @@
+#
+# Copyright (c) 2001 by Jim Menard <jimm@io.com>
+#
+# Released under the same license as Ruby. See
+# http://www.ruby-lang.org/en/LICENSE.txt.
+#
+
+# A lightweight view
+class View
+
+    SHADOW_COLOR = [ 0.25, 0.25, 0.25 ]
+
+    attr_accessor :model, :color, :object, :shadow
+
+    def initialize(model, color = nil)
+	super()
+	@model = model
+	@color = color
+	@object = nil
+	@shadow = nil
+    end
+
+    def makeObject
+	raise "subclass should implement"
+    end
+
+    def makeShadow
+	# Don't raise error; some models may not have a shadow
+    end
+
+    def drawObject
+	CallList(@object)
+    end
+
+    def drawShadow
+	CallList(@shadow) if @shadow
+    end
+
+    def draw
+	# We don't always have enough information to make the 3D objects
+	# at initialize() time.
+	makeObject() unless @object
+	makeShadow() unless @shadow
+
+  	rot = Graphics.rotations(model.vector)
+
+	PushMatrix()
+
+	# Translate and rotate shadow. Rotation around y axis only.
+	Translate(model.position.x, 0, model.position.z)
+	Rotate(rot.y, 0, 1, 0) if rot.y.nonzero?
+
+	# Draw shadow.
+	drawShadow() unless @shadow.nil?
+
+	# Translate and rotate object. Rotate object around x and z axes (y
+	# axis already done for shadow).
+	Translate(0, model.position.y, 0)
+	Rotate(rot.x, 1, 0, 0) if rot.x.nonzero?
+	Rotate(rot.z, 0, 0, 1) if rot.z.nonzero?
+
+	# Draw object.
+	drawObject()
+
+	PopMatrix()
+    end
+
+    # Given the height of an object, return a shadow color. The shadow color
+    # gets lighter as heigt increases.
+    def shadowColorForHeight(height)
+	wh = $PARAMS['world_height']
+	ratio = (height + wh / 2.0) / wh
+
+	shadowColor = []
+	SHADOW_COLOR.each_with_index { | c0, i |
+	    min = c0
+	    max = Canvas::GRASS_COLOR[i]
+	    if min > max
+		tmp = min
+		min = max
+		max = tmp
+	    end
+	    shadowColor << min + ratio * (max - min)
+	}
+	return shadowColor
+    end
+
+end

data/examples/ruboids/ruboids/World.rb

@@ -0,0 +1,82 @@
+#
+# Copyright (c) 2001 by Jim Menard <jimm@io.com>
+#
+# Released under the same license as Ruby. See
+# http://www.ruby-lang.org/en/LICENSE.txt.
+#
+
+require 'singleton'
+require 'Qt'
+require 'Params'
+require 'Cloud'
+require 'Flock'
+require 'Boid'
+require 'Camera'
+require 'Canvas'
+
+class World < Qt::Object
+	slots 'slotMove()'
+	
+    include Singleton
+
+    attr_accessor :canvas
+    attr_reader :width, :height, :depth, :camera, :clouds, :flock
+
+    def initialize
+	super
+	@width = $PARAMS['world_width']
+	@height = $PARAMS['world_height']
+	@depth = $PARAMS['world_depth']
+
+	@clouds = []
+	minAltitude = $PARAMS['cloud_min_altitude']
+	$PARAMS['cloud_count'].times {
+	    c = Cloud.new
+	    c.position =
+		Point.new(rand(@width) - @width / 2,
+			  rand(@height) - @height / 2,
+			  rand(@depth - minAltitude) - @depth / 2 + minAltitude)
+	    @clouds << c
+	}
+	# Sort clouds by height so lower/darker shadows are drawn last
+	@clouds.sort { |a, b| a.position.y <=> b.position.y }
+
+	@flock = Flock.new
+	$PARAMS['flock_boids'].times {
+	    b = Boid.new
+	    b.position = Point.new(rand(@width) - @width / 2,
+				   rand(@height) - @height / 2,
+				   rand(@depth) - @depth / 2)
+	    @flock.add(b)	# flock will delete boid
+	}
+
+	@clock = Qt::Timer.new()
+	connect(@clock, SIGNAL('timeout()'), self, SLOT('slotMove()'))
+
+	@camera = Camera.new	# Reads values from params
+	setupTranslation()
+    end
+
+    # Should be called whenever camera or screen changes.
+    def setupTranslation
+	@canvas.update() if @canvas
+    end
+
+    def start
+	@clock.start($PARAMS['world_sleep_millis'])
+    end
+
+    def slotMove
+	@clouds.each { | c | c.move() }
+	@flock.move()
+	@canvas.update() if @canvas
+
+	# Camera follow boid.
+#  	b = @flock.members.first
+#    	@camera.position = b.position
+#  	@camera.rotation = Graphics.rotations(b.vector)
+#  	@camera.zoom = 1.0
+	    
+    end
+end
+

data/examples/ruboids/ruboids/WorldWindow.rb

@@ -0,0 +1,52 @@
+#
+# Copyright (c) 2001 by Jim Menard <jimm@io.com>
+#
+# Released under the same license as Ruby. See
+# http://www.ruby-lang.org/en/LICENSE.txt.
+#
+
+require 'Qt'
+require 'Canvas'
+require 'CameraDialog'
+
+class WorldWindow < Qt::MainWindow
+
+    slots 'slotCameraDialog()'
+
+    attr_accessor :canvas
+
+    def initialize
+        super
+        setWindowTitle("Boids")
+        setupMenubar()
+
+        @canvas = Canvas.new(self, "TheDamnCanvas")
+        setCentralWidget(@canvas)
+        setGeometry(0, 0, $PARAMS['window_width'],
+                    $PARAMS['window_height'])
+    end
+
+    def setupMenubar
+        # Create and populate file menu
+        exitAct = Qt::Action.new("E&xit", self)
+        exitAct.shortcut = Qt::KeySequence.new("Ctrl+Q")
+        connect(exitAct, SIGNAL('triggered()'), $qApp, SLOT('quit()'))
+
+        # Add file menu to menu bar
+        fileMenu = menuBar().addMenu("&File")
+        fileMenu.addAction(exitAct)
+
+        # Create and populate options menu
+        cameraAct = Qt::Action.new("&Camera...", self)
+        connect(cameraAct, SIGNAL('triggered()'), self, SLOT('slotCameraDialog()'))
+
+        # Add options menu to menu bar and link it to method below
+        optionsMenu = menuBar().addMenu("&Options")
+        optionsMenu.addAction(cameraAct)
+
+    end
+
+    def slotCameraDialog()
+        CameraDialog.new(nil).exec()
+    end
+end

data/examples/ruboids/ruboids/info.rb

@@ -0,0 +1,12 @@
+#
+# Copyright (c) 2001 by Jim Menard <jimm@io.com>
+#
+# Released under the same license as Ruby. See
+# http://www.ruby-lang.org/en/LICENSE.txt.
+#
+
+VERSION_MAJOR = 0
+VERSION_MINOR = 0
+VERSION_TWEAK = 1
+Version = "#{VERSION_MAJOR}.#{VERSION_MINOR}.#{VERSION_TWEAK}"
+Copyright = 'Copyright (c) 2001 by Jim Menard <jimm@io.com>'

data/examples/ruboids/ruboids/ruboids.rb

@@ -0,0 +1,29 @@
+#! /usr/bin/env ruby
+#
+# Copyright (c) 2001 by Jim Menard <jimm@io.com>
+#
+# Released under the same license as Ruby. See
+# http://www.ruby-lang.org/en/LICENSE.txt.
+#
+
+require 'Qt'
+require 'World'
+require 'WorldWindow'
+require 'Canvas'
+require 'Params'
+
+app = Qt::Application.new(ARGV)
+if (!Qt::GLFormat::hasOpenGL())
+    warning("This system has no OpenGL support. Exiting.")
+    exit -1
+end
+
+Params.readParamsFromFile(ARGV[0] || 'boids.properties')
+world = World.instance
+win = WorldWindow.new
+# app.mainWidget = win
+
+World.instance.canvas = win.canvas
+win.show
+World.instance.start
+app.exec

data/examples/textedit/textedit.rb

@@ -0,0 +1,150 @@
+#!/usr/bin/ruby -w
+
+require 'Qt'
+require 'rexml/document'
+
+require '../base/rui.rb'
+
+class MyTextEditor < Qt::TextEdit
+   signals 'saved()'
+   slots 'insert_icon()', 'new()', 'open()', 'save_as()'
+   def initialize(w = nil)
+      @images = {}
+      @@next_image_id = 0
+      super(w)
+      self.setTextFormat(Qt::RichText)
+   end
+   def insert_richtext(richtext)
+      # todo, use a rand string
+      unique_string = '000___xxx123456789xxx___xxx123456789xxx___000'
+      insert(unique_string)
+      txt = self.text().gsub(unique_string, richtext)
+      self.setText(txt)
+   end
+   def next_image_id
+      @@next_image_id += 1
+   end
+   def load_image(fname, image_id)
+      pixmap = Qt::Pixmap.new(fname)
+      msfactory = Qt::MimeSourceFactory.defaultFactory
+      msfactory.setPixmap(image_id, pixmap)
+      @images[image_id] = fname
+      image_id
+   end
+   def insert_icon
+      fname = Qt::FileDialog.getOpenFileName
+      return if fname.nil?
+      image_id = "image_#{next_image_id}"
+      load_image(fname, image_id)
+      insert_richtext('<qt><img source="'+image_id+'"></qt>')
+   end
+   def createPopupMenu(pos) # virtual
+      pm = Qt::PopupMenu.new
+      pm.insertItem("Insert Image!", self, SLOT('insert_icon()'))
+      pm
+   end
+   def has_metadata
+      !@images.empty?
+   end
+   def metadata_fname(fname)
+      "#{fname}.metadata.xml"
+   end
+   def attempt_metadata_load(fname)
+      return unless File.exists?(metadata_fname(fname))
+      file = File.open(metadata_fname(fname))
+      @xmldoc = REXML::Document.new file
+      @xmldoc.root.elements.each("image") {
+         |image|
+         image_id = image.attributes["ident"]
+         img_fname = image.attributes["filename"]
+         load_image(img_fname, image_id)
+      }
+   end
+   def metadata_save_if_has(fname)
+      return if not has_metadata
+      metadata_doc = REXML::Document.new '<metadata/>'
+      @images.each {
+         |id, img_fname|
+         metadata_doc.root.add_element("image", {"filename"=>img_fname, "ident"=>id})
+      }
+      file = File.new(metadata_fname(fname), "w")
+      file.puts(metadata_doc)
+      file.close
+   end
+   def metadata_clear
+      @images = {}
+   end
+   def new(txt = "")
+      metadata_clear
+      self.setText(txt)
+   end
+   def open
+      fname = Qt::FileDialog.getOpenFileName
+      return if fname.nil?
+      unless File.exists?(fname)
+         Qt::MessageBox.critical(self, "File Does Not Exist", "Sorry, unable to find the requested file!")
+         return
+      end
+      return if fname.nil?
+      txt = File.open(fname).gets(nil)
+      metadata_clear
+      attempt_metadata_load(fname)
+      self.setText(txt)
+   end
+   def save_as
+      fname = Qt::FileDialog.getSaveFileName
+      return if fname.nil?
+      if File.exists?(fname)
+         Qt::MessageBox.critical(self, "File Already Exists", "Sorry, file already exists. Please choose a non-existing filename!")
+         return save_as
+      end
+      file = File.new(fname, "w")
+      file.puts(text())
+      file.close
+      metadata_save_if_has(fname)
+      emit saved()
+   end
+end
+
+class MyWidget < Qt::MainWindow
+   slots 'text_changed()', 'saved()'
+   def initialize()
+      super
+      @editor = MyTextEditor.new(self)
+      connect(@editor, SIGNAL('textChanged()'), self, SLOT('text_changed()'))
+      connect(@editor, SIGNAL('saved()'), self, SLOT('saved()'))
+
+      fileTools = Qt::ToolBar.new(self, "file operations")
+      fileMenu = Qt::PopupMenu.new(self)
+
+      actions = [
+         RAction.new("&New",  Icons::FILE_NEW, @editor, SLOT('new()'), [fileTools, fileMenu]),
+         RAction.new("&Open...", Icons::FILE_OPEN, @editor, SLOT('open()'), [fileTools, fileMenu]),
+         @save = RAction.new("Save &As...", Icons::FILE_SAVE_AS, @editor, SLOT('save_as()'), [fileTools, fileMenu]),
+         RSeperator.new([fileMenu]),
+         RAction.new("E&xit", Icons::EXIT, $qApp, SLOT('quit()'), [fileMenu])
+      ]
+
+      build_actions(actions)
+
+      menubar = Qt::MenuBar.new(self)
+      menubar.insertItem("&File", fileMenu)
+
+      self.setCentralWidget(@editor)
+   end
+   def saved
+      @save.action.setEnabled(false)
+   end
+   def text_changed
+      @save.action.setEnabled(true)
+   end
+end
+
+a = Qt::Application.new(ARGV)
+
+w = MyWidget.new
+w.show
+
+a.setMainWidget(w)
+a.exec()
+exit