type Pixel :
    record
        CLR : array 1 .. 3 of int2
        Alpha : real4
    end record

type Buffer :
    record
        RGB : Pixel
        Depth : int1
    end record


class Layer
    import Pixel, Buffer
    export Capture, Display, Scale

    const TransperentColor : int1 := 0
    var widthLayer, heightLayer : int2 := 0
    var posXLayer, posYLayer : int2 := 0
    var scale : int2 := 0
    var layer : flexible array 1 .. 0 of Buffer
    var layerBoundSize : int := 0

    procedure Scale (x : int2)
        scale := x
    end Scale

    procedure Capture (xPos1, yPos1, xPos2, yPos2 : int)
        var b : array 1 .. sizepic (xPos1, yPos1, xPos2, yPos2) of int
        takepic (xPos1, yPos1, xPos2, yPos2, b)
        heightLayer := b (1)
        widthLayer := b (2)
        posXLayer := xPos1
        posYLayer := yPos1
        layerBoundSize := widthLayer * heightLayer
        if layerBoundSize > upper (layer) then
            new layer, layerBoundSize
        end if
        b (7) := 48
        var id := 18
        var imageID : int := 0
        var n : int := 0
        for j : 1 .. heightLayer
            for i : 1 .. widthLayer
                imageID := imageID + 1
                    for p : 1 .. 3
                    layer (imageID).RGB.CLR (4 - p):= b (id) & 1 shr n
                    if n < 24 then
                        n += 8
                    else
                        n := 0
                        id += 1

                    end if
                end for
            end for
            if n > 0 then
                id += 1
                n := 0
            end if
        end for
    end Capture

    procedure Display
        cls
        var b : array 1 .. sizepic (1, 1, widthLayer, heightLayer) of int
        takepic (1, 1, widthLayer, heightLayer, b)
        for i : 19 .. upper (b)
            b (i) := 0
        end for
        b (7) := 48
        var id := 19
        var imageID : int := 0
        var n : int := 0
        for j : 1 .. heightLayer
            for i : 1 .. widthLayer
                imageID := imageID + 1
                for p : 1 .. 3
                    b (id)| = layer (imageID).RGB.CLR (4 - p) shl n
                    if n < 24 then
                        n += 8
                    else
                        n := 0
                        id += 1
                    end if
                end for
            end for
            if n > 0 then
                id += 1
                n := 0
            end if
        end for
        drawpic (posXLayer, posYLayer, b, 1)
        var pic1 : int := Pic.New (posXLayer, posYLayer, posXLayer + widthLayer, posYLayer + heightLayer)
        var pic2 : int := Pic.Scale (pic1, widthLayer * scale, heightLayer * scale)
        Pic.Draw (pic2, posXLayer, posXLayer, picCopy)
        View.Update
        Pic.Free (pic1)
        Pic.Free (pic2)
    end Display


end Layer

class Render



    procedure Color

    end Color

    procedure Update

    end Update
end Render


View.Set ("Graphics:640;440,offscreenonly,nobuttonbar")

procedure Test1
    var layer1 : pointer to Layer
    new Layer, layer1
    var pic1 : int := Pic.FileNew ("test.bmp")
    Pic.Draw (pic1, 1, 1, picCopy)
    View.Update
    layer1 -> Capture (1, 1, Pic.Width (pic1) , Pic.Height (pic1))
    Pic.Free (pic1)
    cls
    layer1 -> Scale (2)
    layer1 -> Display


end Test1

Test1

layer (imageID).RGB.CLR (4 - p):= b (id) & 1shr n

layer (imageID).RGB.CLR (4 - p):= b (id) & 255 shr n

    procedure FromBuffer (buffer : array 0 .. *, 0 .. * of int, x, y : int)
        for i : 0 .. upper (buffer, 1)
            for o : 0 .. upper (buffer, 2)
                Draw.Dot (x + i, y + o, buffer (i, o))
            end for
        end for
    end FromBuffer

(y - 1) * widthLayer + x

var clr : array 0 .. 3 of int := init (255, 255, 255, 255) %example of colors sent from a bitmap image
var x : nat4 := clr (0) shl 0| clr (1) shl 8| clr (2) shl 16| clr (3) shl 24 %the actual value sent from a bitmap image

var shiftValues : array 0 .. 3 of int := init (0, 8, 16, 24) %shift values, all colors are seperated by 8 bits
var y : nat4 := x %A temp variable to hold the value sent from the bitmap

for i : 0 .. 3 %for all 4 values
    clr (i) := y shr shiftValues (3 - i)  %the color is equal to temp variable's value shift right (3-i)*8
    y := y - (clr (i) shl shiftValues (3 - i)) % the temp variable is subtracted by the color value shift left (3-i)*8
end for % end for

for i : 0 .. 3
    put clr (i)
end for