TweetFollow Us on Twitter

Icon Mania
Volume Number:8
Issue Number:6
Column Tag:Getting Started

Related Info: Window Manager Memory Manager Resource Manager

Icon Mania!

More on using WIND resources

By Dave Mark, MacTutor Regular Contributing Author

Note: Source code files accompanying article are located on MacTech CD-ROM or source code disks.

Our last program, PICTWindow, used a WIND resource to create a new window, and then loaded a PICT resource, drawing it in the window. This month, we’ll explore some new resources. We’ll start off in the usual way, using a WIND resource as the basis for a window.

In this month's program, instead of using the window title described in the WIND resource, we'll load the title from a resource designed specifically to hold a text string. Once we set the window's title, we'll load a color icon from the resource file, then plot it in random locations in the window.

This may sound kind of weird, but just be patient! Once you see this program in action, I think you'll like it.

Building the IconMania Resources

Create a new folder in your Development folder named IconMania. Next, launch ResEdit by double-clicking on its icon in the Finder. When you get enough of the clown-in-the-box, click the mouse button. When the “Open FIle” dialog appears, click the New button, navigate into your new IconMania folder and create a resource file named IconMania.Π.rsrc.

The first resource you’ll create is your WIND resource. Select Create New Resource from the Resource menu. When the scrolling list of resource types appears, type WIND (or select it from the scrolling list) and click the OK button. When the WIND editing window appears, change your WIND to reflect the specifications shown in Figure 1.

Figure 1: IconMania’s WIND resource.

Next, select Set 'WIND' Characteristics... from the WIND menu and delete any text in the Window title: field. We'll pull our window title from the resource we create next. Click the OK button, then close the WIND editing window and the WIND picker window, leaving yourself at the main window for the resource file.

Figure 2: The 'WIND' Characteristics dialog box with the window title deleted.

Once again, select Create New Resource from the Resource menu. This time, type the four characters 'STR ', then click the OK button. The fourth character in the resource name is a space. If you leave the space off, ResEdit will stick it in there for you, but don't forget that resource types are always four characters long.

The 'STR ' resource allows you to store a pascal string in the resource file. Remember, a pascal string is a length byte, followed by that many bytes of text. Pascal strings are associated with the Str255 data type. When the 'STR ' editing window appears, type some text in the field labeled "The String". This text will eventually become the title of the IconMania window.

Figure 3: The STR editing window.

Close the STR editing window and the STR picker window, leaving only the main resource window. One more resource to go! Once again, select Create New Resource from the Resource menu. This time, type cicn, then click the OK button. Each cicn resource represents a color icon.

Take a look at the cicn editing window shown in Figure 4. The cicn editor uses a series of MacPaint like tools (shown on the left side of the window) to let you create a pair of icons and an icon mask (see the right side of the window). The color icon is a full-blown color icon. When you click on the color icon on the right side, you'll have access to tools that let you select colors and patterns (The items in the Tools menu help determine the colors available for icon editing).

Figure 4: The cicn editing window.

Trying to edit a color icon on a black and white Mac doesn't make much sense (and it annoys the heck out of ResEdit). To get the most out of this exercise, borrow a friend's Mac if yours doesn't support color.

Spend some time creating just the right color icon. When you are done, click on the icon labeled B & W. Use the same techniques to create a black and white version of the same icon. As you'll see when we get to our source code, the toolbox routine that draws our icon will automatically plot the color icon in a color environment, and will draw the black and white icon when color is not available.

Next, click on the icon labeled Mask. This icon determines which of the pixels in the previous two icons will be plotted. In general, it's a good idea to set all the pixels in your mask to black. Once you're satisfied with your exquisite work of art, close the cicn editing window and the cicn picker window, leaving just the main resource window.

That's it! Your main resource window should show three resource types. Compare your window against the one shown in Figure 5. Once you are satisfied, save your changes, then quit ResEdit. Let's move on to the source code.

Figure 5: The main resource window, showing all three IconMania resource types.

Creating the IconMania Project

