Skip to content

Instantly share code, notes, and snippets.

Avatar

Pete Prodoehl raster

View GitHub Profile
@raster
raster / Drawbot.pde
Created Jan 19, 2011
Simple Drawbot code
View Drawbot.pde
/*
* Drawbot.pde
*
* See also: http://rasterweb.net/raster/2011/01/12/friday-night-drawbot/
* See also: https://gist.github.com/778622
*
*/
int servoPinL = 9;
int servoPinR = 10;
@raster
raster / ShiftBrite.pde
Created Jan 19, 2011
Arduino ShiftBrite code
View ShiftBrite.pde
/*
* ShiftBrite.pde
*
* See also: http://rasterweb.net/raster/2011/01/17/perl-arduino-shiftbrite/
* See also: http://code.google.com/p/shiftbritehughesyarduino/
*
*/
#include "HughesyShiftBrite.h"
@raster
raster / sendserial.pl
Created Jan 19, 2011
Send data to the serial port
View sendserial.pl
#!/usr/bin/perl
#
# See also: http://rasterweb.net/raster/2011/01/17/perl-arduino-shiftbrite/
#
use Device::SerialPort;
my $port = Device::SerialPort->new("/dev/tty.usbmodem1d21"); # ymmv here...
$port->databits(8);
$port->baudrate(9600);
@raster
raster / LightOrgan.pde
Created Jan 19, 2011
A simple Arduino-based Light Organ controlled by Processing
View LightOrgan.pde
/*
* LightOrgan.pde - Arduino
*
* See also: http://rasterweb.net/raster/2011/01/19/shiftbrite-light-organ/
*
*/
#include "HughesyShiftBrite.h"
HughesyShiftBrite sb;
@raster
raster / banner.pl
Created Oct 11, 2011
Perl Banner Program
View banner.pl
#!/usr/bin/perl
use Text::Banner;
$str = $ARGV[0];
$size = $ARGV[1];
$char = $ARGV[2];
if (!(defined($size))) {
$size = '2';
@raster
raster / installed.pl
Created Oct 11, 2011
List Installed Perl Modules
View installed.pl
#!/usr/bin/perl -w
use ExtUtils::Installed;
my $instmod = ExtUtils::Installed->new();
foreach my $module ($instmod->modules()) {
my $version = $instmod->version($module) || "???";
print "$module -- $version\n";
@raster
raster / netisup.pl
Created Oct 11, 2011
Check if the Internet is available
View netisup.pl
#!/usr/bin/perl
use strict;
use warnings;
use Net::Ping;
my $host = shift || 'www.google.com';
my $wait = shift || 5;
my @states = map { "Internet is $_ " } qw/down up/;
View mencoder tricks
/Applications/ffmpegx/mencoder mf:///Users/pete/Desktop/webcam/*jpg -mf w=320:h=240:fps=6:type=jpg -ovc lavc -lavcopts vcodec=mpeg4 -oac copy -o ~/Desktop/output.avi
/Applications/ffmpegx/mencoder mf://*jpg -mf w=320:h=240:fps=12:type=jpg -ovc lavc -lavcopts vcodec=mpeg4 -oac copy -o ~/Desktop/output.avi
mencoder mf://*.jpg -mf w=320:h=240:fps=6:type=jpg -ovc lavc -lavcopts vcodec=mpeg4 -oac copy -o output.avi
View MySQL tricks
Login as someuser (type password at prompt):
mysql -u someuser -p
(To not be promted for the password, you would use 'mysql -u someuser -ppassword')
Load a database from a dump file:
mysql -u someuser -p dbname < somedatabase.mysql
@raster
raster / SFTP Logging
Created Nov 30, 2011
Add to /etc/ssh/sshd_config
View SFTP Logging
# the -l INFO provides logging of SFTP logins
Subsystem sftp /usr/libexec/sftp-server -l INFO