Mathematical Principles for Scientific Computing and Visualization
http : // www.farinhansford.com/books/scv
by Gerald Farin and Dianne Hansford

This notebook plots a sample transfer function. 

Figures  14.10 was created with this notebook.

See Chapter 14 : Visualizing Scalar Values over 2D for details.

Updated May 2008

(* Set the output folder *)(SetDirectory[ToFileName[Extract["FileName"/.NotebookInformation[EvaluationNotebook[]],{1},FrontEnd`FileName]]];) 


(* Plot the transfer function *)

(pic=Plot[((Cos[x])^500),{x,-(π/2),(π/2)},PlotPoints->50,PlotStyle->Thickness[0.01`],BaseStyle->{"FontFamily"->"Helvetica","FontSize"->11},AxesLabel->{"Angle","Gray Value"},PlotRange->All]) 


(* Output to a postscript file *)

(Export["reflines_transfer.eps",pic];)