Launch THINK C. When you are prompted for a project to open, click the New button and create a project named IconMania.Π in your IconMania folder. Add MacTraps to your project. Next, select New from the File menu. When the new source code window appears, type in the following source code:

/* 1*/

#define kBaseResID 128
#define kMoveToFront (WindowPtr)-1
#define kRandomUpperLimit 32768

/***************/
/*  Functions  */
/***************/

void  ToolBoxInit( void );
void  WindowInit( void );
void  MainLoop( void );
void  DrawRandomIcon( CIconHandle theIcon );
void  RandomPoint( Point *pointPtr );
short Randomize( short range );

/****************** main ***************************/

void  main( void )
{
 ToolBoxInit();
 WindowInit();
 MainLoop();
}

/****************** ToolBoxInit *********************/

void  ToolBoxInit( void )
{
 InitGraf( &thePort );
 InitFonts();
 InitWindows();
 InitMenus();
 TEInit();
 InitDialogs( nil );
 InitCursor();
}

/****************** WindowInit ***********************/

void  WindowInit( void )
{
 WindowPtrwindow;
 StringHandle  windowTitleH;

 window = GetNewWindow( kBaseResID , nil,
 kMoveToFront );
 
 if ( window == nil )
 {
 SysBeep( 10 );  /*  Couldn't load the WIND resource!!!  */
 ExitToShell();
 }
 
 windowTitleH = GetString( kBaseResID );
 
 if ( windowTitleH == nil )
 {
 SysBeep( 10 );  /*  Couldn't load the STR resource!!!  */
 ExitToShell();
 }
 
 HLock( (Handle)windowTitleH );
 SetWTitle( window, *windowTitleH );
 HUnlock( (Handle)windowTitleH );
 
 ShowWindow( window );
 SetPort( window );
}

/****************** MainLoop ***********************/

void  MainLoop( void )
{
 CIconHandletheIcon;
 
 GetDateTime( (unsigned long *)(&randSeed) );
 
 theIcon = GetCIcon( kBaseResID );
 
 if ( theIcon == nil )
 {
 SysBeep( 10 );  /*  Couldn't load the cicn resource!!!  */
 ExitToShell();
 }

 while ( ! Button() )
 DrawRandomIcon( theIcon );
}

/****************** DrawRandomIcon *****************/

void  DrawRandomIcon( CIconHandle theIcon )
{
 Point  p;
 Rect   iconRect;
 
 RandomPoint( &p );
 
 SetRect( &iconRect, p.h, p.v, p.h+32, p.v+32 );
 PlotCIcon( &iconRect, theIcon );
}

/****************** RandomPoint *********************/

void  RandomPoint( Point  *pointPtr )
{
 WindowPtrwindow;

 window = FrontWindow();
 
 pointPtr->h = Randomize( window->portRect.right
 - window->portRect.left );
 pointPtr->v = Randomize( window->portRect.bottom
 - window->portRect.top );
}

/****************** Randomize **********************/

short   Randomize( short range )
{
 long   randomNumber;
 
 randomNumber = Random();
 
 if ( randomNumber < 0 )
 randomNumber *= -1;
 
 return( (randomNumber * range) / kRandomUpperLimit );
}

Once your source code is typed in, select Save from the File menu. Save the file under the name “IconMania.c”. Next, add the source file to the project by select Add (not Add...) from the Source menu. Your project window should look like the one shown in Figure 6.

Figure 6: The IconMania project file.

Running the Program

Now you’re ready to run IconMania. Assuming you have a Mac that supports color, use the Monitors control panel to enable the full complement of colors. Next, run IconMania by selecting Run from the Project menu. If you encounter any errors, check your source code for typos and make sure your project window has the two files shown in Figure 6. Once your program runs, the IconMania window should appear, with its own psychedelic cicn show (See Figure 7). At this point, you might want to put on Houses of the Holy or Dark Side of the Moon and kick back for a while.

Important!!!

