Date:2012-01-26 16:05:12 (7 years 9 months ago)
Author:Werner Almesberger
Commit:94e955811772fe342947424bd017073aa54b34e4
Message:m1/ledravaganza/ramp.pl: exponential ramp generator for ledm

Files: m1/ledravaganza/ramp.pl (1 diff)

Change Details

m1/ledravaganza/ramp.pl
1#!/usr/bin/perl
2$BASE = 0xe0009000;
3print sprintf("medit 0x%x 0\n", $BASE);
4$v = 1;
5for ($i = 1; $i != 24; $i++) {
6    print sprintf("medit 0x%x %d\n", $BASE+$i*4, $v < $i ? $i : $v);
7    $v *= 1.2866; # int(B^22) = 255
8}

Archive Download the corresponding diff file

Branches:
master



interactive