equal
deleted
inserted
replaced
10 use warnings; |
10 use warnings; |
11 |
11 |
12 use File::Temp qw/ tempdir /; |
12 use File::Temp qw/ tempdir /; |
13 my $td = tempdir( CLEANUP => 1 ); |
13 my $td = tempdir( CLEANUP => 1 ); |
14 |
14 |
15 my $xres = 800; |
15 my $xres = 1024; |
16 my $yres = 800; |
16 my $yres = 1024; |
17 my $rpict_cmd = "rpict -av .2 .2 .2 -x $xres -y $yres"; |
17 my $rpict_cmd = "rpict -av .2 .2 .2 -x $xres -y $yres"; |
18 |
18 |
19 my $inprad = "$td/op$$.rad"; |
19 my $inprad = "$td/op$$.rad"; |
20 my $testroom = "$td/testroom.rad"; |
20 my $testroom = "$td/testroom.rad"; |
21 my $octree = "$td/op.oct"; |
21 my $octree = "$td/op.oct"; |