[Date Prev][Date Next][Thread Prev][Thread Next] [Search] [Date Index] [Thread Index]

Re: [MacPerl] Interfacing a C library to MacPerl



All--

I've had a chance to play with it just a bit, and am just chiming in to 
say publicly that I'm  impressed at how quickly Arved was able to turn 
this API into an XS and MacPerl library.  I'm not a COMPLETE idiot (just 
close), but even *I* am now fading the screen to every color in the 
rainbow!  One small caveat:  When viewing the SYNOPSIS of ColorGamma.pm 
in Shuck:

=head1 SYNOPSIS

  use Mac::Quickdraw;
  use Mac::Events;
  use ColorGamma;
  
  $blue = new RGBColor 0x0000,0x0000,0xFFFF;
  my $normal = new_GIHdl();
	
  die "Bad start" if StartFading($normal);

  # quick to blue
  FadeToColor( $blue, 50, inverseQuadraticFade );	
  Wait(10);
	
  # down to black, then normal
  FadeToBlack( 30, quadraticFade );
  FadeToGamma( $normal, 100, linearFade );
  Wait(10);
	
  StopFading( $normal, 1 );

is not useable code.  Arved is assuming the subroutine:

  sub Wait {
      my $numTicks = shift;

      $start = TickCount();
      1 while (TickCount() - $start < $numTicks);
  }

which probably should have gone in the example, just for completeness and 
correctness.



# Fungal Parataxonomy                   Mycology Information (Mycoinfo)
# Webmaster, Staff Writer      **The World's First Mycology E-Journal**   
# <mailto:webmaster@mycoinfo.com>            <http://www.mycoinfo.com/> 
#
# First they ignore you. Then they laugh at you. Then they fight you.
# Then you win.                                     --Mohandas Gandhi


===== Want to unsubscribe from this list?
===== Send mail with body "unsubscribe" to macperl-request@macperl.org