fxruby 1.6.14-universal-darwin-9

data/examples/image.rb

@@ -0,0 +1,279 @@
+#!/usr/bin/env ruby
+
+require 'fox16'
+require 'fox16/colors'
+
+include Fox
+
+class ImageWindow < FXMainWindow
+
+  def initialize(app)
+    # Invoke base class initializer first
+    super(app, "Image Application", :opts => DECOR_ALL, :width => 800, :height => 600)
+
+    # Create a color dialog for later use
+    colordlg = FXColorDialog.new(self, "Color Dialog")
+    
+    contents = FXHorizontalFrame.new(self,
+      LAYOUT_SIDE_TOP|LAYOUT_FILL_X|LAYOUT_FILL_Y,
+      :padLeft => 0, :padRight => 0, :padTop => 0, :padBottom => 0)
+  
+    # LEFT pane to contain the canvas
+    canvasFrame = FXVerticalFrame.new(contents,
+      FRAME_SUNKEN|LAYOUT_FILL_X|LAYOUT_FILL_Y|LAYOUT_TOP|LAYOUT_LEFT,
+      :padLeft => 10, :padRight => 10, :padTop => 10, :padBottom => 10)
+  
+    # Label above the canvas               
+    FXLabel.new(canvasFrame, "Canvas Frame", :opts => JUSTIFY_CENTER_X|LAYOUT_FILL_X)
+  
+    # Horizontal divider line
+    FXHorizontalSeparator.new(canvasFrame, SEPARATOR_GROOVE|LAYOUT_FILL_X)
+
+    # Drawing canvas
+    @canvas = FXCanvas.new(canvasFrame, :opts => (FRAME_SUNKEN|
+      FRAME_THICK|LAYOUT_FILL_X|LAYOUT_FILL_Y|LAYOUT_TOP|LAYOUT_LEFT))
+    @canvas.connect(SEL_PAINT, method(:onCanvasRepaint))
+
+    # RIGHT pane for the buttons
+    buttonFrame = FXVerticalFrame.new(contents,
+      :opts => FRAME_SUNKEN|LAYOUT_FILL_Y|LAYOUT_TOP|LAYOUT_LEFT,
+      :padLeft => 10, :padRight => 10, :padTop => 10, :padBottom => 10)
+      
+
+    # Label above the buttons  
+    FXLabel.new(buttonFrame, "Button Frame", nil,
+      JUSTIFY_CENTER_X|LAYOUT_FILL_X);
+    
+    # Horizontal divider line
+    FXHorizontalSeparator.new(buttonFrame, SEPARATOR_RIDGE|LAYOUT_FILL_X)
+
+    FXLabel.new(buttonFrame, "&Background\nColor well", :opts => JUSTIFY_CENTER_X|LAYOUT_FILL_X)
+    @backwell = FXColorWell.new(buttonFrame, FXColor::White,
+      :opts => LAYOUT_CENTER_X|LAYOUT_TOP|LAYOUT_LEFT|LAYOUT_FIX_WIDTH|LAYOUT_FIX_HEIGHT,
+      :width => 100, :height => 30)
+    @backwell.connect(SEL_COMMAND, method(:onCmdWell))
+    
+    FXLabel.new(buttonFrame, "B&order\nColor well", :opts => JUSTIFY_CENTER_X|LAYOUT_FILL_X)
+    @borderwell = FXColorWell.new(buttonFrame, FXColor::Black,
+      :opts => LAYOUT_CENTER_X|LAYOUT_TOP|LAYOUT_LEFT|LAYOUT_FIX_WIDTH|LAYOUT_FIX_HEIGHT,
+      :width => 100, :height => 30)
+    @borderwell.connect(SEL_COMMAND, method(:onCmdWell))
+    
+    FXLabel.new(buttonFrame, "&Text\nColor well", :opts => JUSTIFY_CENTER_X|LAYOUT_FILL_X)
+    @textwell = FXColorWell.new(buttonFrame, FXColor::Black,
+      :opts => LAYOUT_CENTER_X|LAYOUT_TOP|LAYOUT_LEFT|LAYOUT_FIX_WIDTH|LAYOUT_FIX_HEIGHT,
+      :width => 100, :height => 30)
+    @textwell.connect(SEL_COMMAND, method(:onCmdWell))
+    
+    # Button to draw
+    FXButton.new(buttonFrame, "&Colors...\tPop the color dialog", nil,
+      colordlg, FXWindow::ID_SHOW,
+      :opts => FRAME_THICK|FRAME_RAISED|LAYOUT_FILL_X|LAYOUT_TOP|LAYOUT_LEFT,
+      :padLeft => 10, :padRight => 10, :padTop => 5, :padBottom => 5)
+
+    # Button to draw
+    saveBtn = FXButton.new(buttonFrame,
+      "Save Image...\tRead back image and save to file",
+      :opts => FRAME_THICK|FRAME_RAISED|LAYOUT_FILL_X|LAYOUT_TOP|LAYOUT_LEFT,
+      :padLeft => 10, :padRight => 10, :padTop => 5, :padBottom => 5)
+    saveBtn.connect(SEL_COMMAND, method(:onCmdRestore))
+    
+    # Exit button
+    FXButton.new(buttonFrame, "E&xit\tQuit ImageApp", nil,
+      getApp(), FXApp::ID_QUIT,
+      :opts => FRAME_THICK|FRAME_RAISED|LAYOUT_FILL_X|LAYOUT_TOP|LAYOUT_LEFT,
+      :padLeft => 10, :padRight => 10, :padTop => 5, :padBottom => 5)
+
+    # Allocate the color arrays
+    imgWidth = 512
+    imgHeight = 50
+
+    # Create images with dithering
+    @grey = FXImage.new(getApp(), nil,
+      IMAGE_OWNED|IMAGE_DITHER|IMAGE_SHMI|IMAGE_SHMP, imgWidth, imgHeight)
+    @red = FXImage.new(getApp(), nil,
+      IMAGE_OWNED|IMAGE_DITHER|IMAGE_SHMI|IMAGE_SHMP, imgWidth, imgHeight)
+    @green = FXImage.new(getApp(), nil,
+      IMAGE_OWNED|IMAGE_DITHER|IMAGE_SHMI|IMAGE_SHMP, imgWidth, imgHeight)
+    @blue = FXImage.new(getApp(), nil,
+      IMAGE_OWNED|IMAGE_DITHER|IMAGE_SHMI|IMAGE_SHMP, imgWidth, imgHeight)
+  
+    # Create image with nearest color instead of dithering
+    @grey_nodither = FXImage.new(getApp(), nil,
+      IMAGE_OWNED|IMAGE_NEAREST|IMAGE_SHMI|IMAGE_SHMP, imgWidth, imgHeight)
+    @red_nodither = FXImage.new(getApp(), nil,
+      IMAGE_OWNED|IMAGE_NEAREST|IMAGE_SHMI|IMAGE_SHMP, imgWidth, imgHeight)
+    @green_nodither = FXImage.new(getApp(), nil,
+      IMAGE_OWNED|IMAGE_NEAREST|IMAGE_SHMI|IMAGE_SHMP, imgWidth, imgHeight)
+    @blue_nodither = FXImage.new(getApp(), nil,
+      IMAGE_OWNED|IMAGE_NEAREST|IMAGE_SHMI|IMAGE_SHMP, imgWidth, imgHeight)
+  
+    # Result image
+    @picture = FXBMPImage.new(getApp(), nil, IMAGE_SHMI|IMAGE_SHMP, 850, 600)
+
+    # Fill up the color-ramp byte arrays (strings)
+    grey_data = @grey.data
+    grey_nodither_data = @grey_nodither.data
+    red_data = @red.data
+    red_nodither_data = @red_nodither.data
+    green_data = @green.data
+    green_nodither_data = @green_nodither.data
+    blue_data = @blue.data
+    blue_nodither_data = @blue_nodither.data
+    (0...512).each { |x|
+      halfX = x >> 1
+      (0...50).each { |y|
+        z = (y << 9) + x
+        grey_data[z]  = FXRGB(halfX, halfX, halfX)
+        grey_nodither_data[z] = grey_data[z]
+        red_data[z]   = FXRGB(halfX, 0, 0)
+        red_nodither_data[z] = red_data[z]
+        green_data[z] = FXRGB(0, halfX, 0)
+        green_nodither_data[z] = green_data[z]
+        blue_data[z]  = FXRGB(0, 0, halfX)
+        blue_nodither_data[z] = blue_data[z]
+      }
+    }
+
+    # Make font
+    @font = FXFont.new(getApp(), "times", 36, FONTWEIGHT_BOLD)
+  
+    # Make a tip
+    FXToolTip.new(getApp())
+  end
+
+  # Create and initialize
+  def create
+    # Create the windows
+    super
+
+    # Create images
+    @grey.create
+    @red.create
+    @green.create
+    @blue.create
+    @grey_nodither.create
+    @red_nodither.create
+    @green_nodither.create
+    @blue_nodither.create
+    @picture.create
+
+    # Create the font, too
+    @font.create
+
+    # Make the main window appear
+    show(PLACEMENT_SCREEN)
+
+    # Initial repaint
+    @canvas.update
+  end
+
+  def onCanvasRepaint(sender, sel, event)
+    if event.synthetic?
+      dc = FXDCWindow.new(@picture)
+  
+      # Erase the canvas, color comes from well
+      dc.foreground = @backwell.rgba
+
+      dc.fillRectangle(0, 0, @picture.width, @picture.height)
+
+      # Draw images
+      dc.drawImage(@grey, 10, 10)
+      dc.drawImage(@grey_nodither, 10, 60)
+      dc.drawImage(@red, 10, 130)
+      dc.drawImage(@red_nodither, 10, 180)
+      dc.drawImage(@green, 10, 250)
+      dc.drawImage(@green_nodither, 10, 300)
+      dc.drawImage(@blue, 10, 370)
+      dc.drawImage(@blue_nodither, 10, 420)
+
+      # Draw patterns
+      dc.fillStyle = FILL_OPAQUESTIPPLED
+      dc.foreground = FXColor::Black
+      dc.background = FXColor::White
+      (STIPPLE_0..STIPPLE_16).each do |pat|
+        dc.stipple = pat
+        dc.fillRectangle(10 + (512*pat)/17, 490, 31, 50)
+      end
+      dc.fillStyle = FILL_SOLID
+
+      # Draw borders
+      dc.foreground = @borderwell.rgba
+      dc.drawRectangle(10, 10, 512, 50)
+      dc.drawRectangle(10, 60, 512, 50)
+  
+      dc.drawRectangle(10, 130, 512, 50)
+      dc.drawRectangle(10, 180, 512, 50)
+  
+      dc.drawRectangle(10, 250, 512, 50)
+      dc.drawRectangle(10, 300, 512, 50)
+  
+      dc.drawRectangle(10, 370, 512, 50)
+      dc.drawRectangle(10, 420, 512, 50)
+  
+      dc.drawRectangle(10, 490, 512, 50)
+  
+      # Draw text
+      dc.font = @font
+      dc.foreground = @textwell.rgba
+      dc.drawText(540,  60, "Grey")
+      dc.drawText(540, 180, "Red")
+      dc.drawText(540, 300, "Green")
+      dc.drawText(540, 420, "Blue")
+      dc.drawText(540, 540, "Patterns")
+
+      # 
+      # Call end() to unlock the drawing surface and flush out
+      # the pending drawing commands.
+      #
+      dc.end
+    end
+      
+    # Now repaint the screen
+    sdc = FXDCWindow.new(@canvas, event)
+    
+    # Clear whole thing
+    sdc.foreground = @backwell.rgba
+    sdc.fillRectangle(0, 0, @canvas.width, @canvas.height)
+    
+    # Paint image
+    sdc.drawImage(@picture, 0, 0)
+
+    # 
+    # Call end() to unlock the drawing surface and flush out
+    # the pending drawing commands.
+    #
+    sdc.end
+  end
+
+  # Color well got changed
+  def onCmdWell(sender, sel, ptr)
+    @canvas.update
+  end
+
+  # Restore image from offscreen pixmap
+  def onCmdRestore(sender, sel, ptr)
+    saveDialog = FXFileDialog.new(self, "Save as BMP")
+    if saveDialog.execute != 0
+      FXFileStream.open(saveDialog.filename, FXStreamSave) do |outfile|
+        @picture.restore
+        @picture.savePixels(outfile)
+      end
+    end
+    return 1
+  end
+end
+
+if __FILE__ == $0
+  # Make application
+  application = FXApp.new("Image", "FoxTest")
+
+  # Make the main window
+  ImageWindow.new(application)
+
+  # Create the application window and resources
+  application.create
+
+  # Run the application
+  application.run
+end