IconMania will not run on a Mac that doesn't support color (a Mac Plus, for example). If you absolutely can not get hold of a color Mac, modify IconMania by using an ICON resource instead of a cicn resource, and using GetIcon() and PlotIcon() instead of GetCIcon() and PlotCIcon(). Not as much fun, but it will work!!! Remember that GetCIcon() and PlotCIcon() take a different parameter than GetIcon() and PlotIcon(), so change the type of theIcon throughout the code.

Figure 7: It's IconMania!!!

Stepping Through the Source Code

The #defines kBaseResID and kMoveToFront should be familiar to you by now. kRandomUpperLimit is used by the random number generator in the routine Randomize().

/* 2 */

#define kBaseResID 128
#define kMoveToFront (WindowPtr)-1
#define kRandomUpperLimit 32768

As usual, every function (except main()) has an accompanying function prototype. Since C++ requires function prototypes, this is an especially important habit to develop.

/* 3 */

/***************/
/*  Functions  */
/***************/

void  ToolBoxInit( void );
void  WindowInit( void );
void  MainLoop( void );
void  DrawRandomIcon( CIconHandle theIcon );
void  RandomPoint( Point *pointPtr );
short Randomize( short range );

main() initializes the Toolbox, creates the IconMania window, then enters the main icon drawing loop.

/* 4 */

/****************** main ***************************/
void  main( void )
{
 ToolBoxInit();
 WindowInit();
 MainLoop();
}

ToolBoxInit() is the same as it ever was.

/* 5 */

/****************** ToolBoxInit *********************/
void  ToolBoxInit( void )
{
 InitGraf( &thePort );
 InitFonts();
 InitWindows();
 InitMenus();
 TEInit();
 InitDialogs( nil );
 InitCursor();
}

As we did in PICTWindow, we call GetNewWindow() to load a WIND resource. If the WIND resource wasn't loaded successfully, beep once, then exit.

/* 6 */

/****************** WindowInit ***********************/

void  WindowInit( void )
{
 WindowPtrwindow;
 StringHandle  windowTitleH;

 window = GetNewWindow( kBaseResID , nil,
 kMoveToFront );
 
 if ( window == nil )
 {
 SysBeep( 10 );  /*  Couldn't load the WIND resource!!!  */
 ExitToShell();
 }

Next, call GetString() to load the 'STR ' resource with the specified resource ID. GetString() reads in the string and returns a handle to the first byte of the string. A handle is essentially a pointer to a pointer. By convention, we end all handle variables with a capital H, as in windowTitleH.

/* 7 */

 windowTitleH = GetString( kBaseResID );

A handle is actually a pointer to a master pointer. When the Mac's memory manager creates a handle to a block of memory, it places the pointer to the block in its list of master pointers and returns a pointer to the master pointer to you.

The reason for handles becomes clearer when the memory manager moves that block of memory. When the block moves (to make way for a larger block, perhaps), the memory manager updates the value in the master pointer, making sure it points to the block's new location. Since your handle points to the master pointer, and the master pointer hasn't moved, the value in your handle doesn't change. Therefore, your handle still references the same block of memory, even though the block changed location.

If handles seem a little abstract, don't panic. As time goes on, handles will become clearer to you. There's really not that much to them, but they can be confusing.

If the 'STR ' resource wasn't loaded, beep once, then exit.

/* 8 */

 if ( windowTitleH == nil )
 {
 SysBeep( 10 );  /*  Couldn't load the STR resource!!!  */
 ExitToShell();
 }

Next, we need to lock the handle, telling the memory manager not to move the block of memory containing the text string. In general, you always lock a handle when you directly reference the master pointer (the pointer the handle poists to). In this case, we'll be passing the master pointer as a parameter to the routine SetWTitle(). That's because the master pointer contains the address of the first byte of the string (just like any Str255 variable).

/* 9 */

 HLock( (Handle)windowTitleH );

Next, the string is passed on to SetWTitle(), which will change the title of the referenced window to the string in the 'STR ' resource.

/* 10 */

 SetWTitle( window, *windowTitleH );

Now that we are done referencing the master pointer, we can unlock the handle again.

/* 11 */

 HUnlock( (Handle)windowTitleH );

Finally, make the window visible and the current port.

/* 12 */

 ShowWindow( window );
 SetPort( window );
}

