[Radiance-general] Legend falsecolor?

[Peter Apian-Bennewitz]

erik.morel at student.denayer.wenk.be wrote:

...
>this simulation.  Is there anyway to create a pic-file with falsecolor without 
>a legend?
...
>
As a quick workaround and since it's a shell script, you may want to change some lines and the legend is gone:
For those so inclined: remove the references to "$td/scol.pic 0 0 -t .2 $td/slab.pic 0 $loff" in the last lines of falsocolor, so that

if ( $?doextrem ) then
         pextrem -o $picture > $td/extrema
         set minpos=`sed 2d $td/extrema | rcalc -e '$2=$2;$1=$1+'"$legwidth"`
         set minval=`rcalc -e '$1=($3*.27+$4*.67+$5*.06)*'"$mult" $td/extrema | sed -e 2d -e 's/\(\.[0-9][0-9][0-9]\)[0-9]*/\1/'`
         set maxpos=`sed 1d $td/extrema | rcalc -e '$2=$2;$1=$1+'"$legwidth"`
         set maxval=`rcalc -e '$1=($3*.27+$4*.67+$5*.06)*'"$mult" $td/extrema | sed -e 1d -e 's/\(\.[0-9][0-9][0-9]\)[0-9]*/\1/'`
         psign -s -.15 -a 2 -h 16 $minval > $td/minv.pic
         psign -s -.15 -a 2 -h 16 $maxval > $td/maxv.pic
         pcomb $pc0args $pc1args $picture $cpict \
                 | pcompos $td/scol.pic 0 0 -t .2 $td/slab.pic 0 $loff \
                   - $legwidth 0 $td/minv.pic $minpos $td/maxv.pic $maxpos
else
         pcomb $pc0args $pc1args $picture $cpict \
                 | pcompos $td/scol.pic 0 0 -t .2 $td/slab.pic 0 $loff - $legwidth 0
endif

looks like

if ( $?doextrem ) then
         pextrem -o $picture > $td/extrema
         set minpos=`sed 2d $td/extrema | rcalc -e '$2=$2;$1=$1+'"$legwidth"`
         set minval=`rcalc -e '$1=($3*.27+$4*.67+$5*.06)*'"$mult" $td/extrema | sed -e 2d -e 's/\(\.[0-9][0-9][0-9]\)[0-9]*/\1/'`
         set maxpos=`sed 1d $td/extrema | rcalc -e '$2=$2;$1=$1+'"$legwidth"`
         set maxval=`rcalc -e '$1=($3*.27+$4*.67+$5*.06)*'"$mult" $td/extrema | sed -e 1d -e 's/\(\.[0-9][0-9][0-9]\)[0-9]*/\1/'`
         psign -s -.15 -a 2 -h 16 $minval > $td/minv.pic
         psign -s -.15 -a 2 -h 16 $maxval > $td/maxv.pic
         pcomb $pc0args $pc1args $picture $cpict \
                 | pcompos  \
                   - 0 0 $td/minv.pic $minpos $td/maxv.pic $maxpos
else
         pcomb $pc0args $pc1args $picture $cpict
endif

slab.pic contains the labels, scol.pic holds the color background of the legend.
works for me, your mileage may vary.

-Peter

-- 
     pab-opto, Freiburg, Germany, http://www.pab-opto.de
     [see web page to check digital email signature]





-------------- next part --------------
*** /usr/local/radiance/bin/falsecolor	Thu Mar  4 12:12:48 2004
--- /usr/local/radiance/bin/falsecolor.noscale	Thu Mar  4 12:12:56 2004
***************
*** 1,5 ****
! #!/bin/csh -fe
! # RCSid: $Id: falsecolor.csh,v 2.8 2003/02/22 02:07:27 greg Exp $
  #
  # Create false color image with legend
  #
--- 1,5 ----
! #!/bin/csh -f
! # SCCSid "@(#)falsecolor.csh 2.7 9/5/96 LBL"
  #
  # Create false color image with legend
  #
***************
*** 165,175 ****
  	psign -s -.15 -a 2 -h 16 $minval > $td/minv.pic
  	psign -s -.15 -a 2 -h 16 $maxval > $td/maxv.pic
  	pcomb $pc0args $pc1args $picture $cpict \
! 		| pcompos $td/scol.pic 0 0 -t .2 $td/slab.pic 0 $loff \
! 		  - $legwidth 0 $td/minv.pic $minpos $td/maxv.pic $maxpos
  else
! 	pcomb $pc0args $pc1args $picture $cpict \
! 		| pcompos $td/scol.pic 0 0 -t .2 $td/slab.pic 0 $loff - $legwidth 0
  endif
  quit:
  rm -rf $td
--- 165,174 ----
  	psign -s -.15 -a 2 -h 16 $minval > $td/minv.pic
  	psign -s -.15 -a 2 -h 16 $maxval > $td/maxv.pic
  	pcomb $pc0args $pc1args $picture $cpict \
! 		| pcompos  \
! 		  - 0 0 $td/minv.pic $minpos $td/maxv.pic $maxpos
  else
! 	pcomb $pc0args $pc1args $picture $cpict 
  endif
  quit:
  rm -rf $td