|
|
| Line 1: |
Line 1: |
| TODO: put something decent on this page. :)
| | [[File:Photo-andy.jpg]] |
|
| |
|
| Joined October 2010. | | Joined October 2010. |
| Line 13: |
Line 13: |
| The Landy [[File:AndysLandy.JPG]] is potentially available for interesting vehicle-related projects, or just for moving kit. She's a 1978 Series III with added 2" suspension lift, big wheels and 3.5 V8 engine. Standard towbar ball and electrics. | | The Landy [[File:AndysLandy.JPG]] is potentially available for interesting vehicle-related projects, or just for moving kit. She's a 1978 Series III with added 2" suspension lift, big wheels and 3.5 V8 engine. Standard towbar ball and electrics. |
|
| |
|
| ''''Project EngraveAtDifferentDepths'''' | | '''Projects''' |
|
| |
|
| one
| | [[Projects/Script_for_splitting_images_so_we_can_use_the_laser_cutter_to_engrave_them_in_greyscale]] |
| <pre>
| |
| | |
| #!/usr/bin/perl -w
| |
| use strict;
| |
| use CGI;
| |
| use CGI::Carp qw(fatalsToBrowser warningsToBrowser);
| |
| | |
| my $q = CGI->new();
| |
| | |
| print $q->header;
| |
| print $q->start_html;
| |
| | |
| print $q->p("this is a thing for doing threshholding");
| |
| print $q->p("<small>or possibly <i>thresholding</i>?</small>");
| |
| | |
| print $q->start_form( -enctype => "multipart/form-data" );
| |
| | |
| print $q->p("threshhold start? (0-100)");
| |
| print $q->textfield('tval');
| |
| print $q->p("threshold interval?");
| |
| print $q->textfield('tinterval');
| |
| print $q->p("file");
| |
| print $q->filefield('uploaded_file');
| |
| print $q->submit();
| |
| | |
| print $q->end_form;
| |
| | |
| # do we have an upload?
| |
| my $filehandle = $q->upload('uploaded_file');
| |
| if (defined $filehandle) {
| |
| | |
| # do shit
| |
| print $q->p("I'm doing shit");
| |
| | |
| # no, actually do shit
| |
| my ($filename) = ($q->param('uploaded_file') =~ /^(\w+)$/);
| |
| my $tempfile = $q->tmpFileName($filename);
| |
| | |
| my ($tval) = ($q->param('tval') =~ /^(\d+)$/); # only allow digits
| |
| my ($tinterval) = ($q->param('tinterval') =~ /^(\d+)$/); # also only allow digits
| |
| | |
| for (my $i = $tval; $i <= 100; $i += $tinterval) {
| |
| my @ar = ("gm", "convert", "-threshold", $i."%", $tempfile, "/var/www/threshold_output/$filename".$i);
| |
| system(@ar) == 0 or carp "system call failed: $?"; #safer than passing a string to system()
| |
| print $q->img({src => "/threshold_output/$filename".$i});
| |
| }
| |
| }
| |
| | |
| | |
| print $q->end_html;
| |
| | |
| </pre>
| |
| | |
| | |
| two
| |
| | |
| | |
| <pre>
| |
| | |
| #!/usr/bin/perl -w
| |
| use strict;
| |
| use CGI;
| |
| use CGI::Carp qw(fatalsToBrowser warningsToBrowser);
| |
| | |
| my $q = CGI->new();
| |
| | |
| print $q->header;
| |
| print $q->start_html;
| |
| | |
| print $q->p("this is a thing for doing threshholding");
| |
| print $q->p("<small>or possibly <i>thresholding</i>?</small>");
| |
| | |
| print $q->start_form( -enctype => "multipart/form-data" );
| |
| | |
| print $q->p("threshhold value? (0-100)");
| |
| print $q->textfield('tval');
| |
| print $q->p("file");
| |
| print $q->filefield('uploaded_file');
| |
| print $q->submit();
| |
| | |
| print $q->end_form;
| |
| | |
| # do we have an upload?
| |
| my $filehandle = $q->upload('uploaded_file');
| |
| if (defined $filehandle) {
| |
| | |
| # do shit
| |
| print $q->p("I'm doing shit");
| |
| | |
| # no, actually do shit
| |
| my ($filename) = ($q->param('uploaded_file') =~ /^(\w+)$/);
| |
| my $tempfile = $q->tmpFileName($filename);
| |
| | |
| my ($tval) = ($q->param('tval') =~ /^(\d+)$/); # only allow digits
| |
| | |
| my @ar = ("gm", "convert", "-threshold", $tval."%", $tempfile, "/var/www/threshold_output/$filename");
| |
| system(@ar) == 0 or carp "system call failed: $?"; #safer than passing a string to system()
| |
| | |
| print $q->img({src => "/threshold_output/$filename"});
| |
| }
| |
| | |
| | |
| print $q->end_html;
| |
| | |
| | |
| | |
| | |
| | |
| | |
| </pre>
| |
Joined October 2010.
Interests include entrepreneurship, Perl, dojo, photography, hi-fi, robotics, old Land Rovers, looking after my 2-year-old.
I'm also a volunteer Scout leader and am always interested in offers of interesting trips, equipment, activities or guest speakers for our Scouts.
Probably won't be able to make it down to the space on Tuesday evenings much, but workdays are possible sometimes.
The Landy 
is potentially available for interesting vehicle-related projects, or just for moving kit. She's a 1978 Series III with added 2" suspension lift, big wheels and 3.5 V8 engine. Standard towbar ball and electrics.
Projects
Projects/Script_for_splitting_images_so_we_can_use_the_laser_cutter_to_engrave_them_in_greyscale
is potentially available for interesting vehicle-related projects, or just for moving kit. She's a 1978 Series III with added 2" suspension lift, big wheels and 3.5 V8 engine. Standard towbar ball and electrics.
