rmagick 1.7.1

data/doc/ex/gradientfill.rb

@@ -0,0 +1,27 @@
+#! /usr/local/bin/ruby -w
+require 'RMagick'
+
+# Demonstrate the GradientFill class
+
+Rows = 100
+Cols = 300
+
+Start = "#900"
+End = "#000"
+
+fill = Magick::GradientFill.new(0, 0, 0, Rows, Start, End)
+img = Magick::Image.new(Cols, Rows, fill);
+
+# Annotate the filled image with the code that created the fill.
+
+ann = Magick::Draw.new
+ann.annotate(img, 0,0,0,0, "GradientFill.new(0, 0, 0, #{Rows}, '#{Start}', '#{End}')") {
+    self.gravity = Magick::CenterGravity
+    self.fill = 'white'
+    self.stroke = 'transparent'
+    self.pointsize = 14
+    }
+
+#img.display
+img.write("gradientfill.gif")
+exit

data/doc/ex/grav.rb

@@ -0,0 +1,44 @@
+#! /usr/local/bin/ruby -w
+
+require 'RMagick'
+
+imgl = Magick::ImageList.new
+imgl.new_image(400,200, Magick::HatchFill.new('white', 'lightcyan2'))
+
+gc = Magick::Draw.new
+
+# Draw blue lines to indicate positioning
+gc.stroke('blue')
+gc.fill('transparent')
+gc.rectangle(20,20, 380,180)
+gc.line(200,20, 200,180)
+gc.line(20,100, 380,100)
+
+# Draw text at all 9 compass points.
+gc.stroke('transparent')
+gc.fill('black')
+gc.gravity(Magick::NorthWestGravity)
+gc.text(20,20, 'NorthWestGravity')
+gc.gravity(Magick::NorthGravity)
+gc.text( 0,20, 'NorthGravity')
+gc.gravity(Magick::NorthEastGravity)
+gc.text(20,20, 'NorthEastGravity')
+gc.gravity(Magick::WestGravity)
+gc.text(20, 0, 'WestGravity')
+gc.gravity(Magick::CenterGravity)
+gc.text( 0, 0, 'CenterGravity')
+gc.gravity(Magick::EastGravity)
+gc.text(20, 0, 'EastGravity')
+gc.gravity(Magick::SouthWestGravity)
+gc.text(20,20, 'SouthWestGravity')
+gc.gravity(Magick::SouthGravity)
+gc.text( 0,20, 'SouthGravity')
+gc.gravity(Magick::SouthEastGravity)
+gc.text(20,20, 'SouthEastGravity')
+gc.draw(imgl)
+
+imgl.border!(1,1, "lightcyan2")
+
+imgl.write("grav.gif")
+exit
+

data/doc/ex/gravity.rb

@@ -0,0 +1,80 @@
+#! /usr/local/bin/ruby -w
+#
+#   A RMagick version of Magick++/demo/gravity.cpp
+#
+
+require 'RMagick'
+
+x, y = 100, 100
+
+begin
+
+    pic = Magick::ImageList.new
+
+    lines = Magick::Draw.new
+    lines.stroke "#600"
+    lines.fill_opacity 0
+    lines.line 300,100, 300,500
+    lines.line 100,300, 500,300
+    lines.rectangle 100,100, 500,500
+
+    draw = Magick::Draw.new
+    draw.pointsize = 30
+    draw.font = "Helvetica"
+    draw.fill = "#600"
+    draw.undercolor = "red"
+
+    0.step(330, 30) { |angle|
+        puts "angle #{angle}"
+        pic.new_image(600, 600) { self.background_color = "white" }
+
+        lines.draw pic
+
+        draw.annotate(pic, 0,0,x,y, "NorthWest") {
+            self.gravity = Magick::NorthWestGravity
+            self.rotation = angle
+        }
+        draw.annotate(pic, 0,0,0,y, "North") {
+            self.gravity = Magick::NorthGravity
+            self.rotation = angle
+        }
+        draw.annotate(pic, 0,0,x,y, "NorthEast") {
+            self.gravity = Magick::NorthEastGravity
+            self.rotation = angle
+        }
+        draw.annotate(pic, 0,0,x,0, "East") {
+            self.gravity = Magick::EastGravity
+            self.rotation = angle
+        }
+        draw.annotate(pic, 0,0,0,0, "Center") {
+            self.gravity = Magick::CenterGravity
+            self.rotation = angle
+        }
+        draw.annotate(pic, 0,0,x,y, "SouthEast") {
+            self.gravity = Magick::SouthEastGravity
+            self.rotation = angle
+        }
+        draw.annotate(pic, 0,0,0,y, "South") {
+            self.gravity = Magick::SouthGravity
+            self.rotation = angle
+        }
+        draw.annotate(pic, 0,0,x,y, "SouthWest") {
+            self.gravity =  Magick::SouthWestGravity
+            self.rotation = angle
+        }
+        draw.annotate(pic, 0,0,x,0, "West") {
+            self.gravity = Magick::WestGravity
+            self.rotation = angle
+        }
+    }
+
+    puts "Writing image \"rb_gravity_out.miff\"..."
+    pic.delay = 20
+    pic.write "./rm_gravity_out.miff"
+
+rescue
+    puts "#{$!} exception raised."
+    exit 1
+end
+
+exit 0

data/doc/ex/hatchfill.rb

