blank-canvas-0.6: wiki-suite/Scale_Transform.hs

{-# LANGUAGE OverloadedStrings #-}
module Scale_Transform where

import Graphics.Blank
import Wiki -- (578,200)

main :: IO ()
main = blankCanvas 3000 $ \ context -> do
    send context $ do
        let rectWidth = 150;
        let rectHeight = 75;
        translate(width context / 2, height context / 2);
        scale(1, 0.5);

        fillStyle "blue";
        fillRect(rectWidth / (-2), rectHeight / (-2), rectWidth, rectHeight);


    wiki $ snapShot context "images/Scale_Transform.png"
    wiki $ close context