| # | Line 4 | Line 4 | |
|---|---|---|
| 4 | # Visualize ambient positions and gradients | |
| 5 | # | |
| 6 | use strict; | |
| 7 | + | my $windoz = ($^O eq "MSWin32" or $^O eq "MSWin64"); |
| 8 | + | die "Not supported under Windows -- sorry!\n" if ( $windoz ); |
| 9 | sub userror { | |
| 10 | print STDERR "Usage: genambpos [-l lvl][-w minwt][-r rad][-s sf][-p][-d] scene.amb > ambloc.rad\n"; | |
| 11 | exit 1; | |
| # | Line 107 | Line 109 | void glow tipglow | |
| 109 | 0 | |
| 110 | 4 ${2*agr} ${2*agg} ${2*agb} 0 | |
| 111 | ||
| 112 | < | tipglow sphere atip |
| 112 | > | tipglow sphere atip${recno} |
| 113 | 0 | |
| 114 | 0 | |
| 115 | 4 ${ cx1 } ${ cy1 } ${ cz1 } ${psiz/7} | |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |