Fix inadvertent renaming.

bug/266/move-to-usr
Darrell Anderson 12 years ago
parent ea64efae1b
commit d84f35f405

@ -75,7 +75,7 @@ sub makeObject
glLineWidth( 2.0 );
glBegin( GL_TQUADS );
glBegin( GL_QUADS );
glVertex3f( 1.0, 0.5, -0.4 );
glVertex3f( 1.0, -0.5, -0.4 );
glVertex3f( -1.0, -0.5, -0.4 );
@ -84,7 +84,7 @@ sub makeObject
qglColor( &blue );
glBegin( GL_TQUADS );
glBegin( GL_QUADS );
glVertex3f( 1.0, 0.5, 0.4 );
glVertex3f( 1.0, -0.5, 0.4 );
glVertex3f( -1.0, -0.5, 0.4 );
@ -93,7 +93,7 @@ sub makeObject
qglColor( &darkRed );
glBegin( GL_TQUAD_STRIP );
glBegin( GL_QUAD_STRIP );
glVertex3f( 1.0, 0.5, -0.4 ); glVertex3f( 1.0, 0.5, 0.4 );
glVertex3f( 1.0, -0.5, -0.4 ); glVertex3f( 1.0, -0.5, 0.4 );
qglColor( &yellow );

@ -54,7 +54,7 @@ sub gear {
glNormal3f(0.0, 0.0, 1.0);
# draw front face
glBegin(GL_TQUAD_STRIP);
glBegin(GL_QUAD_STRIP);
for $i (0 .. $teeth) {
$angle = $i * 2.0*$pi / $teeth;
glVertex3f($r0*cos($angle), $r0*sin($angle), $width*0.5);
@ -65,7 +65,7 @@ sub gear {
glEnd();
# draw front sides of teeth
glBegin(GL_TQUADS);
glBegin(GL_QUADS);
$da = 2.0*$pi / $teeth / 4.0;
for $i (0 .. $teeth-1) {
$angle = $i * 2.0*$pi / $teeth;
@ -81,7 +81,7 @@ sub gear {
glNormal3f(0.0, 0.0, -1.0);
# draw back face
glBegin(GL_TQUAD_STRIP);
glBegin(GL_QUAD_STRIP);
for $i (0 .. $teeth) {
$angle = $i * 2.0*$pi / $teeth;
glVertex3f($r1*cos($angle), $r1*sin($angle), -$width*0.5);
@ -92,7 +92,7 @@ sub gear {
glEnd();
# draw back sides of teeth
glBegin(GL_TQUADS);
glBegin(GL_QUADS);
$da = 2.0*$pi / $teeth / 4.0;
for $i (0 .. $teeth-1) {
$angle = $i * 2.0*$pi / $teeth;
@ -105,7 +105,7 @@ sub gear {
glEnd();
# draw outward faces of teeth
glBegin(GL_TQUAD_STRIP);
glBegin(GL_QUAD_STRIP);
for $i (0 .. $teeth-1) {
$angle = $i * 2.0*$pi / $teeth;
@ -139,7 +139,7 @@ sub gear {
glShadeModel(GL_SMOOTH);
# draw inside radius cylinder
glBegin(GL_TQUAD_STRIP);
glBegin(GL_QUAD_STRIP);
for $i (0 .. $teeth) {
$angle = $i * 2.0*$pi / $teeth;
glNormal3f(-cos($angle), -sin($angle), 0.0);

@ -23,7 +23,7 @@ use kdocParseDoc;
use vars qw/ %rootNodes $declNodeType @includes_list %options @formats_wanted $allow_k_dcop_accessors
@includeclasses $includeclasses $skipInternal %defines $defines $match_qt_defines
$libdir $libname $outputdir @libs $parse_global_space $qt_embedded $qt4 $striphpath $doPrivate $readstdin
$Version $tquiet $debug $debuggen $parseonly $currentfile $cSourceNode $exe
$Version $quiet $debug $debuggen $parseonly $currentfile $cSourceNode $exe
%formats %flagnames @allowed_k_dcop_accesors $allowed_k_dcop_accesors_re $rootNode
@classStack $cNode $globalSpaceClassName
$lastLine $docNode @includes $cpp $defcppcmd $cppcmd $docincluded
@ -52,7 +52,7 @@ $includeclasses = "";
$doPrivate = 0;
$Version = "0.9";
$tquiet = 0;
$quiet = 0;
$debug = 0;
$debuggen = 0;
$parseonly = 0;
@ -201,7 +201,7 @@ GetOptions( \%options,
"define=s", \%defines, # define a single preprocessing symbol
"defines=s", \$defines, # file containing preprocessing symbols, one per line
"tquiet|q", \$tquiet,
"quiet|q", \$quiet,
"debug|D", \$debug, # debug the parsing
"debuggen", \$debuggen, # debug the file generation
"parse-only", \$parseonly )
@ -221,7 +221,7 @@ else {
if ($#includeclasses>=0)
{
$includeclasses = join (" ", @includeclasses);
print "Using Classes: $includeclasses\n" unless $tquiet;
print "Using Classes: $includeclasses\n" unless $quiet;
}
if ( $#includes >= 0 && !$cpp ) {
@ -330,7 +330,7 @@ sub readLibraries
require kdocLib;
foreach my $lib ( @libs ) {
print "$exe: reading lib: $lib\n" unless $tquiet;
print "$exe: reading lib: $lib\n" unless $quiet;
my $relpath = exists $options{url} ?
$options{url} : $outputdir;
@ -366,7 +366,7 @@ sub parseFiles
|| croak "Can't read from $currentfile";
}
print STDERR "$exe: processing $currentfile\n" unless $tquiet;
print STDERR "$exe: processing $currentfile\n" unless $quiet;
# reset vars
$rootNode = getRoot( $lang );
@ -415,7 +415,7 @@ sub writeDocumentation
require $pack.".pm";
print STDERR "Generating bindings for $format ",
"language...\n" unless $tquiet;
"language...\n" unless $quiet;
my $f = "$pack\::writeDoc";
&$f( $libname, $node, $outputdir, \%options );

Loading…
Cancel
Save