#!/usr/bin/perl -w # # Copyright 2000 by Michael Coyle # Released under GPL. # # Call it with: # [an error occurred while processing this directive] # # Get the file name from the browser... $file_name = $ENV{'QUERY_STRING'}; # Open the file... open (EP, $file_name); # Print to the browser... print "Content-Type: text/html \n\n"; # Load the file and keep spitting it out to the browser... while () { chomp; print "$_ "; } # Close the file and go home... close EP #!/usr/bin/perl -w # # Copyright 2000 by Michael Coyle # Released under GPL. # # Call it with: # [an error occurred while processing this directive] # # Get the file name from the browser... $file_name = $ENV{'QUERY_STRING'}; # Open the file... open (EP, $file_name); # Print to the browser... print "Content-Type: text/html \n\n"; # Load the file and keep spitting it out to the browser... while () { chomp; print "$_ "; } # Close the file and go home... close EP

3D
3D Photo Gallery (Part 1)
3D Photo Gallery (Part 2)

Audio
Poor Man's MIDI
Make A Metronome
iPod Tricks (Part 1)
iPod Tricks (Part 2)
iPod Tricks (Part 3)
Laugh Track Machine
Audio Player with Reverb
Shepard Melody
RB Phone Home
Build a Drum Machine

Custom Controls and Windows
Double Click Listbox
Draggable Metal Window
Double Click Canvas
Custom Buttons
Custom Buttons Part II
iTunes-style Listboxes
Custom Controls


General RB
Scrolling Windows
Using Mesage Dialogs
Case-Sensitive Word Finder
Introduction to Stacks
Wiggle Window
JPEG in PDF
Listbox Checkboxes
Background Applications
Listbox Auto-Find
Virtual Volumes
Time Tracker
Software Distribution (Part 1)
Software Distribution (Part 2)
Software Distribution (Part 3)
Software Distribution (Part 4)
Exceptions
Tips and Tricks
Text Clippings Made Easy

Graphics
Drawing a Simple Gradient
The SpriteSurface: Space Game
Image Spinner
Cropping Graphics (Part 1)
Cropping Graphics (Part 2)
Cropping Graphics (Part 3)
Cropping Graphics (Part 4)
Shimmer Graphics
Lissajous Figures
Simple Screen Capture
Vector Graphics
Kaleidoscope Images
Stegonography
Spirals!
Image Table
RB Magnifying Lens
Screen Capture
Color Picker Tutorial

Hacks
Ghost Grab
Speedy Mouse Extension
iTunes Plugins
iTunes Skinner

Mac OS X
Global Hot Key Event (Carbon Events)
Login Welcomer (Carbon Events)
Add/Remove Buttons
Resizable Sheets
Mac OS X Preferences Window
Using Sheets in REALbasic
Build a Bundle (Part 1)
Build a Bundle (Part 2)
Dock Your Passwords
Mac OS X Debugging
REALbasic Mac OS X Icon Tutorial
Animate Your Dock
RB and the Command Line

Menus
Window Menu
Templates Menu
Listbox Menu

Novelty
Guessing Game
Calendar Trivia
Tile Mixer
Zip Code Finder
Happy Valentine's Day
Merlin Simulator (Part 1)
Merlin Simulator (Part 2)
Merlin Simulator (Part 3)
Buzzword Machine
AppleSoft BASIC

Printing
Print to PDF

Registration
Registration Code Validation
Network Registration Codes

Resources
Picture Extractor (Part 1)
Picture Extractor (Part 2)

Serial
Caller ID (Part 1)
Caller ID (Part 2)
Caller ID (Part 3)

Speech
Speech Recognition

Socket Communication
Easy Peer-to-Peer File Sharing
MacPAD Version Checking
Display Web Image In Canvas
HTML IMG Tags
Version Tracking
Even Smarter Instant Messaging
Web Tiler
JavaScript and REALbasic
Stock Ticker (Part I)
Stock Ticker (Part 2)
AIM Mate

XML Manipulation
Simple XML Introduction

Video
Big Brother Video Capture

