{ import: sdl }
{ import: MiniCairo }
{ import: Views }
{ import: Views-drawing }
{ import: Views-properties }
{ import: Colour }
{ import: Shape }

[
    | sdl cairo r v |
    sdl := SDL new.
    sdl setVideoMode : 640 : 480 : 32 : 0.
    cairo := Cairo createImageSurfaceCreateForData: sdl pixels : 640, 480.

    r := Rectangle origin: 10, 10 extent: 100, 100.
    v := r shapedView.
    v strokeColour: Colour blue.
    v strokeWidth: 3.
    v fillColour: Colour red.
    v drawOn: cairo in: (Rectangle origin: 0, 0 extent: 640, 480).

    sdl flip.
    sdl delay: 1000.
    SDL quit.
]