#pragma once

namespace Guschin {

    using namespace System;
    using namespace System::ComponentModel;
    using namespace System::Collections;
    using namespace System::Windows::Forms;
    using namespace System::Data;
    using namespace System::Drawing;
    using namespace std;

    float Vx;
    float Vy;
    float aspectFig;
    vector<model> models;
    mat4 T;
    mat3 initT;
    
    vec3 S, P, u;
    float dist;
    float fovy, aspect;
    float fovy_work, aspect_work;
    float near, far;
    float n, f;
    float l, r, t, b;

    enum projType { Ortho, Frustum, Perspective } pType;

    public ref class MyForm : public System::Windows::Forms::Form
    {
    public:
        MyForm(void)
        {
            InitializeComponent();
        }

    protected:
        ~MyForm()
        {
            if (components)
            {
                delete components;
            }
        }

    private: 
        System::Windows::Forms::OpenFileDialog^ openFileDialog;
        System::Windows::Forms::Button^ btnOpen;
        System::ComponentModel::Container ^components;

#pragma region Windows Form Designer generated code
        void InitializeComponent(void)
        {
            this->openFileDialog = (gcnew System::Windows::Forms::OpenFileDialog());
            this->btnOpen = (gcnew System::Windows::Forms::Button());
            this->SuspendLayout();
            // 
            // openFileDialog
            // 
            this->openFileDialog->DefaultExt = L"txt";
            this->openFileDialog->Filter = L"Текстовые файлы (*.txt)|*.txt|Все файлы (*.*)|*.*";
            this->openFileDialog->Title = L"Открыть файл";
            // 
            // btnOpen
            // 
            this->btnOpen->Location = System::Drawing::Point(16, 15);
            this->btnOpen->Margin = System::Windows::Forms::Padding(4, 4, 4, 4);
            this->btnOpen->Name = L"btnOpen";
            this->btnOpen->Size = System::Drawing::Size(151, 48);
            this->btnOpen->TabIndex = 0;
            this->btnOpen->Text = L"Открыть";
            this->btnOpen->UseVisualStyleBackColor = true;
            this->btnOpen->Click += gcnew System::EventHandler(this, &MyForm::btnOpen_Click);
            // 
            // MyForm
            // 
            this->AutoScaleDimensions = System::Drawing::SizeF(8, 16);
            this->AutoScaleMode = System::Windows::Forms::AutoScaleMode::Font;
            this->ClientSize = System::Drawing::Size(737, 686);
            this->Controls->Add(this->btnOpen);
            this->DoubleBuffered = true;
            this->KeyPreview = true;
            this->Margin = System::Windows::Forms::Padding(4, 4, 4, 4);
            this->Name = L"MyForm";
            this->Text = L"MyForm";
            this->Load += gcnew System::EventHandler(this, &MyForm::MyForm_Load);
            this->Paint += gcnew System::Windows::Forms::PaintEventHandler(this, &MyForm::MyForm_Paint);
            this->KeyDown += gcnew System::Windows::Forms::KeyEventHandler(this, &MyForm::MyForm_KeyDown);
            this->Resize += gcnew System::EventHandler(this, &MyForm::MyForm_Resize);
            this->ResumeLayout(false);

        }
#pragma endregion
    private: 
        float left = 30, right = 100, top = 20, bottom = 50;
        float minX = left, maxX;
        float minY = top, maxY;
        float Wcx = left, Wcy;
        float Wx, Wy;

    private: 
        System::Void rectCalc() {
            maxX = ClientRectangle.Width - right;
            maxY = ClientRectangle.Height - bottom;
            Wcy = maxY;
            Wx = maxX - left;
            Wy = maxY - top;
        }
    private: 
        System::Void MyForm_Resize(System::Object^ sender, System::EventArgs^ e) {
            rectCalc();
            Refresh();
        }
    private:
        System::Void initWorkPars()
        {
            n = near;
            f = far;
            fovy_work = fovy;
            aspect_work = aspect;

            float Vy = 2 * near * tan(fovy / 2);
            float Vx = aspect * Vy;
            l = -Vx / 2;
            r = Vx / 2;
            b = -Vy / 2;
            t = Vy / 2;
            dist = length(P - S);
            T = lookAt(S, P, u);
        }
    private:
        System::Void MyForm_Paint(System::Object^ sender, System::Windows::Forms::PaintEventArgs^ e) {
            Graphics^ g = e->Graphics;
            g->Clear(Color::Aquamarine);

            Pen^ rectPen = gcnew Pen(Color::Black, 2);
            g->DrawRectangle(rectPen, left, top, Wx, Wy);

            mat4 proj;
            switch (pType)
            {
            case Ortho:
                proj = ortho(l, r, b, t, -n, -f);
                break;
            case Frustum:
                proj = frustum(l, r, b, t, n, f);
                break;
            case Perspective:
                proj = perspective(fovy_work, aspect_work, n, f);
                break;
            }

            mat3 cdr = cadrRL(vec2(-1.f, -1.f), vec2(2.f, 2.f), vec2(Wcx, Wcy), vec2(Wx, Wy));
            mat4 C = proj * T;

            for (int k = 0; k < models.size(); k++) {
                vector<path> figure = models[k].figure;
                mat4 TM = C * models[k].modelM;
                for (int i = 0; i < figure.size(); i++) {
                    path lines = figure[i];
                    Pen^ pen = gcnew Pen(Color::FromArgb(lines.color.x, lines.color.y, lines.color.z));
                    pen->Width = lines.thickness;

                    vec3 start_3D = normalize(TM * vec4(lines.vertices[0], 1.0));
                    vec2 start = normalize(cdr * vec3(vec2(start_3D), 1.f));
                    for (int j = 1; j < lines.vertices.size(); j++) {
                        vec3 end_3D = normalize(TM * vec4(lines.vertices[j], 1.0));
                        vec2 end = normalize(cdr * vec3(vec2(end_3D), 1.f));
                        vec2 tmpEnd = end;
                        if (clip(start, end, minX, minY, maxX, maxY)) {
                            g->DrawLine(pen, start.x, start.y, end.x, end.y);
                        }
                        start = tmpEnd;
                    }
                }
            }
        }
    private: 
        System::Void MyForm_Load(System::Object^  sender, System::EventArgs^  e) {
            rectCalc();
        }
    private: 
        System::Void MyForm_KeyDown(System::Object^ sender, System::Windows::Forms::KeyEventArgs^ e) {
            mat4 M;
            vec3 u_new;
            vec3 P_new;
            vec3 S_new;
            switch (e->KeyCode)
            {
            case Keys::Escape:
                initWorkPars();
                break;

            case Keys::D3:
                pType = Perspective;
                break;
            case Keys::D1:
                pType = Ortho;
                break;
            case Keys::D2:
                pType = Frustum;
                break;
            case Keys::W:
                if (Control::ModifierKeys == Keys::Shift) {
                    T = lookAt(vec3(0, 0, -0.1), vec3(0, 0, -0.2), vec3(0, 0.1, 0)) * T;
                }
                else {
                    T = lookAt(vec3(0, 0, -1), vec3(0, 0, -2), vec3(0, 1, 0)) * T;
                }
                break;
            case Keys::S:
                if (Control::ModifierKeys == Keys::Shift)
                    T = lookAt(vec3(0, 0, 0.1), vec3(0, 0, 0), vec3(0, 0.1, 0)) * T;
                else
                    T = lookAt(vec3(0, 0, 1), vec3(0, 0, 0), vec3(0, 1, 0)) * T;
                break;
            case Keys::A:
                if (Control::ModifierKeys == Keys::Shift)
                    T = lookAt(vec3(-0.1, 0, 0), vec3(-0.1, 0, -0.1), vec3(0, 0.1, 0)) * T;
                else
                    T = lookAt(vec3(-1, 0, 0), vec3(-1, 0, -1), vec3(0, 1, 0)) * T;
                break;
            case Keys::R:
                u_new = mat3(rotate(0.1, vec3(0, 0, 1))) * vec3(0, 1, 0);
                T = lookAt(vec3(0, 0, 0), vec3(0, 0, -1), u_new) * T;
                break;
            case Keys::T: {
                if (Control::ModifierKeys == Keys::Shift) {
                    M = rotateP(0.1, vec3(1, 0, 0), vec3(0, 0, -dist));
                    u_new = mat3(M) * vec3(0, 1, 0);
                    S_new = normalize(M * vec4(0, 0, 0, 1));
                    T = lookAt(S_new, vec3(0, 0, -dist), u_new) * T;
                }
                else {
                    M = rotate(0.1, vec3(1, 0, 0));
                    u_new = mat3(M) * vec3(0, 1, 0);
                    P_new = normalize(M * vec4(0, 0, -1, 1));
                    T = lookAt(vec3(0, 0, 0), P_new, u_new) * T;
                }
                break;
            }
            case Keys::I:
                if (Control::ModifierKeys == Keys::Shift) {
                    t -= 1;
                }
                else {
                    t += 1;
                }
                break;
            case Keys::J:
                if (Control::ModifierKeys == Keys::Shift) {
                    l += 1;
                }
                else {
                    l -= 1;
                }
                break;
            case Keys::D:
                if (Control::ModifierKeys == Keys::Shift)
                    T = lookAt(vec3(0.1, 0, 0), vec3(0.1, 0, -1.f), vec3(0, 0.1, 0)) * T;
                else
                    T = lookAt(vec3(1.f, 0, 0), vec3(1.f, 0, -1.f), vec3(0, 1.f, 0)) * T;
                break;

            case Keys::Y:
                u_new = mat3(rotate(-0.1, vec3(0, 0, 1))) * vec3(0, 1, 0);
                T = lookAt(vec3(0, 0, 0), vec3(0, 0, -1), u_new) * T;
                break;
            case Keys::G:
                if (Control::ModifierKeys == Keys::Shift) {
                    M = rotateP(-0.1, vec3(1, 0, 0), vec3(0, 0, -dist));
                    u_new = mat3(M) * vec3(0, 1, 0);
                    S_new = normalize(M * vec4(0, 0, 0, 1));

                    T = lookAt(S_new, vec3(0, 0, -dist), u_new) * T;
                }
                else {
                    M = rotate(-0.1, vec3(1, 0, 0));
                    u_new = mat3(M) * vec3(0, 1, 0);
                    P_new = normalize(M * vec4(0, 0, -1, 1));
                    T = lookAt(vec3(0, 0, 0), P_new, u_new) * T;
                }
                break;
            case Keys::F:
                if (Control::ModifierKeys == Keys::Shift) {
                    M = rotateP(0.1, vec3(0, 1, 0), vec3(0, 0, -dist));
                    u_new = mat3(M) * vec3(0, 1, 0);
                    S_new = normalize(M * vec4(0, 0, 0, 1));

                    T = lookAt(S_new, vec3(0, 0, -dist), u_new) * T;
                }
                else {
                    M = rotate(0.1, vec3(0, 1, 0));
                    u_new = mat3(M) * vec3(0, 1, 0);
                    P_new = normalize(M * vec4(0, 0, -1, 1));
                    T = lookAt(vec3(0, 0, 0), P_new, u_new) * T;
                }
                break;
            case Keys::H:
                if (Control::ModifierKeys == Keys::Shift) {
                    M = rotateP(-0.1, vec3(0, 1, 0), vec3(0, 0, -dist));
                    u_new = mat3(M) * vec3(0, 1, 0);
                    S_new = normalize(M * vec4(0, 0, 0, 1));

                    T = lookAt(S_new, vec3(0, 0, -dist), u_new) * T;
                }
                else {
                    M = rotate(-0.1, vec3(0, 1, 0));
                    u_new = mat3(M) * vec3(0, 1, 0);
                    P_new = normalize(M * vec4(0, 0, -1, 1));
                    T = lookAt(vec3(0, 0, 0), P_new, u_new) * T;
                }
                break;
            case Keys::K:
                if (Control::ModifierKeys == Keys::Shift)
                    b--;
                else
                    b++;
                break;
            case Keys::L:
                if (Control::ModifierKeys == Keys::Shift)
                    r--;
                else
                    r++;
                break;
            case Keys::U:
                if (Control::ModifierKeys == Keys::Shift)
                    if (n >= 0.3) n -= 0.2; else n;
                    else
                        if (n <= f - 0.3) n += 0.2;
                break;
            case Keys::O:
                if (Control::ModifierKeys == Keys::Shift)
                    if (f >= n + 0.3) f -= 0.2; else f;
                else
                    f += 0.2;
                break;
            case Keys::B:
                if (Control::ModifierKeys == Keys::Shift)
                    if (dist >= 0.3) dist -= 0.2; else dist;
                else
                    dist += 0.2;
                break;
            case Keys::Z:
                if (Control::ModifierKeys == Keys::Shift)
                    if (fovy_work >= 0.08) fovy_work -= 0.05; else fovy_work;
                else
                    if (fovy_work <= 2.95) fovy_work += 0.05; else fovy_work;
                break;
            case Keys::X:
                if (Control::ModifierKeys == Keys::Shift)
                    if (aspect_work >= 0.06) aspect_work -= 0.05; else aspect_work;
                else
                    aspect_work += 0.05;
                break;

            default:
                break;
            }
            Refresh();
        }
    private: 
        System::Void btnOpen_Click(System::Object^  sender, System::EventArgs^  e) {
            if (openFileDialog->ShowDialog() == System::Windows::Forms::DialogResult::OK) {
                wchar_t fileName[1024];
                for (int i = 0; i < openFileDialog->FileName->Length; i++)
                    fileName[i] = openFileDialog->FileName[i];
                fileName[openFileDialog->FileName->Length] = '\0';

                ifstream in;
                in.open(fileName);
                if (in.is_open()) {
                    models.clear();

                    mat4 M = mat4(1.f);
                    mat4 initM;
                    vector<mat4> transforms;
                    vector<path> figure;

                    float thickness = 2;
                    float r, g, b;
                    r = g = b = 0;
                    string cmd;
                    string str;
                    getline(in, str);
                    while (in) {
                        if ((str.find_first_not_of("\t\r\n") != string::npos) && (str[0] != '#')) {
                            stringstream s(str);
                            s >> cmd;
                            if (cmd == "camera") {
                                s >> S.x >> S.y >> S.z;
                                s >> P.x >> P.y >> P.z;
                                s >> u.x >> u.y >> u.z;
                            }
                            else if (cmd == "screen") {
                                s >> fovy_work >> aspect >> near >> far;
                                fovy = fovy_work / 180.f * Math::PI;
                            }
                            else if (cmd == "color") {
                                s >> r >> g >> b;
                            }
                            else if (cmd == "thickness") {
                                s >> thickness;
                            }
                            else if (cmd == "path") {
                                vector<vec3> vertices;
                                int N;
                                s >> N;
                                string str1;
                                while (N > 0) {
                                    getline(in, str1);
                                    if ((str1.find_first_not_of(" \t\r\n") != string::npos) && (str1[0] != '#')) {
                                        float x, y, z;
                                        stringstream s1(str1);
                                        s1 >> x >> y >> z;
                                        vertices.push_back(vec3(x, y, z));
                                        N--;
                                    }
                                }
                                figure.push_back(path(vertices, vec3(r, g, b), thickness));
                            }
                            else if (cmd == "model") {
                                float mVcx, mVcy, mVcz, mVx, mVy, mVz;
                                s >> mVcx >> mVcy >> mVcz >> mVx >> mVy >> mVz;
                                float S = mVx / mVy < 1 ? 2.f / mVy : 2.f / mVx;
                                initM = scale(S, S, S) * translate(-mVcx, -mVcy, -mVcz);
                                figure.clear();
                            }
                            else if (cmd == "figure") {
                                models.push_back(model(figure, M * initM));
                            }
                            else if (cmd == "translate") {
                                float Tx, Ty, Tz;
                                s >> Tx >> Ty >> Tz;
                                M = translate(Tx, Ty, Tz) * M;
                            }
                            else if (cmd == "scale") {
                                float S;
                                s >> S;
                                M = scale(S, S, S) * M;
                            }
                            else if (cmd == "rotate") {
                                float theta;
                                float nx, ny, nz;
                                s >> theta >> nx >> ny >> nz;
                                M = rotate(-theta / 180.f * Math::PI, vec3(nx, ny, nz)) * M;
                            }
                            else if (cmd == "pushTransform") {
                                transforms.push_back(M);
                            }
                            else if (cmd == "popTransform") {
                                M = transforms.back();
                                transforms.pop_back();
                            }
                        }
                        getline(in, str);
                    }
                    initWorkPars();
                    Refresh();
                }
            }
        }
    };
}