Difference between revisions of "User:AndyE"

From London Hackspace Wiki
Jump to navigation Jump to search
(Update)
 
(2 intermediate revisions by the same user not shown)
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/LayserCake]] - Script_for_splitting_images_so_we_can_use_the_laser_cutter_to_engrave_them_in_greyscale
−
<pre>
 
  
−
#!/usr/bin/perl -w
+
'''Update'''
−
use strict;
 
−
use CGI;
 
−
use CGI::Carp qw(fatalsToBrowser warningsToBrowser);
 
  
−
my $q = CGI->new();
+
Unfortunately due to pressure of work (and family - two small children now) I wasn't getting time to visit the Hackspace at all, so I've allowed my membership to lapse for a while. I hope to rejoin once my children are older - I hope to bring them with me to the space too! (once they're old enough to be there safely) [[User:AndyE|AndyE]] ([[User talk:AndyE|talk]]) 21:30, 25 November 2013 (UTC)
−
 
 
−
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>
 

Latest revision as of 21:30, 25 November 2013

Photo-andy.jpg

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 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.

Projects

Projects/LayserCake - Script_for_splitting_images_so_we_can_use_the_laser_cutter_to_engrave_them_in_greyscale

Update

Unfortunately due to pressure of work (and family - two small children now) I wasn't getting time to visit the Hackspace at all, so I've allowed my membership to lapse for a while. I hope to rejoin once my children are older - I hope to bring them with me to the space too! (once they're old enough to be there safely) AndyE (talk) 21:30, 25 November 2013 (UTC)

Retrieved from ‘https://wiki.london.hackspace.org.uk/w/index.php?title=User:AndyE&oldid=39116’