qtruby4 2.1.0.b-mswin32 → 2.1.0-mswin32

data/examples/ruboids/release.rb

@@ -0,0 +1,152 @@
+#! /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.
+#
+# This script gathers everything needed to release RuBoids into one directory
+# and, if requested, publishes the contents to the RuBoids Web site.
+#
+# usage:
+#
+#	release.rb [--publish, -p]
+#
+# Specifying --publish or -p causes the resulting files to be published
+# to the Web site.
+#
+
+require 'net/ftp'
+require 'ftools'		# For makedirs and install
+require 'generateManifest'	# For--you guessed it--generating the Manifest
+
+# Start looking for RUBOIDS classes in this directory.
+# This forces us to use the local copy of RUBOIDS, even if there is
+# a previously installed version out there somewhere.
+$LOAD_PATH[0, 0] = '.'
+
+require 'ruboids/info'		# For Version string
+
+FILE_PERMISSION = 0644
+DIR_PERMISSION = 0755
+
+PUBLISH_FLAG = '-p'
+RUBOIDS_DIR = 'ruboids'
+DOCS_DIR = '.'
+#DOCS_HTML_DIR = "#{DOCS_DIR}/README"
+
+RUBOIDS_DIR_WITH_VERSION = "#{RUBOIDS_DIR}-#{Version}"
+RELEASE_DIR = "/tmp/#{RUBOIDS_DIR_WITH_VERSION}_release"
+#RELEASE_HTML_DIR = "#{RELEASE_DIR}/README"
+
+DOWNLOAD_FILE = "#{DOCS_DIR}/index.html"
+#DOCBOOK_FILE = "#{DOCS_DIR}/README.sgml"
+
+WEB_SITE = 'io.com'
+WEB_DIR = 'public-web/downloads/ruboids'
+
+# Copies all files from `fromDir' into the release directory. Sets the
+# permissions of all files to 0644.
+def copyFiles(fromDir, toDir, match=nil)
+    Dir.foreach(fromDir) { | f |
+	next if f =~ /^\.\.?/ || (!match.nil? && !(f =~ match))
+	File.install("#{fromDir}/#{f}", toDir, FILE_PERMISSION)
+    }
+end
+
+# Recursively removes the contents of a directory.
+def rmDirectory(dirName)
+    return unless File.exists?(dirName)
+    Dir.foreach(dirName) { | f |
+	next if f =~ /^\.\.?/
+	path = "#{dirName}/#{f}"
+	rmDirectory(path) if File.directory?(path)
+	File.delete(path) if !File.directory?(path)
+    }
+    
+end
+
+# Recursively sends files and directories.
+def sendToWebSite(ftp, releaseDir, webDir)
+    ftp.chdir(webDir)
+    Dir.foreach(releaseDir) { | f |
+	next if f =~ /^\.\.?/
+	path = "#{releaseDir}/#{f}"
+	if File.directory?(path)
+	    begin
+		ftp.mkdir(f)
+	    rescue Net::FTPPermError
+		# ignore; it's OK if the directory already exists
+	    end
+	    sendToWebSite(ftp, path, f)
+	    ftp.chdir('..')
+	else
+	    ftp.putbinaryfile(path, f)
+	end
+    }
+end
+
+def ensureVersionInFile(fileName, regex)
+    lines = File.open(fileName).grep(regex)
+    found = lines.detect { | line | line =~ /#{Version}/o }
+    if !found
+	$stderr.puts "Warning: it looks like the #{fileName} version number" +
+	    " is incorrect"
+    end
+end
+
+# ================================================================
+# main
+# ================================================================
+
+# Make sure the docs mention the correct version number.
+#ensureVersionInFile(DOWNLOAD_FILE, /Download the latest/)
+#ensureVersionInFile(DOCBOOK_FILE, /releaseinfo/)
+
+# Empty release dir if it already exists.
+rmDirectory(RELEASE_DIR)
+
+# (Re)create release dir. This makes RELEASE_HTML_DIR, whose parent
+# is RELEASE_DIR. Therefore, RELEASE_DIR is created as well.
+#File.makedirs(RELEASE_HTML_DIR)
+File.makedirs(RELEASE_DIR)
+
+# Recreate the full documentation (creating README and docs/README) and copy
+# the HTML files to the release directory. Finally, clean up the docs
+# directory.
+
+#system("cd #{DOCS_DIR} && make")
+#copyFiles(DOCS_DIR, RELEASE_DIR, /\.html$/)
+#copyFiles(DOCS_HTML_DIR, RELEASE_HTML_DIR, /\.html$/)
+copyFiles(DOCS_DIR, RELEASE_DIR, 'index.html')
+
+# Generate the Manifest file.
+generateManifest()
+
+# Create .tar.gz file. We temporarily rename the RUBOIDS folder to
+# "ruboids-X.Y.Z", tar and gzip that directory, then restore its original
+# name.
+Dir.chdir('..')
+File.rename(RUBOIDS_DIR, RUBOIDS_DIR_WITH_VERSION)
+system("tar -czf #{RELEASE_DIR}/#{RUBOIDS_DIR_WITH_VERSION}.tar.gz " +
+       RUBOIDS_DIR_WITH_VERSION)
+File.chmod(FILE_PERMISSION, "#{RELEASE_DIR}/#{RUBOIDS_DIR_WITH_VERSION}.tar.gz")
+File.rename(RUBOIDS_DIR_WITH_VERSION, RUBOIDS_DIR)
+
+# ftp files if requested
+if !ARGV.empty? && ARGV[0] == PUBLISH_FLAG
+    require 'net/ftp'
+
+    # Ask for ftp username and password
+    guess = ENV['LOGNAME'] || ENV['USER']
+    print "username [#{guess}]: "
+    username = $stdin.gets().chomp()
+    username = guess if username.empty?
+    print "password: "
+    password = $stdin.gets().chomp()
+
+    # ftp files to web site
+    ftp = Net::FTP.open(WEB_SITE, username, password)
+    sendToWebSite(ftp, RELEASE_DIR, WEB_DIR)
+    ftp.close()
+end

data/examples/ruboids/ruboids/Boid.rb

@@ -0,0 +1,141 @@
+#
+# 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 'BoidView'
+require 'Flock'
+require 'Point'
+require 'Params'
+
+class Boid < Thing
+
+    attr_accessor :maxSpeed, :maxSpeedSquared, :perchingTurnsLeft,
+	:wingFlapPos, :almostGroundLevel, :flock
+
+    def initialize(pos = nil)
+	super(pos, nil)
+	init
+    end
+
+    def init
+	@maxSpeed = $PARAMS['boid_max_speed']
+	@maxSpeedSquared = @maxSpeed * @maxSpeed
+	@flock = nil		# set by flock when flock adds to self
+	@wingFlapPos = rand(7)
+	@perchingTurnsLeft = 0
+	@almostGroundLevel = 5.0
+
+	@view = BoidView.new(self)
+    end
+
+    def move
+	# Flap wings. Only flap occasionally if not perching.
+	if (@perchingTurnsLeft == 0 ||
+	    rand(100) < $PARAMS['boid_perch_wing_flap_percent'])
+	    @wingFlapPos = (@wingFlapPos + 1) & 7
+	end
+
+	if @perchingTurnsLeft > 0
+	    # Only take off when wing flap position == 2.
+	    if --@perchingTurnsLeft == 0 && @wingFlapPos != 2
+		@perchingTurnsLeft = (8 + 2 - @wingFlapPos) & 7
+		return
+	    end
+	end
+
+	moveTowardsFlockCenter()
+	avoidOthers()
+	matchOthersVelocities()
+	boundPosition()
+	limitSpeed()
+
+	super()			# Add velocity vector to position.
+
+	# Boids at ground level perch for a while.
+	if @position.y < @almostGroundLevel
+	    @position.y = @almostGroundLevel
+	    @vector.x = @vector.y = @vector.z = 0
+	    @perchingTurnsLeft =
+		rand($PARAMS['boid_max_perching_turns'])
+	end
+    end
+
+    def moveTowardsFlockCenter()
+	flockCenter = @flock.centerExcluding(self)
+	flockCenter.subtractPoint(@position)
+	# Move 1% of the way towards the center
+	flockCenter.divideBy(100.0)
+
+	@vector.addPoint(flockCenter)
+    end
+
+    def avoidOthers()
+	c = Point.new()
+	@flock.members.each { | b |
+	    if b != self
+		otherPos = b.position
+		if @position.squareOfDistanceTo(otherPos) <
+			$PARAMS['boid_square_of_personal_space_dist']
+		    c.addPoint(@position)
+		    c.subtractPoint(otherPos)
+		end
+	    end
+	}
+	@vector.addPoint(c)
+    end
+
+    def matchOthersVelocities()
+	vel = Point.new()
+	flock.members.each { | b |
+	    if b != self
+		vel.addPoint(b.vector)
+	    end
+	}
+	vel.divideBy(flock.members.length - 1)
+	vel.subtractPoint(@vector)
+	vel.divideBy(8)
+
+	@vector.addPoint(vel)
+    end
+
+    def boundPosition()
+	v = Point.new
+
+	halfWidth = $PARAMS['world_width'] / 2
+	halfHeight = $PARAMS['world_height'] / 2
+	halfDepth = $PARAMS['world_depth'] / 2
+
+	if position.x < -halfWidth
+	    v.x = $PARAMS['boid_bounds_limit_pull']
+	elsif position.x > halfWidth
+	    v.x = -$PARAMS['boid_bounds_limit_pull']
+	end
+
+	if position.y < -halfHeight + almostGroundLevel +
+		$PARAMS['boid_bounds_limit_above_ground_level']
+	    v.y = $PARAMS['boid_bounds_limit_pull']
+	elsif position.y > halfHeight
+	    v.y = -$PARAMS['boid_bounds_limit_pull']
+	end
+
+	if position.z < -halfDepth
+	    v.z = $PARAMS['boid_bounds_limit_pull']
+	elsif position.z > halfDepth
+	    v.z = -$PARAMS['boid_bounds_limit_pull']
+	end
+
+	@vector.addPoint(v)
+    end
+
+    def limitSpeed()
+	speedSquared = Point::ORIGIN.squareOfDistanceTo(@vector)
+	if speedSquared > @maxSpeedSquared
+	    f = Math.sqrt(speedSquared) * @maxSpeed
+	    @vector.divideBy(f)
+	end
+    end
+end
+    

data/examples/ruboids/ruboids/BoidView.rb

@@ -0,0 +1,159 @@
+#
+# 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 'View'
+
+class BoidView < View
+
+    BODY_COLOR = [0, 0, 0]
+    BEAK_COLOR = [0.75, 0.5, 0.0]
+    SHADOW_COLOR = [0.25, 0.55, 0.25]
+
+    HALF_WING_BASE = 3
+    HALF_LENGTH = 5
+    HALF_THICKNESS = 1
+    NOSE_LENGTH = 3
+
+    @@object = nil
+    @@shadow = nil
+    @@wings = nil
+    @@wingsShadows = nil
+
+    def initialize(model)
+	super(model, [0, 0, 0])
+	@wings = nil
+	@wingsShadows = nil
+    end
+
+    def makeObject
+	@@object = BoidView.makeObject() unless @@object
+	@object = @@object
+	@wings = @@wings
+    end
+
+    def makeShadow
+	BoidView.makeShadow() unless @@shadow
+	@shadow = @@shadow
+	@wingsShadows = @@wingsShadows
+    end
+
+    def drawObject
+	super()
+
+	angle = 0
+	case model.wingFlapPos
+	when 0
+	    angle = 60
+	when 1, 7
+	    angle = 30
+	when 2, 6
+	    angle = 0
+	when 3, 5
+	    angle = -30
+	when 4
+	    angle = -60
+	end
+
+	PushMatrix()
+	Rotate(angle, 0, 0, 1)
+	CallList(@wings[0])
+	Rotate(angle * -2, 0, 0, 1)
+	CallList(@wings[1])
+	PopMatrix()
+    end
+
+    def BoidView.makeObject
+	makeWings()
+
+	object = GenLists(1)
+	NewList(object, COMPILE)
+
+	makeBody()
+	makeNose()
+
+	EndList()
+
+	return object
+    end
+
+    def BoidView.makeShadow
+	@@shadow = GenLists(1)
+	NewList(@@shadow, COMPILE)
+
+	p0 = Point::ORIGIN.dup()
+	p1 = Point::ORIGIN.dup()
+	dims = Point.new(HALF_THICKNESS, HALF_THICKNESS, HALF_LENGTH)
+	p0.subtractPoint(dims)
+	p1.addPoint(dims)
+	
+	groundLevel = -($PARAMS['world_height'] / 2) + 1
+
+	Color(SHADOW_COLOR)
+	Begin(QUADS)
+	Vertex(p1.x, groundLevel, p0.z)
+	Vertex(p0.x, groundLevel, p0.z)
+	Vertex(p0.x, groundLevel, p1.z)
+	Vertex(p1.x, groundLevel, p1.z)
+	End()
+#  	Begin(TRIANGLES)
+#  	Vertex(p1.x, groundLevel, p1.z)
+#  	Vertex(0, groundLevel, p0.z)
+#  	Vertex(p0.x, groundLevel, p1.z)
+#  	End()
+
+	EndList()
+    end
+
+    def BoidView.makeBody
+	p0 = Point::ORIGIN.dup()
+	p1 = Point::ORIGIN.dup()
+	dims = Point.new(HALF_THICKNESS, HALF_THICKNESS, HALF_LENGTH)
+	p0.subtractPoint(dims)
+	p1.addPoint(dims)
+
+	Color(BODY_COLOR)
+	Graphics.boxFromCorners(p0, p1)
+    end
+
+    def BoidView.makeWings
+	@@wings = []
+	len = -$PARAMS['boid_wing_length']
+	@@wings << makeOneWing(len)
+	@@wings << makeOneWing(-len)
+    end
+
+    def BoidView.makeOneWing(len)
+	wing = GenLists(1)
+	NewList(wing, COMPILE)
+
+	Color(BODY_COLOR)
+	Begin(TRIANGLES)
+
+	Vertex(0, 0, -HALF_WING_BASE)
+	Vertex(len, 0, 0)
+	Vertex(0, 0, HALF_WING_BASE)
+
+	End()
+	EndList()
+	return wing
+    end
+
+    def BoidView.makeNose()
+	Color(BEAK_COLOR)
+	Begin(TRIANGLE_FAN)
+
+	Vertex(0, 0, HALF_LENGTH + NOSE_LENGTH)
+	Vertex( HALF_THICKNESS,  HALF_THICKNESS, HALF_LENGTH)
+	Vertex(-HALF_THICKNESS,  HALF_THICKNESS, HALF_LENGTH)
+	Vertex(-HALF_THICKNESS, -HALF_THICKNESS, HALF_LENGTH)
+	Vertex( HALF_THICKNESS, -HALF_THICKNESS, HALF_LENGTH)
+
+	End()
+    end
+
+end
+