Skip to content

Instantly share code, notes, and snippets.

View mstratman's full-sized avatar

Mark A. Stratman mstratman

96 followers · 0 following
View GitHub Profile
@mstratman
mstratman / bitmap-problem-demo.ino
Created July 27, 2020 22:11
#include "ssd1306.h"
#include "nano_engine.h"
NanoEngine1 engine;
const unsigned char news_bitmap [] PROGMEM = {
0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff,
0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xf3, 0xf3,
0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0x7f, 0x1f, 0x7f, 0xff,
0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xf7, 0xe3, 0xf7, 0xff, 0xff, 0xff, 0xff, 0xff,
0xfe, 0xff, 0xff, 0xff, 0xef, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xfd, 0xfd, 0xff,
@mstratman
mstratman / burn-labels.sh
Created June 21, 2020 18:49
#!/bin/bash
input=$1
if [ ! -f "$input" ]; then
echo "Usage: ./label-burn.sh path/labels.txt"
exit
fi
output=${input%.txt}.bin
@mstratman
mstratman / burn-eeprom.sh
Last active June 2, 2020 23:32
#!/bin/bash
input=$1
if [ ! -f "$input" ]; then
echo "Usage: ./burn.sh path/input.hex"
exit
fi
output=${input%.hex}.bin
@mstratman
mstratman / test1.html
Created November 2, 2012 13:24
Trying to reproduce smartwizard+tabs problem
<!DOCTYPE HTML PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml"><head>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
<title>Smart Wizard 3 - Basic Example - a javascript jQuery wizard control plugin</title>
<link href="http://mstratman.github.com/jQuery-Smart-Wizard/styles/demo_style.css" rel="stylesheet" type="text/css">
<link href="http://mstratman.github.com/jQuery-Smart-Wizard/styles/smart_wizard.css" rel="stylesheet" type="text/css">
<script type="text/javascript" src="http://code.jquery.com/jquery-1.8.2.js"></script>
<script type="text/javascript" src="http://mstratman.github.com/jQuery-Smart-Wizard/js/jquery.smartWizard.js"></script>
@mstratman
mstratman / MooParent.pm
Created June 22, 2012 19:52
package MooParent;
use Moo;
has who => (
is => 'ro',
default => sub { 'MooParent' },
);
1;
@mstratman
mstratman / Animal3.pm
Created March 11, 2011 00:44
Subclassing non-Moose classes example 3 - From http://blogs.perl.org/users/mark_a_stratman/2011/03/subclassing-tricky-non-moose-classes-constructor-problems.htm
# NOTE: This is simply an example of a legacy array-based object.
# I do not recommend using it.
package Animal3;
use strict;
our $NAME_INDEX = 0;
sub new {
my $class = shift;
my $self = [];
@mstratman
mstratman / Animal2.pm
Created March 11, 2011 00:37
Subclassing non-Moose classes example 2.1 - From http://blogs.perl.org/users/mark_a_stratman/2011/03/subclassing-tricky-non-moose-classes-constructor-problems.html
# NOTE: This is simply an example of a legacy blessed-hash object.
# I do not recommend using it.
package Animal2;
use strict;
sub new {
my $class = shift;
my $self = {};
$self->{_name} = shift;
bless($self, $class);
@mstratman
mstratman / Animal1.pm
Created March 11, 2011 00:33
Subclassing non-Moose classes example 1 - From http://blogs.perl.org/users/mark_a_stratman/2011/03/subclassing-tricky-non-moose-classes-constructor-problems.html
# NOTE: This is simply an example of a legacy blessed-hash object.
# I do not recommend using it.
package Animal1;
use strict;
sub new {
my $class = shift;
my $self = shift;
$self = {} unless $self && ref $self eq 'HASH';
bless($self, $class);
@mstratman
mstratman / MyDate.pm
Created March 11, 2011 00:29
Delegation example from http://blogs.perl.org/users/mark_a_stratman/2011/03/subclassing-tricky-non-moose-classes-dont-do-it.html
package MyDate;
use Moose;
use namespace::autoclean;
use Date::Handler;
has '_date_handler' => (
is => 'ro',
isa => 'Date::Handler',
handles => qr/.*/,
);
@mstratman
mstratman / Animal2.pm
Created March 11, 2011 00:39
Subclassing non-Moose classes example 2.2 - From http://blogs.perl.org/users/mark_a_stratman/2011/03/subclassing-tricky-non-moose-classes-constructor-problems.html
# NOTE: This is simply an example of a legacy blessed-hash object.
# I do not recommend using it.
package Animal2;
use strict;
sub new {
my $class = shift;
my $self = {};
$self->{_name} = shift;
bless($self, $class);