corr default: symbols color, curves black&white

pub/share/g3.ps

@@ -23,8 +23,8 @@ originUpperLeft_A4
 
 %%  Symbols and curve styles:
 
-T /pcol x def % colors off/on
-{ 10 aCol1 iColA } /ipCol x bind def % number of colours and colour style
+F /pcol x def % black&white on/off
+{ 10 aCol4 iColA } /ipCol x bind def % number of colours and colour style
 /pStyles [
 { pcol {  1 1 0 1. 1. pset } { 1 1 0 1. 1. pset  0 ipCol } ifelse } %  1
 { pcol {  1 0 0 1. 1. pset } { 1 1 0 1. 1. pset  1 ipCol } ifelse } %  3
@@ -38,8 +38,8 @@ T /pcol x def % colors off/on
 { pcol {  5 0 0 1. 1. pset } { 1 1 0 1. 1. pset  9 ipCol } ifelse } % 10
 ] def
 
-F /ccol x def % color on/off
-{ 8 aCol4 iColA } /icCol x bind def % number of colours and colour style
+T /ccol x def % black&white on/off
+{ 8 aCol1 iColA } /icCol x bind def % number of colours and colour style
 /cStyles [
 { ccol { 1. [          ] lset } { 1. [] lset  0 icCol } ifelse } % 1
 { ccol { 1. [1 3       ] lset } { 1. [] lset  1 icCol } ifelse } % 2