| 144 |  | endif | 
| 145 |  | set ndxnam=("Guth Visual Comfort Probability" "Guth Disability Glare Ratio" "CIE Glare Index") | 
| 146 |  | set ndxcom=("glarendx -t guth_vcp" "glarendx -t guth_dgr" "glarendx -t cie_cgi") | 
| 147 | + | set bcdlvl=(50 124 18.5) | 
| 148 |  | while ( 1 ) | 
| 149 |  | echo "" | 
| 150 |  | echo "  0.  Quit" | 
| 186 |  | include=polar.plt | 
| 187 |  | title="$ndxnam[$choice]" | 
| 188 |  | subtitle="$subtitle" | 
| 189 | + | Bdata= | 
| 190 | + | 0       $bcdlvl[$choice] | 
| 191 | + | 360     $bcdlvl[$choice] | 
| 192 | + | ; | 
| 193 | + | Blabel="BCD level" | 
| 194 |  | Adata= | 
| 195 |  | _EOF_ | 
| 196 |  | getinfo - < $gndxfile >> $plotfile |