From 7cc670ffd7ca01433df84b3c7b162024f8b34056 Mon Sep 17 00:00:00 2001 From: Ian Jackson Date: Mon, 2 May 2022 00:35:37 +0100 Subject: [PATCH] dice: d6: image: wip extraction Signed-off-by: Ian Jackson --- .gitignore | 1 + Makefile | 3 +++ dice/extract-image-only | 23 +++++++++++++++++++++++ 3 files changed, 27 insertions(+) create mode 100755 dice/extract-image-only diff --git a/.gitignore b/.gitignore index d9e68d79..9bd49f24 100644 --- a/.gitignore +++ b/.gitignore @@ -15,6 +15,7 @@ save/lock /library/*/files.make /library/*/*.usvg /library/*/*.coloured.svg +/library/edited/dice-d6-blue.svg *.tmp .tsconfig.*.json stamp/* diff --git a/Makefile b/Makefile index 45c8f096..98dd904c 100644 --- a/Makefile +++ b/Makefile @@ -380,6 +380,9 @@ templates/shapelib.html: $(TARGET_DIR)/debug/otterlib $(LIBRARY_FILES) nwtemplates/die-overlay.tera: dice/overlay-template-extractor dice/die.svg ./$< $@.tmp && mv -f $@.tmp $@ +library/edited/dice-d6-blue.svg: dice/extract-image-only dice/die.svg + ./$< $@.tmp && mv -f $@.tmp $@ + #---------- examples ---------- EXAMPLE_BUNDLE_INPUT_DEPS := $(shell \ diff --git a/dice/extract-image-only b/dice/extract-image-only new file mode 100755 index 00000000..5a9ddb9d --- /dev/null +++ b/dice/extract-image-only @@ -0,0 +1,23 @@ +#!/usr/bin/perl -w +use strict; + +use strict; + +use XML::LibXML; +use XML::LibXML::XPathContext; + +use Data::Dumper; + +my $dom = XML::LibXML->load_xml(IO => \*STDIN) or die; + +print "\n" or die $!; + +my $nodes = $dom->findnodes('//*[@inkscape:label]'); +foreach my $node (@$nodes) { + my $l = $node->getAttribute('inkscape:label'); + next unless $l =~ m/^time|^text/; + my $parent = $node->parentNode; + $parent->removeChild($node); +} + +print $dom->toString or die $!; -- 2.30.2