#!/usr/bin/perl -w

# HPGL to screen
# Released under GPL
# Henry Palonen, h yty dot net
# 
# Program draws HPGL-files to screen using Gtk-Perl.

use Gtk;
use strict;

init Gtk;
#set_locale Gtk;

my $false = 0;
my $true = 1;

my $window;
my $drawing_area;
my $button;
my $bgcolor;
my $gdkcolor;
my $vbox;
my $dxs=500;
my $dys=400;
my $check;
my $separator;
my $file;
my $entry;
my $hbox;
my $coord=$false;
my $progress;
my $secs=0;

$window = new Gtk::Window( 'toplevel' );
$window->set_policy( $false, $false, $false );
$window->set_usize( $dxs+50, $dys+200 );
$window->border_width( 15 );
$window->set_title( "Draw from HPGL" );
$window->signal_connect( 'destroy', sub { Gtk->exit( 0 ); } );

$vbox = new Gtk::VBox( $false, 5 );
$vbox->border_width( 10 );
$window->add( $vbox );
$vbox->show();

$hbox = new Gtk::HBox( $true, 5 );
$hbox->border_width( 10 );
$vbox->pack_start( $hbox, $false, $false, 0 );
$hbox->show();

$button = new Gtk::Button( "Select file" );
$button->signal_connect( "clicked", \&select_file );
$hbox->pack_start( $button, $false, $true, 0 );
$button->show();

$entry = new Gtk::Entry();
$hbox->pack_start( $entry, $false, $true, 0 );
$entry->show();

$hbox = new Gtk::HBox( $true, 5 );
$hbox->border_width( 10 );
$vbox->pack_start( $hbox, $false, $false, 0 );
$hbox->show();

$button = new Gtk::Button( "Paint HPGL picture" );
$button->signal_connect( "clicked", \&draw_shapes );
$hbox->pack_start( $button, $false, $true, 0 );
$button->show();

$progress = new Gtk::ProgressBar();
$hbox->pack_start( $progress, $false, $true, 0 );
$progress->show();

$separator = new Gtk::HSeparator();
$vbox->pack_start( $separator, $false, $false, 0 );
$separator->show();

$hbox = new Gtk::HBox( $true, 5 );
$hbox->border_width( 10 );
$vbox->pack_start( $hbox, $false, $false, 0 );
$hbox->show();

$check = new Gtk::CheckButton( "Print coordinates to STDOUT");

$check->signal_connect("clicked", \&toggle_coord);
$hbox->pack_start( $check, $false, $false, 0 );
$check->show();

my $label = new Gtk::Label("Scale % (1-100)");
$hbox->pack_start( $label, $false, $false, 0);
$label->show();

my $adj = new Gtk::Adjustment( 18.0, 1.0, 100.0, 0.1, 4.0, 0.0 );
my $spinner = new Gtk::SpinButton( $adj, 0.5, 1 );
$spinner->set_wrap( $true );
$hbox->pack_start( $spinner, $false, $true, 0);
$spinner->show();

$separator = new Gtk::HSeparator();
$vbox->pack_start( $separator, $false, $false, 0 );
$separator->show();

$drawing_area = new Gtk::DrawingArea();
$drawing_area->size( $dxs, $dys );
$vbox->pack_start( $drawing_area ,$false, $false, 0);

$button->show();
$drawing_area->show();
$window->show();

main Gtk;
exit( 0 );

### Subroutines

sub select_file
{

	my $file_dialog = new Gtk::FileSelection( "Select HPGL file to plot (*.PLT)");
	$file_dialog->signal_connect( "destroy", sub { Gtk->exit( 0 ); } );
	
	# Connect the ok_button to file_ok_sel function
	$file_dialog->ok_button->signal_connect( "clicked", \&file_ok_sel, $file_dialog );
	$file_dialog->cancel_button->signal_connect( "clicked", sub { $file_dialog->hide(); } );
	$file_dialog->complete( "*.PLT" );
	$file_dialog->show();
}

sub file_ok_sel
{
    	my ( $widget, $file_sel ) = @_;
        $file = $file_sel->get_filename();
 	print( "$file\n" );
	$entry->set_text("$file");
	$file_sel->hide;
}

sub toggle_coord
{
	if ($coord eq $true)
		{
			$coord=$false;
		}
	else 
		{
			$coord=$true;
		}
}
sub draw_shapes
  {
    $bgcolor = Gtk::Gdk::Color->parse_color( 'white' );
    $bgcolor = $drawing_area->window->get_colormap()->color_alloc( $bgcolor );
    $drawing_area->window->set_background( $bgcolor );

    my $drawable = $drawing_area->window;

    my $yS = 100 / ($adj->value);
    my $xS = 100 / ($adj->value);
	
    my $white_gc = $drawing_area->style->white_gc;
    my $black_gc = $drawing_area->style->black_gc;
    
    $drawable->clear; 
   
  	my $FILE = "$file";
  	open(FILE, "$FILE") or die "Can't open PLT file $FILE: $!\n";
	while (<FILE>)
		{
			my $row = $_;
			my $x=0;
			my $y=0;
			my $lastX;
			my $lastY;
			my $mode="", my $comma=0;
			my $prevH=0;
			while ($row =~ m/;/g)
			{
				my $nextH = pos $row;
				my $len = $nextH - $prevH;
				my $cmd = substr($row,$prevH,$len-1);
				if ($cmd ne "")
					{
						
							if (substr($cmd,0,2) eq "PD") {$mode = "D";}
							if (substr($cmd,0,2) eq "PU") {$mode = "M";}

							if ($cmd =~ m/,/g) 
								{
								$lastX = $x;
								$lastY = $y;
								$comma = pos $cmd;
								$x = substr($cmd, 2, $comma - 3);
								$y = substr($cmd, $comma);
								$x=$x / $xS;
								$y=$y / $yS;
								
								# Coordinates
								# are upside
								# down...
								$y=$dys-$y;
								
								}
							else
								{
										$lastX = $x;
										$lastY = $y;
										$comma =0;
								}
							
							if ($mode eq "D")
							{
								if ($coord eq $true) {print "DRAW: $x, $y \-\> $lastX, $lastY\n";}
   								$drawable->draw_line( $black_gc, $x, $y, $lastX, $lastY );
							}
							elsif($mode eq "M")
							{
								if ($coord eq $true) {print "MOVE: $x, $y\n"; }
   								$drawable->draw_point( $black_gc, $x, $y);
							}
						}
				$prevH=$nextH;
			}
		}
	
    	return $true;
  }