MainLoop() starts by loading the current date and time into the global variable randSeed. This serves to initialize the Mac's random number generator.

/* 13 */

/****************** MainLoop ***********************/

void  MainLoop( void )
{
 CIconHandletheIcon;
 
 GetDateTime( (unsigned long *)(&randSeed) );

Next, we call GetCIcon() to load the cicn resource from the resource file.

/* 14 */

 theIcon = GetCIcon( kBaseResID );

If the cicn resource wasn't found, beep once then exit.

/* 15 */

 if ( theIcon == nil )
 {
 SysBeep( 10 );  /*  Couldn't load the cicn resource!!!  */
 ExitToShell();
 }

Next, draw random icons until the mouse button is pressed.

/* 16 */

 while ( ! Button() )
 DrawRandomIcon( theIcon );
}

DrawRandomIcon() draws the specified color icon at a random point in the frontmost window.

/* 17 */

/****************** DrawRandomIcon *****************/

void  DrawRandomIcon( CIconHandle theIcon )
{
 Point  p;
 Rect   iconRect;

First, call RandomPoint() to pick a random location in the window.

/* 18 */

 RandomPoint( &p );

Next, use that point as the upper left corner to create a Rect that is 32 pixels by 32 pixels, the size of a color icon.

/* 19 */

 SetRect( &iconRect, p.h, p.v, p.h+32, p.v+32 );

Finally, call PlotCIcon() to draw the icon in the specified Rect. If you like, try changing the 32's in the previous line to 16's or to 64's, to get a feel for plotting an icon in a different size rectangle.

/* 20 */

 PlotCIcon( &iconRect, theIcon );
}

PlotCIcon() is pretty smart. If color is turned off (or simply not available) PlotCIcon() will plot its black and white icon instead. To prove this, try running IconMania with color turned off (see Figure 8).

Figure 8: IconMania in black and white.

RandomPoint() uses the function Randomize() to generate a point somewhere inside the frontmost window.

/* 21 */

/****************** RandomPoint *********************/

void  RandomPoint( Point  *pointPtr )
{
 WindowPtrwindow;

 window = FrontWindow();
 
 pointPtr->h = Randomize( window->portRect.right
 - window->portRect.left );
 pointPtr->v = Randomize( window->portRect.bottom
 - window->portRect.top );
}

Randomize() uses an algorithm from the Mondrian program in the Macintosh Programming Primer, Volume I.

/* 22 */

/****************** Randomize **********************/

short   Randomize( short range )
{
 long   randomNumber;
 
 randomNumber = Random();
 
 if ( randomNumber < 0 )
 randomNumber *= -1;
 
 return( (randomNumber * range) / kRandomUpperLimit );
}

...and for you Pascal Folks

Here's the IconMania source code for you THINK Pascal folks. Type in the code, then work your way through the C commentary. Use this as an opportunity to come up to speed on C.

Remember to select Run Options... from the Run menu and add the resource file to the project.

program IconMania;
 const
  kBaseResID = 128;
  kRandomUpperLimit = 32768;

{--------------------------------> Randomize <---}

 function Randomize (range: INTEGER): INTEGER;
  var
   randomNumber: LONGINT;
 begin
  randomNumber := Random;
  randomNumber := abs(randomNumber);

  Randomize := (randomNumber * range) div kRandomUpperLimit;
 end;

{--------------------------------> RandomPoint     <---}

 procedure RandomPoint (var thePoint: Point);
  var
   window: WindowPtr;
 begin
  window := FrontWindow;

  thePoint.h := Randomize(window^.portRect.right -             
 window^.portRect.left);
  thePoint.v := Randomize(window^.portRect.bottom - 
 window^.portRect.top);
 end;

