Ticket #818: MyView.rb

# MyView.rb
# Pixels
#
# Created by Emil Tin on 28/07/10.
# Copyright 2010 __MyCompanyName__. All rights reserved.

class MyView < NSView
        attr_accessor   :nsBitmapImageRepObj
        attr_accessor   :nsRectFrameRect
        attr_accessor   :bitmapData
        
        def initWithFrame pFrameRect   
                if super
                        @nsRectFrameRect = pFrameRect
                        self
                end
    end
        
        
        def awakeFromNib
                @nsBitmapImageRepObj = NSBitmapImageRep.alloc.initWithBitmapDataPlanes nil,
                     pixelsWide:@nsRectFrameRect.size.width,
                     pixelsHigh:@nsRectFrameRect.size.height,
                     bitsPerSample:8,
                     samplesPerPixel:3,
                     hasAlpha:false,
                     isPlanar:false,
                     colorSpaceName:"NSCalibratedRGBColorSpace",
                     bytesPerRow:0,
                     bitsPerPixel:0
        end
        
        def drawBitmap
                puts @nsBitmapImageRepObj.bitmapData.class # => String
                puts @nsBitmapImageRepObj.bitmapData.size # => 0
                
                xs = 255.0/200.0
                ys = 255.0/200.0
                0.upto @nsRectFrameRect.size.height do |y|
                        0.upto @nsRectFrameRect.size.width do |x|
                                color = [x*xs,y*ys,0]
                                @nsBitmapImageRepObj.setPixel color, atX:x, y:y   
                        end
                end
                setNeedsDisplay true
        end

        def drawRect pRect
                drawBitmap
                NSGraphicsContext.saveGraphicsState
                nsBitmapImageRepObj.drawInRect pRect
                NSGraphicsContext.restoreGraphicsState
        end
        
end