nico/nsbin
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity Actions

init

Browse source 
Signed-off-by: Nico Schottelius <nico@manager.schottelius.org>
This commit is contained in:
Nico Schottelius 2017-07-19 17:15:41 +02:00
commit df2daf524d
641 changed files with 140617 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

251
dhw2ps.pl Executable file
View file

@ -0,0 +1,251 @@
#!/usr/bin/env perl
# -------------------------------------------------------------------------
# file: dhw2ps.pl
# task: convert the internal dwh file format of DigiMemo A501 to
# ps or pdf files
# authors: Jan Theofel (theofel@etes.de)
# Harald Koenig
# version: 0.1
# license: free to use, an official license will follow
# -------------------------------------------------------------------------
# TODO:
# - code cleanup
# - code optimisation (the array of chars is very slow)
# - adding a real license
# - add documentation
# -------------------------------------------------------------------------
use strict;
use Getopt::Long qw(:config gnu_getopt);
my $pdfout = ($0 =~ /dhw2pdf/);;
my $debug = 0;
my $verbose = 0;
my $usage = 0;
my $quiet = 0;
my $colorlayers = 0;
sub usage
{
print "usage: $0 [params] [dwh file(s)]\n\n";
print "Where params can be:\n";
print "-c|--colorlayers color layers\n";
print "-d|--debug run in debug mode\n";
print "-h|--help display this usage message\n";
print "-q|--quiet run in quite mode\n";
print "-v|--verbose run in verbose mode\n";
print "--pdf create pdf files (nneds ps2pdf)\n";
print "--ps create ps files\n";
exit $_[0];
}
GetOptions (
'c' => \$colorlayers, 'colorlayers!' => \$colorlayers,
'd' => \$debug, 'debug!' => \$debug,
'h' => \$usage, 'help' => \$usage,
'q' => \$quiet, 'quiet!' => \$quiet,
'v' => \$verbose, 'verbose!' => \$verbose,
'pdf!' => \$pdfout,
'ps!' => sub { $pdfout = 0 },
) or usage(1);
my $inname = shift();
usage(0) if ($usage || !$inname);
if ($pdfout)
{
my $check_ps2pdf = `which ps2pdf`;
if($check_ps2pdf eq "")
{
die "ERROR: ps2pdf is needed in pdf mode.\n";
}
}
while ($inname) { # loop for all input files
my ($buffer, $skip, $data);
my ($fileversion, $paperwidth, $paperheight, $paperformat);
my $file_content;
print "INFO: input file: $inname\n" if (!$quiet);
open(IN, "$inname");
my $count = 32;
read(IN, $data, $count);
if($data ne "ACECAD_DIGIMEMO_HANDWRITING_____") {
die "Invalid INK file $inname\n";
}
# read rest of input file in 64K junks
while(read(IN, $buffer, 64*1024)) {
$data .= $buffer;
}
close(IN);
my @data = split(//, $data);
# decode header data
$fileversion = ord($data[$count++]);
$paperwidth = ord($data[$count+0]) + (ord($data[$count+1]) << 8);
$count += 2;
$paperheight = ord($data[$count+0]) + (ord($data[$count+1]) << 8);
$count += 2;
my $pagetype = ord($data[$count++]);
ord($data[$count++]); # skip header byte
ord($data[$count++]); # skip header byte
my $paper = ("a5", "a4", "??2", "??3", "??4", "??5", "??6", "??7", "b5", "b4")[$pagetype];
my $orientation = ("Portrait", "Landscape")[ $paperheight < $paperwidth ];
my $llx = 0; # 87 for A4 centering on A4
my $lly = 0; # 123 for A4 centering on A4
my $urx = $llx + int($paperwidth / 1000. * 72. + 0.999999);
my $ury = $lly + int($paperheight / 1000. * 72. + 0.999999);
my $now = gmtime;
print "DEBUG: ink file version: $fileversion\n" if ($debug);
print "DEBUG: width / height: $paperwidth / $paperheight\n" if ($debug);
print "DEBUG: pagetype: $pagetype ($paper)\n" if ($debug);
my $outfile;
if ($pdfout) {
$outfile = "|ps2pdf -sPAPERSIZE=$paper - $inname";
$outfile =~ s/\.dhw$//;
$outfile .= ".pdf";
} else {
$outfile = ">$inname";
$outfile =~ s/\.dhw$//;
$outfile .= ".ps";
}
print "DEBUG: output file: $outfile\n" if ($debug);
open(OUT, "$outfile");
print OUT <<PSHEAD;
%!PS-Adobe-2.0
%%Title: $inname
%%Creator: ink2ps $inname
%%CreationDate: $now
%%Orientation: $orientation
%%BoundingBox: $llx $lly $urx $ury
%%DocumentPaperSizes: $paper
%%Pages: 1
%%EndComments
/StartPage {
gsave
$llx $lly translate
72 1000 div dup scale
1 setlinecap
1 setlinejoin
1 LW
} bind def
/EndPage {
grestore
showpage
} bind def
/RGB { setrgbcolor } bind def
/LW { setlinewidth } bind def
/S { newpath moveto } bind def
/L { lineto } bind def
/E { stroke } bind def
%%EndProlog
%%Page: 1 1
StartPage
% set line width
16 LW
% set color
0 0 0 RGB
% strokes
PSHEAD
my $color = 0;
my $lastcolor = 0;
my $layer = 0;
my $strokes = 0;
my $points = 0;
my $pointcmd = "S";
while($count < $#data) {
my $next = ord($data[$count++]);
if (($next & ~0x07) == 0x80) { # pen up/down
if ($next & 0x01) {
$pointcmd = "S";
print "DEBUG pen down POSITION $count\n" if ($debug);
}
else {
$pointcmd = "L\nE\n";
$strokes++;
print "DEBUG pen up POSITION $count\n" if ($debug);
}
$color = (($next >> 1) + ($layer * $colorlayers)) & 0x03;
print "DEBUG pen color $color\n" if ($debug);
if ($color != $lastcolor) {
$lastcolor = $color;
print OUT "%%Color: $color\n";
print OUT ("0 0 0", "1 0 0", "0 1 0", "0 0 1")[$color] . " RGB\n";
}
}
elsif ($next == 0x88) { # time stamp
my $timestamp = ord($data[$count++]);
print "DEBUG TimeStamp $timestamp\n" if ($debug);
print OUT "%%TimeStamp: $timestamp\n" if ($timestamp < 0x7f);
}
elsif ($next == 0x90) { ## end of layer
$layer = ord($data[$count++]);
print "DEBUG End of LAYER $layer\n" if ($debug);
die("Layer # $layer > 127") if ($layer & 0x80);
print OUT "%%EndOfLayer: $layer\n\n";
}
elsif (!($next & ~0x7f)) { ## coordinates
my ($b1, $b2, $b3, $b4) = ($next, ord($data[$count+0]), ord($data[$count+1]), ord($data[$count+2]));
$count += 3;
printf "DEBUG CHECK position $count A %02x %02x %02x %02x\n", $b1, $b2, $b3, $b4 if ($debug);
# die("MSB set in coordinate bytes") if (($b1 | $$b2 | $b3 | $b4) & ~0x7f);
my $x = $b1 + ($b2 << 7);
my $y = $b3 + ($b4 << 7);
print "DEBUG $count: x = $x / y = $y\n" if ($debug);
print OUT "$x $y " . $pointcmd . "\n";
$points++;
$pointcmd = "L";
} else {
die("unknown byte " . sprintf("0x%02x", $next) . " at position $count");
}
}
print OUT <<PSFOOT;
EndPage
%%Trailer
%%EOF
PSFOOT
close(OUT);
print "INFO: $points points, $strokes strokes, $layer layers\n\n" if (! $quiet);
$inname = shift();
}