@@ -0,0 +1,27 @@
+#! /usr/local/bin/ruby -w
+require 'RMagick'
+
+# Demonstrate the HatchFill class
+
+Cols = 300
+Rows = 100
+
+Background = "white"
+Foreground = "LightCyan2"
+
+fill = Magick::HatchFill.new(Background, Foreground)
+img = Magick::ImageList.new
+img.new_image(Cols, Rows, fill)
+
+# Annotate the filled image with the code that created the fill.
+
+ann = Magick::Draw.new
+ann.annotate(img, 0,0,0,0, "HatchFill.new('#{Background}', '#{Foreground}')") {
+    self.gravity = Magick::CenterGravity
+    self.fill = 'black'
+    self.stroke = 'transparent'
+    self.pointsize = 14
+    }
+#img.display
+img.write('hatchfill.gif')
+exit

data/doc/ex/implode.rb

@@ -0,0 +1,32 @@
+#! /usr/local/bin/ruby -w
+
+require 'RMagick'
+
+img = Magick::Image.read('images/Flower_Hat.jpg').first
+
+legend = Magick::Draw.new
+legend.stroke = 'transparent'
+legend.fill = 'white'
+legend.gravity = Magick::SouthGravity
+
+frames = Magick::ImageList.new
+
+implosion = 0.25
+8.times {
+    frames << img.implode(implosion)
+    legend.annotate(frames, 0,0,10,20, sprintf("% 4.2f", implosion))
+    implosion -= 0.10
+    }
+
+7.times {
+    implosion += 0.10
+    frames << img.implode(implosion)
+    legend.annotate(frames, 0,0,10,20, sprintf("% 4.2f", implosion))
+    }
+
+frames.delay = 10
+frames.iterations = 0
+puts "Producing animation..."
+
+frames.write("implode.gif")
+exit

data/doc/ex/level.rb

@@ -0,0 +1,12 @@
+#! /usr/local/bin/ruby -w
+require 'RMagick'
+
+# Demonstrate the Image#level method
+
+before = Magick::Image.read('images/Flower_Hat.jpg').first
+
+# Allow the white-point argument to default.
+# Brighten up the mid-tones a bit.
+after = before.level(0,1.50)
+after.write('level.jpg')
+exit

data/doc/ex/level_channel.rb

@@ -0,0 +1,33 @@
+#! /usr/local/bin/ruby -w
+require 'RMagick'
+
+# Demonstrate the Image#level_channel method
+
+before = Magick::Image.read('images/Flower_Hat.jpg').first
+
+# Let the final argument default
+begin
+    red   = before.level_channel(Magick::RedChannel,  Magick::MaxRGB, 2)
+    green = before.level_channel(Magick::GreenChannel,Magick::MaxRGB, 2)
+    blue  = before.level_channel(Magick::BlueChannel, Magick::MaxRGB, 2)
+
+    # Composite the green image over the middle of the red image.
+    # Composite the blue image over the right-hand side of the red image.
+    green.crop!(red.columns/3, 0, red.columns/3, red.rows)
+    blue.crop!(red.columns/3*2+1, 0, red.columns/3+1, red.rows)
+    result = red.composite(green, Magick::CenterGravity, Magick::OverCompositeOp)
+    result = result.composite(blue, Magick::EastGravity, Magick::OverCompositeOp)
+
+    # Draw a black line between each of the three images.
+    line = Magick::Draw.new
+    line.line(result.columns/3, 0, result.columns/3, result.rows)
+    line.line(result.columns/3*2+1, 0, result.columns/3*2+1, result.rows)
+    line.draw(result)
+
+# Substitute the standard "Not Implemented" image
+rescue NotImplementedError
+    result = Magick::Image.read("images/notimplemented.gif").first
+end
+
+result.write('level_channel.jpg')
+exit

data/doc/ex/line.rb

@@ -0,0 +1,40 @@
+#! /usr/local/bin/ruby -w
+require 'RMagick'
+
+imgl = Magick::ImageList.new
+imgl.new_image(250, 250, Magick::HatchFill.new('white','LightCyan2'))
+
+gc = Magick::Draw.new
+
+gc.stroke_linejoin('round')
+
+# Draw 3 lines in 3 colors.
+# Make each line 2 pixels wide.
+gc.stroke('red')
+gc.stroke_width(3)
+gc.line(50,50, 50,200)
+gc.stroke('blue')
+gc.line(50,200, 200,200)
+gc.stroke('green')
+gc.line(200,200, 50,50)
+
+# Identify the endpoints with gray circles
+gc.stroke('gray50')
+gc.stroke_width(1)
+gc.fill_opacity(0)
+gc.circle(50,50, 53,53)
+gc.circle(50,200, 53,203)
+gc.circle(200,200, 203,203)
+
+# Annotate the endpoints
+gc.fill('black')
+gc.stroke('transparent')
+gc.text(30,40, "'50,50'")
+gc.text(30,220, "'50,200'")
+gc.text(180, 220, "'200,200'")
+
+gc.draw(imgl)
+imgl.border!(1,1, "LightCyan2")
+
+imgl.write("line.gif")
+

data/doc/ex/map.rb

@@ -0,0 +1,28 @@
+#! /usr/local/bin/ruby -w
+
+# Demonstrate the map, append, and composite methods by
+# mapping the colors in three separate images into the
+# 216 "Web-safe" colors.
+
+require 'RMagick'
+
+# Read three images.
+unmapped = Magick::ImageList.new("images/Hot_Air_Balloons.jpg","images/Violin.jpg","images/Polynesia.jpg")
+
+# "Read" the Netscape 216-color cube
+map = Magick::ImageList.new "netscape:"
+
+# Map the group of unmapped into the Netscape colors
+$stdout.sync = true
+printf "Mapping... Please be patient, this may take a few seconds... "
+mapped = unmapped.map map, false
+puts "Done."
+
+# Use the append method to arrange the unmapped images
+# side-by-side into a single image. Repeat for the mapped images.
+before = unmapped.append false
+before.write 'map_before.jpg'
+
+after = mapped.append false
+after.write 'map_after.jpg'
+exit