X-Git-Url: https://git.ktnx.net/?a=blobdiff_plain;f=tools%2Fgen-styles;h=0012d5d52921b190123fa36ae409d7a7ec782e27;hb=0804f05abcbb5a6b4300eac6f881cd9d59bb42bd;hp=a86983b764729bf9791d0c63cd5e8e916640b29c;hpb=9708a1a2aa66f000aa45f630c837e7ed995012fb;p=mobile-ledger.git
diff --git a/tools/gen-styles b/tools/gen-styles
index a86983b7..0012d5d5 100644
--- a/tools/gen-styles
+++ b/tools/gen-styles
@@ -1,6 +1,10 @@
#!/usr/bin/perl
use strict; use warnings; use utf8;
+use autodie;
+use Math::Trig;
+use File::Basename qw(basename dirname);
+use File::Temp qw(tempfile);
sub hexTuple {
my ($r, $g, $b) = @_;
@@ -27,9 +31,10 @@ sub hsvHex {
# https://en.wikipedia.org/wiki/HSL_and_HSV#From_HSL
sub hslHex {
my ($hue, $sat, $lig ) = @_;
- my $h = ($hue * 6);
+ $hue = $hue / 360.0;
+ my $h = ($hue * 6.0);
my $c = (1 - abs(2.0*$lig - 1)) * $sat;
- my $h_mod_2 = $h - 2*int($h/2);
+ my $h_mod_2 = $h - 2.0*int($h/2);
my $x = $c * (1 - abs($h_mod_2 - 1));
my ($r, $g, $b);
my $m = $lig - $c / 2.0;
@@ -65,14 +70,20 @@ sub max {
return $max;
}
+sub hexToRGB {
+ my $hexTriplet = shift;
+
+ my @d = $hexTriplet =~ /^#?(.)(.)(.)(.)(.)(.)/;
+
+ return (16 * $hexValue{$d[0]} + $hexValue{$d[1]},
+ 16 * $hexValue{$d[2]} + $hexValue{$d[3]},
+ 16 * $hexValue{$d[4]} + $hexValue{$d[5]});
+}
+
sub hexToHSL {
my $hexTriplet = shift;
- my ( $r,$g,$b ) = $hexTriplet =~ /^#?(..)(..)(..)/;
- for ($r,$g,$b) {
- my @d = split(//);
- $_ = 16 * $hexValue{$d[0]} + $hexValue{$d[1]};
- }
+ my ($r,$g,$b) = hexToRGB($hexTriplet);
warn "$hexTriplet -> $r:$g:$b";
for ($r, $g, $b ) { $_ = $_ / 255.0 }
@@ -107,14 +118,33 @@ sub hexToHSL {
my $baseColorHSV = [ hexToHSL('#935ff2') ];
my $baseColorHue = $baseColorHSV->[0];
-warn sprintf( 'H:%1.4f S:%1.4f L:%1.4f', @$baseColorHSV );
+warn sprintf( 'H:%1.4f S:%1.4f V:%1.4f', @$baseColorHSV );
warn sprintf( 'H:%1.4f S:%1.4f L:%1.4f', hexToHSL('#3e148c') );
+my @target = hexToRGB('#935ff2');
+my ($best, $min_dist);
+for (my $s = 0.50; $s < 0.90; $s += 0.001) {
+ for ( my $l = 0.50; $l <= 0.80; $l += 0.001 ) {
+ my $hexColor = hslHex($baseColorHue, $s, $l);
+ my ($r,$g,$b) = hexToRGB( $hexColor );
+ my $dist = abs($r-$target[0])
+ + abs($g-$target[1])
+ + abs($b-$target[2]);
+ if (not defined($best) or $dist < $min_dist) {
+ $best = [ $s, $l, $hexColor ];
+ $min_dist = $dist;
+ }
+ }
+}
+warn sprintf( 's%1.3f, l%1.3f -> %s',
+ @$best );
my $baseTheme = "AppTheme.NoActionBar";
+use constant STEP_DEGREES => 5;
+
# # hsb
-# for( my $hue = 0; $hue < 360; $hue += 15 ) {
-# printf "\n";
+
+ return $result;
+}
+
+my $xml = shift;
+
+if ($xml) {
+ my $start_marker = '';
+ my $end_marker = '';
+ my ($fh, $filename) = tempfile(basename($0).'.XXXXXXXX', DIR => dirname($xml));
+ open(my $in, '<', $xml);
+ my $base_indent = '';
+ my $state = 'waiting-for-start-marker';
+ while (<$in>) {
+ if ( $state eq 'waiting-for-start-marker' ) {
+ print $fh $_;
+ $state = 'skipping-styles', $base_indent = $1
+ if /^(\s*)\Q$start_marker\E/;
+ next;
+ }
+ if ( $state eq 'skipping-styles' ) {
+ next unless /^\s*\Q$end_marker\E/;
+ outputThemes($fh, $base_indent);
+ print $fh $_;
+ $state = 'copying-the-rest';
+ next;
+ }
+ if ( $state eq 'copying-the-rest') {
+ print $fh $_;
+ next;
+ }
+
+ die "Unexpected state '$state'";
}
- printf " - #%s
\n",
- hslHex($hue/360.0, 0.60, 0.60);
- printf " - #00%s
\n",
- hslHex($hue/360.0, 0.60, 0.60);
- printf " - #%s
\n",
- hslHex($hue/360.0, 0.85, 0.50);
- printf " - #ffffffff
\n";
- printf " - #%s
\n",
- hslHex($hue/360.0, 0.85, 0.95);
- printf " - #%s
\n",
- hslHex($hue/360.0, 0.85, 0.98);
- printf "\n";
+
+ close($fh);
+ close($in);
+
+ rename($filename, $xml);
+}
+else {
+ outputThemes(\*STDOUT);
}