let white = fromColor Color.White
    let s = mkShape baseDragon (mkMatTexture (mkMaterial (fromColor Color.White) 0.0))
    let affineS = transform dragon t1
    let l1 = mkLight (mkPoint 6.0 2.0 6.0) white 0.5
    let l2 = mkLight (mkPoint -6.0 2.0 6.0) (fromColor Color.Red) 0.5
    let l3 = mkLight (mkPoint -3.5 12.0 4.0) white 0.7
    let ambientLight = mkAmbientLight (fromColor Color.Blue) 0.1
    let camera = mkCamera (mkPoint 0.0 0.0 4.0) (mkPoint 0.0 0.0 0.0) (mkVector 0.0 1.0 0.0) 4.0 2.0 2.0 1000 1000
    let scene = mkScene [|affineDragon|] [l1; l2; l3] ambientLight 2
    renderToScreen (scene) camera