Menu
▾
▴
[Plplot-cvs] SF.net SVN: plplot:[12426] trunk
|
From: <arj...@us...> - 2013-07-16 19:20:11
|
Revision: 12426
http://sourceforge.net/p/plplot/code/12426
Author: arjenmarkus
Date: 2013-07-16 19:20:07 +0000 (Tue, 16 Jul 2013)
Log Message:
-----------
Update the list of PLplot parameters for Tcl
Expand Tcl example 16 with the rest of the calls to colorbar.
Note: there remains a small difference in the PS file for this example
with the PS file for the C example. I have not been able to trace the cause
yet.
Modified Paths:
--------------
trunk/bindings/tcl/plplot_parameters.h
trunk/examples/tcl/x16.tcl
Modified: trunk/bindings/tcl/plplot_parameters.h
===================================================================
--- trunk/bindings/tcl/plplot_parameters.h 2013-07-16 16:42:32 UTC (rev 12425)
+++ trunk/bindings/tcl/plplot_parameters.h 2013-07-16 19:20:07 UTC (rev 12426)
@@ -186,35 +186,56 @@
variable PL_LEGEND_ROW_MAJOR 128\n\
\n\
\n\
-variable PL_COLORBAR_LABEL_LEFT 1\n\
+variable PL_COLORBAR_LABEL_LEFT 0x1\n\
\n\
\n\
-variable PL_COLORBAR_LABEL_RIGHT 2\n\
+variable PL_COLORBAR_LABEL_RIGHT 0x2\n\
\n\
\n\
-variable PL_COLORBAR_LABEL_TOP 4\n\
+variable PL_COLORBAR_LABEL_TOP 0x4\n\
\n\
\n\
-variable PL_COLORBAR_LABEL_BOTTOM 8\n\
+variable PL_COLORBAR_LABEL_BOTTOM 0x8\n\
\n\
\n\
-variable PL_COLORBAR_IMAGE 16\n\
+variable PL_COLORBAR_IMAGE 0x10\n\
\n\
\n\
-variable PL_COLORBAR_SHADE 32\n\
+variable PL_COLORBAR_SHADE 0x20\n\
\n\
\n\
-variable PL_COLORBAR_GRADIENT 64\n\
+variable PL_COLORBAR_GRADIENT 0x40\n\
\n\
\n\
-variable PL_COLORBAR_CAP_LOW 128\n\
+variable PL_COLORBAR_CAP_NONE 0x80\n\
\n\
\n\
-variable PL_COLORBAR_CAP_HIGH 256\n\
+variable PL_COLORBAR_CAP_LOW 0x100\n\
\n\
\n\
-variable PL_COLORBAR_SHADE_LABEL 512\n\
+variable PL_COLORBAR_CAP_HIGH 0x200\n\
\n\
+\n\
+variable PL_COLORBAR_SHADE_LABEL 0x400\n\
+\n\
+\n\
+variable PL_COLORBAR_ORIENT_RIGHT 0x800\n\
+\n\
+\n\
+variable PL_COLORBAR_ORIENT_TOP 0x1000\n\
+\n\
+\n\
+variable PL_COLORBAR_ORIENT_LEFT 0x2000\n\
+\n\
+\n\
+variable PL_COLORBAR_ORIENT_BOTTOM 0x4000\n\
+\n\
+\n\
+variable PL_COLORBAR_BACKGROUND 0x8000\n\
+\n\
+\n\
+variable PL_COLORBAR_BOUNDING_BOX 0x10000\n\
+\n\
# device coordinates\n\
variable PLSWIN_DEVICE 1\n\
\n\
Modified: trunk/examples/tcl/x16.tcl
===================================================================
--- trunk/examples/tcl/x16.tcl 2013-07-16 16:42:32 UTC (rev 12425)
+++ trunk/examples/tcl/x16.tcl 2013-07-16 19:20:07 UTC (rev 12426)
@@ -99,7 +99,6 @@
shedge $fill_width $cont_color $cont_width \
1 "NULL"
-
# Colorbar:
# We draw only one bar, so use single values, not lists
#
@@ -123,7 +122,6 @@
$w cmd plsmaj 0.0 1.0
$w cmd plsmin 0.0 1.0
-
$w cmd plcol0 1
$w cmd plbox "bcnst" 0.0 0 "bcnstv" 0.0 0
$w cmd plcol0 2
@@ -147,6 +145,29 @@
shedge $fill_width $cont_color $cont_width \
1 pltr1 xg1 yg1
+ # Colorbar:
+ # We draw only one bar, so use single values, not lists
+ #
+ # Smaller text
+ $w cmd plschr 0.0 0.75
+ # Small ticks on the vertical axis
+ $w cmd plsmaj 0.0 0.5
+ $w cmd plsmin 0.0 0.5
+
+ $w cmd plcolorbar \
+ [expr {$::PLPLOT::PL_COLORBAR_SHADE | $::PLPLOT::PL_COLORBAR_SHADE_LABEL}] 0 \
+ 0.005 0.0 0.0375 0.875 0 1 1 0.0 0.0 \
+ $cont_color $cont_width \
+ $label_opts $labels \
+ $axis_opts \
+ $axis_ticks $axis_subticks \
+ shedge
+
+ # Reset text and tick sizes
+ $w cmd plschr 0.0 1.0
+ $w cmd plsmaj 0.0 1.0
+ $w cmd plsmin 0.0 1.0
+
$w cmd plcol0 1
$w cmd plbox "bcnst" 0.0 0 "bcnstv" 0.0 0
$w cmd plcol0 2
@@ -170,6 +191,29 @@
shedge $fill_width $cont_color $cont_width \
0 pltr2 xg2 yg2
+ # Colorbar:
+ # We draw only one bar, so use single values, not lists
+ #
+ # Smaller text
+ $w cmd plschr 0.0 0.75
+ # Small ticks on the vertical axis
+ $w cmd plsmaj 0.0 0.5
+ $w cmd plsmin 0.0 0.5
+
+ $w cmd plcolorbar \
+ [expr {$::PLPLOT::PL_COLORBAR_SHADE | $::PLPLOT::PL_COLORBAR_SHADE_LABEL}] 0 \
+ 0.005 0.0 0.0375 0.875 0 1 1 0.0 0.0 \
+ $cont_color $cont_width \
+ $label_opts $labels \
+ $axis_opts \
+ $axis_ticks $axis_subticks \
+ shedge
+
+ # Reset text and tick sizes
+ $w cmd plschr 0.0 1.0
+ $w cmd plsmaj 0.0 1.0
+ $w cmd plsmin 0.0 1.0
+
$w cmd plcol0 1
$w cmd plbox "bcnst" 0.0 0 "bcnstv" 0.0 0
$w cmd plcol0 2
@@ -192,6 +236,29 @@
shedge $fill_width 2 3 \
0 pltr2 xg2 yg2
+ # Colorbar:
+ # We draw only one bar, so use single values, not lists
+ #
+ # Smaller text
+ $w cmd plschr 0.0 0.75
+ # Small ticks on the vertical axis
+ $w cmd plsmaj 0.0 0.5
+ $w cmd plsmin 0.0 0.5
+
+ $w cmd plcolorbar \
+ [expr {$::PLPLOT::PL_COLORBAR_SHADE | $::PLPLOT::PL_COLORBAR_SHADE_LABEL}] 0 \
+ 0.005 0.0 0.0375 0.875 0 1 1 0.0 0.0 \
+ $cont_color $cont_width \
+ $label_opts $labels \
+ $axis_opts \
+ $axis_ticks $axis_subticks \
+ shedge
+
+ # Reset text and tick sizes
+ $w cmd plschr 0.0 1.0
+ $w cmd plsmaj 0.0 1.0
+ $w cmd plsmin 0.0 1.0
+
$w cmd plcol0 1
$w cmd plbox "bcnst" 0.0 0 "bcnstv" 0.0 0
$w cmd plcol0 2
@@ -247,6 +314,29 @@
shedge $fill_width $cont_color $cont_width \
0 pltr2 xg yg $wrap
+ # Colorbar:
+ # We draw only one bar, so use single values, not lists
+ #
+ # Smaller text
+ $w cmd plschr 0.0 0.75
+ # Small ticks on the vertical axis
+ $w cmd plsmaj 0.0 0.5
+ $w cmd plsmin 0.0 0.5
+
+ $w cmd plcolorbar \
+ [expr {$::PLPLOT::PL_COLORBAR_SHADE | $::PLPLOT::PL_COLORBAR_SHADE_LABEL}] 0 \
+ 0.005 0.0 0.0375 0.875 0 1 1 0.0 0.0 \
+ $cont_color $cont_width \
+ $label_opts $labels \
+ $axis_opts \
+ $axis_ticks $axis_subticks \
+ shedge
+
+ # Reset text and tick sizes
+ $w cmd plschr 0.0 1.0
+ $w cmd plsmaj 0.0 1.0
+ $w cmd plsmin 0.0 1.0
+
# Hold perimeter
matrix px f 100; matrix py f 100
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
