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

Pocket Arcade Story (Games)
Pocket Arcade Story 1.00 Device: iOS Universal Category: Games Price: $4.99, Version: 1.00 (iTunes) Description: Here comes a new challenger: it's the arcade simulation game you've been waiting for! Build your very own gaming... | Read more »
How to get coins faster in Rodeo Stamped...
There comes a time in a cowboy or cowgirl's life when all the riding and lassoing skills in the world aren't enough. You're going to need some cold, hard cash to keep your sky zoo expanding in Rodeo Stampede. [Read more] | Read more »
How to out-do Cam Newton in Can You Dab?
The thing about dance crazes is that you're never really sure when they've run their course. Take the Dab, for instance. Propelled by its adoption as the touchdown celebration of choice for Carolina Panthers quarterback Cam Newton, the Dab seemed... | Read more »
Artik Games releases Splashy Cats for An...
Splashy Cats had us hooked from the title alone, and when we found out the game was literally just zig-zagging one of our favourite pop-culture references, guised as a playable cat character, down a river – our appetites were whetted to say the... | Read more »
Battle Cars (Games)
Battle Cars 1.1 Device: iOS Universal Category: Games Price: $1.99, Version: 1.1 (iTunes) Description: Welcome to the world of Battle Cars. Battle Cars is a classic arcade top-down racing game with fast mini cars and funny weapons to... | Read more »
How to get started with live.ly
One could be forgiven for thinking that there are already plenty of streaming video apps out there. It's just that the App Store charts would insist that you're mistaken. [Read more] | Read more »
Rodeo Stampede: Guide to all Savannah an...
A "gotta catch 'em all" joke seems appropriate here, even though we're talking animals in Rodeo Stampede and not pocket monsters. By now you've probably had plenty of rides, tamed some animals and built yourself a pretty nice zoo | Read more »
Is there cross-platform play in slither....
So you've sunken plenty of hours into crawling around in slither.io on your iPhone or iPad. You've got your stories of tragedy and triumph, the times you coiled four snakes at one time balanced out by the others when you had a length of more than... | Read more »
Rodeo Stampede guide to running a better...
In Rodeo Stampede, honing your skills so you can jump from animal to animal and outrun the herd as long as possible is only half the fun. Once you've tamed a few animals, you can bring them home with you. [Read more] | Read more »
VoxSyn (Music)
VoxSyn 1.0 Device: iOS Universal Category: Music Price: $6.99, Version: 1.0 (iTunes) Description: VoxSyn turns your voice into the most flexible vocal sound generator ever. Instantly following even subtle modulations of pitch and... | Read more »

Price Scanner via MacPrices.net

MacBook Airs on sale for up to $50-$100 off M...
B&H Photo has 13″ and 11″ MacBook Airs on sale for up to $100 off MSRP. Shipping is free, and B&H charges NY sales tax only: - 11″ 1.6GHz/128GB MacBook Air: $849 $50 off list price - 11″ 1.... Read more
Brexit Vote Result Forecast To Slash UK 2016...
Uncertainty and economic volatility can be expected to increase over the next nine months, as the Brexit and concerns over the future of the EU hit IT investment, say Canalys market analysts, with... Read more
13-inch 256GB MacBook Air on sale for $1149,...
Amazon has the 2016 13″ 1.6GHz/256GB MacBook Air (model MMGG2LL/A) on sale for $1149.99 including free shipping. Their price is also $50 off MSRP. Read more
Haven App Launches New Age Of Wirless 911 Eme...
Haven from RapidSOS represents a transformation in access to emergency services from a phone call solely dependent on voice to a robust data connection for voice, text, medical/demographic data.... Read more
Cu Parachute 1.1 Retirement Success PLanning...
Tucson, Arizona based Indie developer Bradley McCarthy has announce the release of Cu (Copper) Parachute 1.1 for iPhone, iPad, and iPod touch devices — a tool with which users can continuously... Read more
Research and Markets Releases iPhone 6s Plus...
A new analysis report from Dublin-based Research and Markets observes that with the iPhone 6s Plus, Apple introduced a new rear camera module. The new device has similar structure and technology than... 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
Apple price trackers, updated continuously
Scan our Apple Price Trackers for the latest information on sales, bundles, and availability on systems from Apple’s authorized internet/catalog resellers. We update the trackers continuously: - 15″... Read more
12-inch 32GB and 128GB WiFi iPad Pros on sale...
B&H Photo has 12″ 32GB & 128GB WiFi iPad Pros on sale for up to $80 off MSRP, each including free shipping. B&H charges sales tax in NY only: - 12″ Space Gray 32GB WiFi iPad Pro: $749 $50... Read more

Jobs Board

*Apple* iPhone 6s and New Products Tester Ne...
…we therefore look forward to put out products to quality test for durability. Apple leads the digital music revolution with its iPods and iTunes online store, Read more
*Apple* iPhone 6s and New Products Tester Ne...
…we therefore look forward to put out products to quality test for durability. Apple leads the digital music revolution with its iPods and iTunes online store, Read more
*Apple* Retail - Multiple Positions, Willow...
Job Description: Sales Specialist - Retail Customer Service and Sales Transform Apple Store visitors into loyal Apple customers. When customers enter the store, Read more
*Apple* iPhone 6s and New Products Tester Ne...
…we therefore look forward to put out products to quality test for durability. Apple leads the digital music revolution with its iPods and iTunes online store, Read more
*Apple* iPhone 6s and New Products Tester Ne...
…we therefore look forward to put out products to quality test for durability. Apple leads the digital music revolution with its iPods and iTunes online store, Read more
All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.