############
# my small 3d engine
# 
#
######################################
use strict;
use warnings;

use prj::ms3d;
use Tk;

my     $mw     = MainWindow->new();
my     $dc     = prj::ms3d->new($mw, 320, 240, );
    $dc->addTriangle(0,0,1, -1,1,1, 1,1,1, "red");
    $dc->rotate('x', 90);
    $dc->addTriangle(0,0,1,  1,-1,1, 0,1,1, "blue");
    $dc->scale(0.1, 0.1, 1);
    $dc->translate(0.5, 0.5,0);

    $dc->redraw();
MainLoop();