chiark / gitweb /
prioritise even # over other-posn for on style
authorian <ian>
Sun, 26 Jun 2005 01:51:21 +0000 (01:51 +0000)
committerian <ian>
Sun, 26 Jun 2005 01:51:21 +0000 (01:51 +0000)
layout/plan-to-gui-data

index bd1fed4f2f83a5ab23f3e05c3e4feee74700564f..52c1149ccf8f48f22c4cc12cf8417b5d2619aebb 100755 (executable)
@@ -228,13 +228,13 @@ sub in_pixel ($) {
            unless defined $found;
        $xpmname= $segname.'_'.$found;
        xpmdata_pixel("on", "u_${xpmname}",
-                     (($p{X} + $p{Y}) % 2) ? $angstr : '-')
+                     (($p{X} + $p{Y}) % 2) ? $angstr : '!')
            unless $t{Edge};
        xpmdata_pixel("bitmap", "m_${xpmname}", '*');
        for ($bitno=0; $bitno < $movfeat_configbits{$xpmname}; $bitno++) {
            $namerhs= "${xpmname}_${bitno}";
            $yes= $p{Movpos} == $bitno;
-           xpmdata_pixel("on","_$namerhs", $yes ? $angstr : '-')
+           xpmdata_pixel("on","_$namerhs", $yes ? $angstr : '!')
                unless $t{Edge};
            xpmdata_pixel("bitmap","e_$namerhs", $yes ? '*' : ' ')
                if $t{Edge};
@@ -387,7 +387,7 @@ sub cmaps_define () {
            xpm_cmap("on","${inv}${ondet}");
            xpm_cmap_rgbpermil("${inv}${ondet}",
                               ' ', @background,
-                              '-', @otherposn);
+                              '!', @otherposn);
        }
        xpm_cmap_angular("${inv}on", !!$inv, 600, qw(0 0 0));
        xpm_cmap_angular("${inv}det",!!$inv, 330, qw(1000 1000 1000));