From: Othmar Gsenger Date: Wed, 29 Jun 2011 23:57:25 +0000 (+0000) Subject: whatever X-Git-Url: https://git.realraum.at/?a=commitdiff_plain;h=45434651a9ef34b3f776b55be0a9ef7635a9703b;p=svn42.git whatever --- diff --git a/dart/dart.pde b/dart/dart.pde index 1ed2a0f..2e5223e 100644 --- a/dart/dart.pde +++ b/dart/dart.pde @@ -30,19 +30,14 @@ union union32 { uint32_t uint32; }; - -//********************************************************************// - typedef unsigned char byte; -//********************************************************************// -/* void start_timer() { // timer 1: 2 ms TCCR1A = 0; // prescaler 1:8, WGM = 4 (CTC) - TCCR1B = 1< 0.08ms @ 16 MHz -> 1*alpha + TCCR1B = 1< 0.08ms @ 16 MHz -> 1*alpha // OCR1A = 207; // (1+207)*8 = 1664 -> 0.104ms @ 16 MHz -> 1*alpha TCNT1 = 0; // reseting timer TIMSK1 = 1<>=1) + value++; + value<<=3; + while(output>>=1) + value++; + Serial.println(value,HEX); + PCICR&= ~ B111; // Disable Interrupt + start_timer(); } @@ -106,7 +120,6 @@ void setup() PCMSK1=PINC_MASK & INPUT_SIG_PORTC; PCMSK2=PIND_MASK & INPUT_SIG_PORTD; PCICR|= B111; - // start_timer(); } @@ -118,6 +131,4 @@ void loop() { // Serial.Serial.println("foo"); // return; - - } diff --git a/dart/lookuptable b/dart/lookuptable new file mode 100644 index 0000000..6ed1c8b --- /dev/null +++ b/dart/lookuptable @@ -0,0 +1,62 @@ +2A +2B +29 +1C +1D +18 +C +D +8 +F +7 +17 +1A +1B +19 +2E +3E +1E +3C +3D +38 +32 +33 +31 +A +B +9 +2C +2D +28 +3A +3B +39 +12 +13 +11 +2F +3F +1F +2 +3 +1 +24 +25 +20 +34 +35 +30 +14 +15 +10 +E +6 +16 +4 +5 +0 +22 +23 +21 +26 +27 diff --git a/dart/perl_shit.pl b/dart/perl_shit.pl new file mode 100755 index 0000000..cb544ba --- /dev/null +++ b/dart/perl_shit.pl @@ -0,0 +1,28 @@ +#!/usr/bin/perl +my $pos=0; +my %shit; +for (0..63) +{ + $shit{$_}=['nc','nc']; +} +print "Reading ".$ARGV[0]."\n"; +open(my $fh, '<', $ARGV[0]) ; + +while( my $line =<$fh>) +{ + chomp $line; + my $zahl = (int($pos / 3)) +1 ; + my $mult =( $pos % 3 )+1; + $shit{hex $line} = [ $mult, $zahl]; + $pos++; +} +close ($fh); + + +while(my $foobar = ) +{ + chomp $foobar; + print join "\t",$foobar , $shit{hex $foobar}[0],$shit{hex $foobar}[1],"\n"; + + +}