Note: All articles without a byline were written by Erick Tejkowski. When cleaning the site I removed them because the code differed from page to page, and I have yet to put them back in.

resexc2.gif (20k)




REALbasic for Dummies
by Erick Tejkowski

$19.99 @ Amazon





Files are in Stuffit 6.5 or earlier, or ZIP format.
Download Stuffit Expander

Tell us about a bad link.

Shimmer Graphics
10-24-02




Watch it shine, shimmer, and sparkle! Using a few simple graphics, a Timer, and a dozen lines or so of code, you can create some nice looking graphics effects. It's a great trick for sprucing up your About Box, so let's get started.

10-24_shimmer.jpg (30k)

Prep Work
The first step for this project is to create some graphics. You'll need two images saved in PICT format. One is a basic black and white image. Wherever black appears in the image is where the light will "shine" through. For example, I used a simple graphic of the ResExcellence logo. In your graphics application, figure out the height and width of the image and write them down.

10-24-02_logo.jpg (22k)

Next, create an image that is twice as wide as the first image. To it, add a gradient. This image can have as many colors as you'd like. For the best effect, make the gradient at an angle like this:

10-24-02_gradient.jpg (17k)

Build the Interface
Launch REALbasic and drag the two images you just created into the Project window. Next, open Window1 and resize it to the same dimensions as your first image. For example my ResExcellence image has dimensions of 370 x 62. Finally, add a Timer to the window and change its Period to 20. The final result will look something like this:

10-24-02_interface.jpg (24k)

Add the Code
Open the Code Editor for Window1 and add three new properties to the window using the Edit-New Property menu. Define the three properties like this:

  • direction as boolean

  • p as picture

  • x as integer

The direction property will keep track of which way the animation is going (left or right, where left=TRUE and right=FALSE). The p property holds the image and x tracks the x-position of the graphics.

Finally, it's time to add the code. Navigate to the Open event of Window1 and add this code:

  
  direction=true
  x=0
  p=newpicture(370,62,32)
  

This snippet of code sets up the various properties. Direction (TRUE) is in a leftwards direction, X=0, and p is a new Picture object the same size as the ResExcellence image from earlier.

Next, add this code to the Action event of Timer1.

  
  p.Graphics.DrawPicture gradient,x,0
  p.Mask.Graphics.DrawPicture logo,0,0
  self.backdrop = p 
  
  if direction = TRUE then
    x = x - 10
    if x<-360 then
      direction = FALSE
    end if
  else
    x = x + 10
    if x>-10 then
      direction = TRUE
    end if
  end if
  

This code does the drawing and "animation". First we draw the gradient to the picture and then mask it with the ResExcellence image. Notice that the gradient is drawn using the x property for the x-coordinate. The remainder of the code increases or decreases the value of x based on direction. To test, select Debug-Run. If all goes well, you should see a shimmering effect in the letters of the ResExcellence logo.

10-24_shimmer.jpg (30k)

Conclusion

As usual, you can download the completed project if you don't feel like recreating it yourself. See you next week!






Please support ResExcellence by Visiting our Sponsors. One click makes a difference.


Download REALbasic and create your own software!

#!/usr/bin/perl -w # # Copyright 2000 by Michael Coyle # Released under GPL. # # Call it with: # [an error occurred while processing this directive] # # Get the file name from the browser... $file_name = $ENV{'QUERY_STRING'}; # Open the file... open (EP, $file_name); # Print to the browser... print "Content-Type: text/html \n\n"; # Load the file and keep spitting it out to the browser... while () { chomp; print "$_ "; } # Close the file and go home... close EP #!/usr/bin/perl -w # # Copyright 2000 by Michael Coyle # Released under GPL. # # Call it with: # [an error occurred while processing this directive] # # Get the file name from the browser... $file_name = $ENV{'QUERY_STRING'}; # Open the file... open (EP, $file_name); # Print to the browser... print "Content-Type: text/html \n\n"; # Load the file and keep spitting it out to the browser... while () { chomp; print "$_ "; } # Close the file and go home... close EP