plplot-tcl-dev 5.10.0+dfsg2-0.1ubuntu2 / usr / share / doc / libplplot12 / examples / tcl / x16.tcl

#----------------------------------------------------------------------------
# $Id: x16.tcl 12431 2013-07-19 09:53:51Z arjenmarkus $
#----------------------------------------------------------------------------

# plshades demo, using color fill.

proc x16 {{w loopback}} {

    set ns 20
    set nx 35
    set ny 46

    set fill_width 2.; set cont_color 0; set cont_width 0.

    matrix clevel f $ns
    matrix shedge f [expr $ns+1]
    matrix xg1 f $nx
    matrix yg1 f $ny
    matrix xg2 f $nx $ny
    matrix yg2 f $nx $ny
    matrix zz f $nx $ny
    matrix ww f $nx $ny

# Colorbar - note: single values, as we have only one bar
    set n_axis_opts    1
    set axis_opts      "bcvtm"
    set axis_ticks     0.0
    set axis_subticks  0
    set label_opts     $::PLPLOT::PL_COLORBAR_LABEL_BOTTOM
    set labels         "Magnitude"

# Set up data array

    for {set i 0} {$i < $nx} {incr i} {
	set x [expr {double($i - ($nx/2)) / double($nx/2)}]
	for {set j 0} {$j < $ny} {incr j} {
	    set y [expr {double($j - $ny/2) / double($ny/2) - 1.}]

	    zz $i $j = [expr {-sin(7.*$x) * cos(7.*$y) + $x*$x - $y*$y} ]
	    ww $i $j = [expr {-cos(7.*$x) * sin(7.*$y) + 2 * $x * $y} ]
	}
    }

    set zmin [zz 0 0]
    set zmax $zmin
    for {set i 0} {$i < $nx} {incr i} {
	for {set j 0} {$j < $ny} {incr j} {
	    if {[zz $i $j] < $zmin} { set zmin [zz $i $j] }
	    if {[zz $i $j] > $zmax} { set zmax [zz $i $j] }
	}
    }

    for {set i 0} {$i < $ns} {incr i} {
	clevel $i = [expr {$zmin + ($zmax - $zmin) * ($i + .5) / double($ns)}]
    }

    for {set i 0} {$i < $ns+1} {incr i} {
	shedge $i = [expr {$zmin + ($zmax - $zmin) * double($i) / double($ns)}]
    }

# Build the 1-d coord arrays.

    set distort .4

    for {set i 0} {$i < $nx} {incr i} {
	set xx [expr {-1. + $i * ( 2. / ($nx-1.) )}]
	xg1 $i = [expr {$xx + $distort * cos( .5 * $::PLPLOT::PL_PI * $xx )} ]
    }

    for {set j 0} {$j < $ny} {incr j} {
	set yy [expr {-1. + $j * ( 2. / ($ny-1.) )}]
	yg1 $j = [expr {$yy - $distort * cos( .5 * $::PLPLOT::PL_PI * $yy )} ]
    }

# Build the 2-d coord arrays.

    for {set i 0} {$i < $nx} {incr i} {
	set xx [expr {-1. + $i * ( 2. / ($nx-1.) )}]
	for {set j 0} {$j < $ny} {incr j} {
	    set yy [expr {-1. + $j * ( 2. / ($ny-1.) )}]

	    set argx [expr {.5 * $::PLPLOT::PL_PI * $xx}]
	    set argy [expr {.5 * $::PLPLOT::PL_PI * $yy}]

	    xg2 $i $j = [expr {$xx + $distort * cos($argx) * cos($argy)} ]
	    yg2 $i $j = [expr {$yy - $distort * cos($argx) * cos($argy)} ]
	}
    }

# Plot using identity transform

    $w cmd pladv 0
    $w cmd plvpor 0.1 0.9 0.1 0.9
    $w cmd plwind -1.0 1.0 -1.0 1.0

    $w cmd plpsty 0

    $w cmd plshades zz -1. 1. -1. 1. \
      shedge $fill_width $cont_color $cont_width \
      1 "NULL"

    # 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

#    plcont(w, nx, ny, 1, nx, 1, ny, clevel, ns, mypltr, NULL);

    $w cmd pllab "distance" "altitude" "Bogon density"

# Plot using 1d coordinate transform

    $w cmd plspal0 "cmap0_black_on_white.pal"
    $w cmd plspal1 "cmap1_blue_yellow.pal" 1

    $w cmd pladv 0
    $w cmd plvpor 0.1 0.9 0.1 0.9
    $w cmd plwind -1.0 1.0 -1.0 1.0

    $w cmd plpsty 0

    $w cmd plshades zz -1. 1. -1. 1. \
      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

#    plcont(w, nx, ny, 1, nx, 1, ny, clevel, ns, pltr1, (void *) &cgrid1);

    $w cmd pllab "distance" "altitude" "Bogon density"

# Plot using 2d coordinate transform

    $w cmd plspal0 "cmap0_black_on_white.pal"
    $w cmd plspal1 "cmap1_blue_red.pal" 1

    $w cmd pladv 0
    $w cmd plvpor 0.1 0.9 0.1 0.9
    $w cmd plwind -1.0 1.0 -1.0 1.0

    $w cmd plpsty 0

    $w cmd plshades zz -1. 1. -1. 1. \
      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
    $w cmd plcont ww clevel pltr2 xg2 yg2

    $w cmd pllab "distance" "altitude" "Bogon density, with streamlines"

# Plot using 2d coordinate transform with both shades and contours.

    $w cmd plspal0 ""
    $w cmd plspal1 "" 1

    $w cmd pladv 0
    $w cmd plvpor 0.1 0.9 0.1 0.9
    $w cmd plwind -1.0 1.0 -1.0 1.0

    $w cmd plpsty 0

    $w cmd plshades zz -1. 1. -1. 1. \
      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 \
        2 3.0 \
        $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

    $w cmd pllab "distance" "altitude" "Bogon density"

# Polar plot example demonstrating wrapping support.

    $w cmd plspal0 "cmap0_black_on_white.pal"
    $w cmd plspal1 "cmap1_gray.pal" 1

# Build the new coordinate matrices.

    set nylim [expr $ny - 1]; set wrap 2;
    matrix xg f $nx $nylim
    matrix yg f $nx $nylim
    matrix z  f $nx $nylim

    for {set i 0} {$i < $nx} {incr i} {
	set r [expr {$i / ($nx - 1.)}]
	for {set j 0} {$j < $nylim} {incr j} {
	    set t [expr {2. * $::PLPLOT::PL_PI * $j / ($ny - 1.)}]

	    xg $i $j = [expr {$r * cos($t)}]
	    yg $i $j = [expr {$r * sin($t)}]

	    z $i $j = [expr {exp(-$r*$r) * cos(5.*$t) * cos(5.*$::PLPLOT::PL_PI*$r)} ]
	}
    }

# Need a new shedge to go along with the new data set.

    set zmin [z 0 0]
    set zmax $zmin
    for {set i 0} {$i < $nx} {incr i} {
	for {set j 0} {$j < $nylim} {incr j} {
	    if {[z $i $j] < $zmin} { set zmin [z $i $j] }
	    if {[z $i $j] > $zmax} { set zmax [z $i $j] }
	}
    }

    for {set i 0} {$i < [expr $ns+1]} {incr i} {
	shedge $i = [expr {$zmin + ($zmax - $zmin)/double($ns) * double($i)}]
    }

    $w cmd pladv 0
    $w cmd plvpor 0.1 0.9 0.1 0.9
    $w cmd plwind -1.0 1.0 -1.0 1.0

    $w cmd plpsty 0

    $w cmd plshades z -1. 1. -1. 1. \
      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

    for {set i 0} {$i < 100} {incr i} {
	set t [expr {2. * $::PLPLOT::PL_PI * $i / 99.}]
	px $i = [expr {cos($t)}]
	py $i = [expr {sin($t)}]
    }
# draw the perimeter.
    $w cmd plcol0 1
    $w cmd plline 100 px py

# And label the plot.
    $w cmd plcol0 2
    $w cmd pllab "" "" "Tokamak Bogon Instability"
# Restore defaults
    # $w cmd plcol0 1
}