OrcaSlicer/lib/Slic3r/GUI/Plater/LambdaObjectDialog.pm

# Generate an anonymous or "lambda" 3D object. This gets used with the Add Generic option in Settings.
# 

package Slic3r::GUI::Plater::LambdaObjectDialog;
use strict;
use warnings;
use utf8;

use Wx qw(wxTheApp :dialog :id :misc :sizer wxTAB_TRAVERSAL wxCB_READONLY wxTE_PROCESS_TAB);
use Wx::Event qw(EVT_CLOSE EVT_BUTTON EVT_COMBOBOX EVT_TEXT);
use Scalar::Util qw(looks_like_number);
use base 'Wx::Dialog';

sub new {
    my $class = shift;
    my ($parent, %params) = @_;
    my $self = $class->SUPER::new($parent, -1, "Lambda Object", wxDefaultPosition, [500,500], wxDEFAULT_DIALOG_STYLE | wxRESIZE_BORDER);
    # Note whether the window was already closed, so a pending update is not executed.
    $self->{already_closed} = 0;
    $self->{object_parameters} = { 
        type => "box", 
        dim => [1, 1, 1],
        cyl_r => 1,
        cyl_h => 1,
        sph_rho => 1.0,
        slab_h => 1.0,
        slab_z => 0.0,
    };

    $self->{sizer} = Wx::BoxSizer->new(wxVERTICAL);
    my $button_sizer = Wx::BoxSizer->new(wxHORIZONTAL);
    my $button_ok = $self->CreateStdDialogButtonSizer(wxOK);
    my $button_cancel = $self->CreateStdDialogButtonSizer(wxCANCEL);
    $button_sizer->Add($button_ok);
    $button_sizer->Add($button_cancel);
    EVT_BUTTON($self, wxID_OK, sub {
        # validate user input
        return if !$self->CanClose;
        
        $self->EndModal(wxID_OK);
        $self->Destroy;
    });
    EVT_BUTTON($self, wxID_CANCEL, sub {
        # validate user input
        return if !$self->CanClose;
        
        $self->EndModal(wxID_CANCEL);
        $self->Destroy;
    });
    
    my $optgroup_box;
    $optgroup_box = $self->{optgroup_box} = Slic3r::GUI::OptionsGroup->new(
        parent      => $self,
        title       => 'Add Cube...',
        on_change   => sub {
            # Do validation
            my ($opt_id) = @_;
            if ($opt_id == 0 || $opt_id == 1 || $opt_id == 2) {
                if (!looks_like_number($optgroup_box->get_value($opt_id))) {
                    return 0;
                }
            }
            $self->{object_parameters}->{dim}[$opt_id] = $optgroup_box->get_value($opt_id);
        },
        label_width => 100,
    );
    my @options = ("box", "slab", "cylinder", "sphere");
    $self->{type} = Wx::ComboBox->new($self, 1, "box", wxDefaultPosition, wxDefaultSize, \@options, wxCB_READONLY);

    $optgroup_box->append_single_option_line(Slic3r::GUI::OptionsGroup::Option->new(
        opt_id  =>  0,
        label   =>  'L',
        type    =>  'f',
        default =>  '1',
    ));
    $optgroup_box->append_single_option_line(Slic3r::GUI::OptionsGroup::Option->new(
        opt_id  =>  1,
        label   =>  'W',
        type    =>  'f',
        default =>  '1',
    ));
    $optgroup_box->append_single_option_line(Slic3r::GUI::OptionsGroup::Option->new(
        opt_id  =>  2,
        label   =>  'H',
        type    =>  'f',
        default =>  '1',
    ));

    my $optgroup_cylinder;
    $optgroup_cylinder = $self->{optgroup_cylinder} = Slic3r::GUI::OptionsGroup->new(
        parent      => $self,
        title       => 'Add Cylinder...',
        on_change   => sub {
            # Do validation
            my ($opt_id) = @_;
            if ($opt_id eq 'cyl_r' || $opt_id eq 'cyl_h') {
                if (!looks_like_number($optgroup_cylinder->get_value($opt_id))) {
                    return 0;
                }
            }
            $self->{object_parameters}->{$opt_id} = $optgroup_cylinder->get_value($opt_id);
        },
        label_width => 100,
    );

    $optgroup_cylinder->append_single_option_line(Slic3r::GUI::OptionsGroup::Option->new(
        opt_id  =>  "cyl_r",
        label   =>  'Radius',
        type    =>  'f',
        default =>  '1',
    ));
    $optgroup_cylinder->append_single_option_line(Slic3r::GUI::OptionsGroup::Option->new(
        opt_id  =>  "cyl_h",
        label   =>  'Height',
        type    =>  'f',
        default =>  '1',
    ));

    my $optgroup_sphere;
    $optgroup_sphere = $self->{optgroup_sphere} = Slic3r::GUI::OptionsGroup->new(
        parent      => $self,
        title       => 'Add Sphere...',
        on_change   => sub {
            # Do validation
            my ($opt_id) = @_;
            if ($opt_id eq 'sph_rho') {
                if (!looks_like_number($optgroup_sphere->get_value($opt_id))) {
                    return 0;
                }
            }
            $self->{object_parameters}->{$opt_id} = $optgroup_sphere->get_value($opt_id);
        },
        label_width => 100,
    );

    $optgroup_sphere->append_single_option_line(Slic3r::GUI::OptionsGroup::Option->new(
        opt_id  =>  "sph_rho",
        label   =>  'Rho',
        type    =>  'f',
        default =>  '1',
    ));

    my $optgroup_slab;
    $optgroup_slab = $self->{optgroup_slab} = Slic3r::GUI::OptionsGroup->new(
        parent      => $self,
        title       => 'Add Slab...',
        on_change   => sub {
            # Do validation
            my ($opt_id) = @_;
            if ($opt_id eq 'slab_z' || $opt_id eq 'slab_h') {
                if (!looks_like_number($optgroup_slab->get_value($opt_id))) {
                    return 0;
                }
            }
            $self->{object_parameters}->{$opt_id} = $optgroup_slab->get_value($opt_id);
        },
        label_width => 100,
    );
    $optgroup_slab->append_single_option_line(Slic3r::GUI::OptionsGroup::Option->new(
        opt_id  =>  "slab_h",
        label   =>  'H',
        type    =>  'f',
        default =>  '1',
    ));
    $optgroup_slab->append_single_option_line(Slic3r::GUI::OptionsGroup::Option->new(
        opt_id  =>  "slab_z",
        label   =>  'Initial Z',
        type    =>  'f',
        default =>  '0',
    ));


    EVT_COMBOBOX($self, 1, sub{ 
        $self->{object_parameters}->{type} = $self->{type}->GetValue();
        $self->_update_ui;
    });


    $self->{sizer}->Add($self->{type}, 0, wxEXPAND | wxBOTTOM | wxLEFT | wxRIGHT, 10);
    $self->{sizer}->Add($optgroup_box->sizer, 0, wxEXPAND | wxBOTTOM | wxLEFT | wxRIGHT, 10);
    $self->{sizer}->Add($optgroup_cylinder->sizer, 0, wxEXPAND | wxBOTTOM | wxLEFT | wxRIGHT, 10);
    $self->{sizer}->Add($optgroup_sphere->sizer, 0, wxEXPAND | wxBOTTOM | wxLEFT | wxRIGHT, 10);
    $self->{sizer}->Add($optgroup_slab->sizer, 0, wxEXPAND | wxBOTTOM | wxLEFT | wxRIGHT, 10);
    $self->{sizer}->Add($button_sizer,0, wxEXPAND | wxBOTTOM | wxLEFT | wxRIGHT, 10);
    $self->_update_ui;

    $self->SetSizer($self->{sizer});
    $self->{sizer}->Fit($self);
    $self->{sizer}->SetSizeHints($self);

    
    return $self;
}
sub CanClose {
    return 1;
}
sub ObjectParameter {
    my ($self) = @_;
    return $self->{object_parameters};
}

sub _update_ui {
    my ($self) = @_;
    $self->{sizer}->Hide($self->{optgroup_cylinder}->sizer);
    $self->{sizer}->Hide($self->{optgroup_slab}->sizer);
    $self->{sizer}->Hide($self->{optgroup_box}->sizer);
    $self->{sizer}->Hide($self->{optgroup_sphere}->sizer);
    if ($self->{type}->GetValue eq "box") {
        $self->{sizer}->Show($self->{optgroup_box}->sizer);
    } elsif ($self->{type}->GetValue eq "cylinder") {
        $self->{sizer}->Show($self->{optgroup_cylinder}->sizer);
    } elsif ($self->{type}->GetValue eq "slab") {
        $self->{sizer}->Show($self->{optgroup_slab}->sizer);
    } elsif ($self->{type}->GetValue eq "sphere") {
        $self->{sizer}->Show($self->{optgroup_sphere}->sizer);
    }
    $self->{sizer}->Fit($self);
    $self->{sizer}->SetSizeHints($self);
    
}
1;