{--------------------------------> DrawRandomIcon  <---}

 procedure DrawRandomIcon (theIcon: CIconHandle);
  var
   p: Point;
   iconRect: Rect;
 begin
  RandomPoint(p);

  SetRect(iconRect, p.h, p.v, p.h + 32, p.v + 32);
  PlotCIcon(iconRect, theIcon);
 end;

{--------------------------------> MainLoop  <---}

 procedure MainLoop;
  var
   theIcon: CIconHandle;
 begin
  GetDateTime(randSeed);

  theIcon := GetCIcon(kBaseResID);

  if theIcon = nil then
  begin
   SysBeep(10);
   ExitToShell;
  end;

  while (not Button) do
   DrawRandomIcon(theIcon);
 end;

{--------------------------------> WindowInit      <---}

 procedure WindowInit;
  var
   window: WindowPtr;
   windowTitleH: StringHandle;
 begin
  window := GetNewWindow(kBaseResID, nil, WindowPtr(-1));

  if window = nil then
  begin
   SysBeep(10);
   ExitToShell;
  end;

  windowTitleH := GetString(kBaseResID);

  if windowTitleH = nil then
  begin
   SysBeep(10);
   ExitToShell;
  end;

  HLock(Handle(windowTitleH));
  SetWTitle(window, windowTitleH^^);
  HUnlock(Handle(windowTitleH));

  ShowWindow(window);
  SetPort(window);
 end;

{--------------------------------> Mondrian  <---}

begin
 WindowInit;
 MainLoop;
end.

 

Community Search:
MacTech Search:

Software Updates via MacUpdate

