Skip to content

Instantly share code, notes, and snippets.

Avatar

Pete Prodoehl raster

View GitHub Profile
View TurntableControl.ino
/*
* TurntableControl.ino
* Libraries required:
* - Pololu DRV8835 Dual Motor Driver Carrier - https://github.com/raster/drv8835-motor-driver
* - ServoTimer2 Library - http://forum.arduino.cc/index.php?action=dlattach;topic=157400.0;attach=39747
*
* pete@2xlnetworks.com
*
*/
View LEDPinButton
#include <Bounce.h>
Bounce buttonD6 = Bounce(6, 80); // LED Pin - tie to +5v instead of GND
Bounce buttonD7 = Bounce(7, 80); // Normal Pin - tie to GND
void setup() {
pinMode(PIN_D6, INPUT); // LED Pin - use INPUT not INPUT_PULLUP
pinMode(PIN_D7, INPUT_PULLUP);
}
@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 / 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 / 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 / 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 / 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 / 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 / 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 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
You can’t perform that action at this time.