How to become the ultimate robot warrior...
Chrono Strike is a delightfully immersive beat ‘em up with a sense of humor (any game with a good Sims reference gets points in my book). [Read more] | Read more »
Tips and tricks to get a higher score in...
Snow Roll is a devilish endless runner very much in the vein of Flappy Bird. It revels in its dastardly level of difficulty, and doesn’t really care how angry you get at it as it knows you’ll keep coming back for more. [Read more] | Read more »
How to win big in Slots Deluxe
Cheating while gambling is illegal and morally wrong, and in some parts of the world it leads to men with names like Vinnie "Six Knuckles" Manchenzo beating you to a pulp in a dark alley. [Read more] | Read more »
How to take over the world in Dictator 2
Running a country isn't easy - especially when you're a dictator who wants to take over the world and crush everyone in your path while you do it. [Read more] | Read more »
Tips and tricks to get a higher score in...
Tank.iois - you guessed it! - another multiplayer arena battler likeAgar.io and Slither.io. It does differentiate itself by putting you in a tiny tank though, so it's not exactly the same. To help you get that all-important high score, we've got a... | Read more »
How to unlock characters in One Tap Tenn...
As the title suggests, One Tap Tennis requires only a single tap to play its particular brand of tennis, and rewards you with a ton of unlockable characters if you perform well. Fortunately for you, we at 148Apps have got a few tips and tricks to... | Read more »
Grab it now: Game Craft’s Legend of War...
The real time strategy game is now available for you to sink your teeth into, through the App Store and Google Play. Combining elements of skill, strategy and empire building, Legend of War is a real gamers’ game. [Read more] | Read more »
Skateboard Party 3 ft. Greg Lutzka (Gam...
Skateboard Party 3 ft. Greg Lutzka 1.0 Device: iOS Universal Category: Games Price: $1.99, Version: 1.0 (iTunes) Description: Skateboard Party is back! This third edition of the popular sports franchise features professional skater... | Read more »
Cubious (Games)
Cubious 1.0 Device: iOS Universal Category: Games Price: $.99, Version: 1.0 (iTunes) Description: Cubious – How smart are you? How high is your IQube? Solve the impossible puzzles to find out, and help a lost little cube find his... | Read more »
Goat Simulator Waste of Space (Games)
Goat Simulator Waste of Space 1.1 Device: iOS Universal Category: Games Price: $4.99, Version: 1.1 (iTunes) Description: ** IMPORTANT - SUPPORTED DEVICESiPhone 4S, iPad 2, iPod Touch 5 or better.** | Read more »

Price Scanner via MacPrices.net

Enterprise Workers Pick Technology Over Perks...
New Adobe study shows surprising attitudes about office jobs and where the future of work is heading. Adobe has released survey findings revealing that a surprising 70 percent of U.S. office workers... Read more
Memorial Day Weekend Sale: $50-$100 off 11-in...
B&H Photo has 13″ and 11″ MacBook Airs with 256GB SSDs on sale for $50-$100 off MSRP. Shipping is free, and B&H charges NY sales tax only: - 11″ 1.6GHz/256GB MacBook Air: $999 $100 off MSRP... Read more
Memorial Day Weekend Sales: Apple MacBook Pro...
B&H Photo has 13″ and 15″ Retina MacBook Pros on sale for up to $210 off MSRP. Shipping is free, and B&H charges NY tax only: - 15″ 2.2GHz Retina MacBook Pro: $1799 $200 off MSRP - 15″ 2.5GHz... Read more
Memorial Day Weekend Sales: Apple iMacs and M...
Take up to $150 off the price of a new iMac or Mac mini at the following Apple resellers this Memorial Day weekend: iMacs: B&H Photo has 21″ and 27″ iMacs on sale for up to $150 off MSRP... Read more
Apple refurbished Retina MacBook Pros availab...
Apple has Certified Refurbished 2015 13″ and 15″ Retina MacBook Pros available for up to $380 off the cost of new models. An Apple one-year warranty is included with each model, and shipping is free... Read more
Apple refurbished 11-inch MacBook Airs availa...
Apple has Certified Refurbished 11″ MacBook Airs (the latest models), available for up to $170 off the cost of new models. An Apple one-year warranty is included with each MacBook, and shipping is... Read more
Goal Zero and OtterBox Partner to Expand iPh...
Goal Zero, specialists in portable power, have announced a partnership with OtterBox, brand smartphone case protection, to offer the Slide and Slide Plus Batteries as modules compatible with the new... Read more
15-inch Retina MacBook Pros on sale for up to...
B&H Photo has 15″ Retina MacBook Pros on sale for up to $210 off MSRP. Shipping is free, and B&H charges NY tax only: - 15″ 2.2GHz Retina MacBook Pro: $1799 $200 off MSRP - 15″ 2.5GHz Retina... Read more
Clearance 2015 13-inch MacBook Airs available...
B&H Photo has clearance 2015 13″ MacBook Airs available for $250 off original MSRP. Shipping is free, and B&H charges NY sales tax only: - 13″ 1.6GHz/4GB/128GB MacBook Air (MJVE2LL/A): $799... Read more
Apple refurbished Apple TVs available for up...
Apple has Certified Refurbished 32GB and 64GB Apple TVs available for up to $30 off the cost of new models. Apple’s standard one-year warranty is included with each model, and shipping is free: -... Read more

Jobs Board

*Apple* Solutions Consultant - APPLE (United...
Job Summary As an Apple Solutions Consultant, you'll be the link between our future customers and our products. You'll showcase your entrepreneurial spirit as you Read more
*Apple* Project Engineer - Smart Source Inc...
SmartSource is in need of an Apple Project Engineer for a 12 month contract opportunity in Pittsburg, PA. Role: Apple Project Engineer Location: Pittsburg, PA Read more
Automotive Sales Consultant - Apple Ford Linc...
…you. The best candidates are smart, technologically savvy and are customer focused. Apple Ford Lincoln Apple Valley is different, because: $30,000 annual salary Read more
Service Assistant - *Apple* Chevrolet *App...
Apple Automotive is one of the fastest growing dealer...and it shows. Consider making the switch to the Apple Automotive Group today! At Apple Automotive, we Read more
Editor, *Apple* News - APPLE (United States...
Job Summary The Apple News team is looking for a passionate and knowledgeable editor with experience covering entertainment/pop culture and experience running social Read more
All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.