TweetFollow Us on Twitter

Using Regions
Volume Number:1
Issue Number:3
Column Tag:QuickDraw from MacPascal

Using the Region

By Chris Derossi

In the last column, we were introduced to the simple access to QuickDraw from MacPascal. We found that the procedures for graphic drawing were easily called, using predefined routines and data structures. The concepts of cartesian coordinates, points, and lines were very important when dealing with QuickDraw. In this month’s column, we will begin to explore the next step of QuickDraw complexity: the region.

Whereas a line (actually, a line segment) is a subset of points in one dimension, a region is a subset of points in two dimensions. When you draw a line with QuickDraw, the points from one endpoint of the line to the other are said to be part of the line. Points lying past either endpoint are not part of the line. Points off to the side of the line can never be part of the line, and are ignored; they are not part of the line.

A similar concept is true for regions. When you have a region in a plane, the QuickDraw coordinate plane for example, some of the points are part of the region and the rest are not part of the region. There are no points that are both, and no points that are neither. Points that are part of the region are said to be inside the region, while the rest are outisde the region.

The points inside a region do not have to be contiguous. That is, points or groups of points that comprise the region do not have to be adjacent. For the time being, we will call a group of points in the QuickDraw plane an area. A region may consist of zero, one, or several distinct areas.

For the most part, regions can be manipulated in the same manner as any other QuickDraw object. Just like circle and rectangles, regions can be framed, painted, erased, inset, offset, and filled. However, the marvelous aspect of regions is their shape. Regions can be any shape or combination of shapes, large, small, or empty. A region is empty when there are no points inside of it.

To describe or represent a region, its outline is defined. For example, to describe a circular region, one would only need to indicate the outline of the circle, not all of its interior points. Similarly, a rectangular region is represented as a framed rectangle. More complex shapes for regions can be defined using various combinations of simple shapes. A ‘T’ shaped regions could be described as the outline of two rectangles that just touch. It is important to realize, though, that the actual boundaries of a region are infinitely thin.

Because a region divides the plane into only two sets of points, those inside the region, and those outside the region, there can be no points that lie on the boundary of the region. For that reason, there is a distinction between coordinate points and graphic points. Coordinate points lie between graphic points and vice versa. Lines from one coordinate point to another have no width, so the graphic points it separates are actually adjacent.

Illustration #1 shows some graphic points on a coordinate plane. Notice that a graphic point is to the ‘right’ and ‘below’ its corresponding mathematical coordinate. As mentioned before, any points with adjacent coordinates will be drawn on the screen as a single, solid area. The coordinate line separating them is only mathematical, and does not actually exist. A region’s boundary is defined in terms of coordinate points, and no graphics points in the plane lie on the boundary.

When regions are defined in MacPascal, the procedure OpenRgn is first called to allocate the memory needed for the region. Then, the boundary of the region is defined by calling normal QuickDraw drawing routines, such as FrameRect, FrameOval, and FrameRoundRect. Only the outlines of the shapes are important; i.e. PaintRect acts just like FrameRect.

The outlines are summed together to form the boundary of the region. No drawing is performed because the boundaries are only mathematical, and do not involve real graphic points. When the entire outline is defined, a call to CloseRgn is made to stop the region definition. CloseRgn creates a handle to the new region, and passes it back in a variable of type RgnHandle. (Note: the variable must have first been initialized with a call to NewRgn.) All subsequent references to the region are done through its handle.

After OpenRgn has been called to start a new region, the region is empty. Then, areas are added to the region as the boundaries for those areas are ‘drawn’. But, if a boundary encloses an area that is already part of the region, that area is changed to be outside of the region. If it is enclosed again, it is re-added to the region, and so on. In other words, areas are exclusive-ored with the exisitng region. Areas enclosed an odd number of times are part of the region, while areas enclosed an even number of times are not part of the region.

Illustration #2 shows a situation in which overlapping areas caused ‘holes’ in the region. Illustration #2a shows the region shaded, with the rest not shaded. Illustration #2b breaks the areas down. Area #0 was never enclosed, so it is not part of the region. Areas #1 were enclosed once each, and are part of the region. The areas numbered #2 were each enclosed twice, once from each of two circles; they are not part of the region. Finally, area #3 was enclosed three times and is part of the region.

It is frequently easier to define a region in terms of one area minus another instead of a sum of areas. For example, illustration #3 can be described as a series of four rectangles, or as one large rectangle minus the smaller, inside rectangle. The second way is easier and more intuitive. QuickDraw’s method of exclusive-oring areas allows area to be added to and subtracted from regions.

Let us now put aside regions to talk about something else: clipping. Clipping is a graphics term that refers to drawing within certain boundaries. The easiest way to learn about clipping is to think of an example: anything drawn inside one window on the Macintosh should stay within that window and not get drawn outside of it. If the window is too small, the part of the drawing that is beyond the current edges of the window should not be drawn on the screen. The part of the drawing that is not actually drawn is said to have been clipped.

Clipping can be thought of as looking through the viewfinder of a camera. You can only see a portion of the world even though there is stuff beyond the edges of your sight. In order to emulate reality, and to create the effect of windows and such, everything drawn on the Mac is clipped, making each window and even the Mac screen a viewfinder on the whole picture.

There are two ways to do clipping. First, whoever is doing the drawing makes sure that nothing gets drawn beyond the appropriate boundaries. Second, anything desired is drawn without regards to boundaries, and clipping is controlled by the low level draw routines. This means that every point that is drawn is checked for boundary limitations. Because this is done for every single point, it happens very often. If the clipping operation were slow, the graphic output on the Mac would take forever. The name QuickDraw is partially derived from its ability to handle operations like this very rapidly.

In general, this means that each separate window or drawing area on the Mac may consider itself the entire coordinate plane. QuickDraw makes sure that only the appropriate things are actually displayed, and that they fit within the proper bounds.

Many times, though, the clipping area is not rectangular like a window. (Clipping Area or Clipping Region refers to the areas where drawing occurs. The stuff outside of the clipping area is what is actually clipped.) Many times a window may be ‘underneath’ several other windows, and have only an unusually shaped portion visible. Nevertheless, the drawing in that window must be clipped to that unusual area. That’s where regions come in.

Each window (or QuickDraw port) has an associated Clipping Region. It is this region that defines what will be displayed, and what will be clipped. For most normal windows, this region is simply rectangular, but when the window is partially obscured, the region may become more complicated. In addition, the clipping region of a window may be changed to suit the needs of the situation.

For example, you might want to fill or erase a region of a window without affecting anything else in the window. This could be done in pieces, or by setting the clipping region to the desired region and filling or erasing the whole window. Note that the clipping region only affects subsequent drawing, and has no effect on previously drawn graphics.

This month’s MacPascal program is a demonstration of the use of regions, and the effects of using clipping regions. It shows clearly how to define regions, how to set the clipping region, and what happens when drawing is clipped.

Before we take a brief step-by-step look at the program, there are some general comments that should be made. First, in order to remain as compatible as possible with other Pascal/QuickDraw interfaces, calls that normally require a Rect parameter are not supplied four integers. Instead, SetRect is used to assign values to the rectangle’s coordinates.

Second, when you type this program into your Mac and try to execute it, you might run out of memory; the data structures for regions take up lots of room. If this happens, try deleting the comments, closing all the windows, and ejecting unneeded diskettes to free up some memory. Users of 512K Macs should not have any problems.

The program begins by doing a ‘uses QuickDraw2’. The library QuickDraw1 contains all the routines and data structures that we have used so far and is ‘used’ automatically. The routines and data structures for regions, however, reside in QuickDraw2 and must be included explicitly.

The RgnHandle that we use throughout the program is called My_Rgn. Also, a Rect called Big_Rect is declared. The constants WordsPerLine, NumLines, and LineHite are declared and set. These values will be used later to determine that amount and density of text to draw.

The main program calls only two procedures: SetUp and MakeRgns. SetUp puts away all of the MacPascal windows with HideAll, puts away the cursor with HideCursor, and displays the drawing window after setting its coordinates with SetDrawingRect. In addition, SetUp draws three lines, dividing the window into six areas. SetUp also initializes My_Rgn with NewRgn and assigns the coordinates of the drawing window to Big_Rect.

MakeRgns is simply a series of calls to the six separate region demonstration procedures. The program was structured this way so that each region could be its own procedure and so modifications were easier. When all six region procedures have finished, the memory space used by My_Rgn is deallocated with DisposeRgn, and the clipping region of the drawing window set back to full size.

The six region procedures each call upon three utility procedures called DrawWords, Use_Region, and ClearRgn. DrawWords uses DrawString to draw the word ‘Regions’ several times according to the constants declared at the beginning. The final display of the words is clipped according to each different clipping region. ClearRgn sets the window’s clipping region back to the full window so that drawing of titles, etc won’t be clipped. Use_Region draws the outline of the current My_Rgn with FrameRgn and then shrinks it so that the outline lies outside of the region. This is to prevent later drawing from drawing over the outline. Then, the cliiping region of the window is set to equal My_Rgn with SetClip.

Five of the six region procedures follow the same general outline. First, ClearRgn is called to reset the clipping region. Next, a title is drawn for the region. Finally, the region is defined and used to clip the text created with DrawWords. Several aspects of regions and clipping are demonstrated.

The final region procedure is slightly different. As before, it resets the clipping region and draws a title. Then, it shades in the sixth rectangle with gray to provide for contrast later. Next, a region is defined and used in the same manner as the other five procedures. This region is then cleared to white, yielding a binocular-type window effect. After this is done, a small circle is animated. The circle is bounced in an imaginary rectangle that is somewhat larger than the region. The animation routine just continues the circle on its present course until it strikes a side of the imaginary rectangle. Then, a new course is chosen at random for it, and it continues.

Because the circle is sometimes not within the region, it is automatically clipped. This gives the effect of multiple planes that are stacked, with a window in the top one looking through to the bouncing ball. The clipping is performed automatically, and it is transparent to the animation routine. The animation ceases when the mouse button is pressed.

The power of QuickDraw can be seen when one considers the versatility of regions. The entire concept of multiple, independent windows, used extensively in the Macintosh, is based on the foundations of arbitrary clipping regions. Further, the QuickDraw clipping regions allow programs and applications to output to the screen regardless of the screen situation. This is a key factor in multi-tasking, and simultaneous application execution. (i.e. desk accessories.)

There are additional aspects of regions and QuickDraw that have yet to be covered, like calculations, ports, etc. The next column will focus on these final features, concluding our overall introduction to QuickDraw. We will find that this basic background in QuickDraw will continue to aid us throughout the excursions into other areas of MacPascal such as windows, dialog boxes, and menus. Ciao.

program Regions;

{ Regions is a MacPascal demostration program}
{ that provides six examples of the workings of}
{ the regions of QuickDraw.    }
{  -- by Chris Derossi}

 uses
  QuickDraw2;  {QuickDraw2 contains the stuff for regions.}

 const
{ These constants determine the amount and density of the}
{ words used to show region clipping}

  WordsPerLine = 6;
  NumLines = 10;
  LineHite = 15;

 var
  My_Rgn : RgnHandle;  { This is our working region, used everywhere}
  Big_Rect : Rect;  { This is a rectangle that is the whole drawing window}

 procedure SetUp;

{ SetUp clears the screen to a full sized drawing window and uses}
{ DrawLine to mark it off into six sections. It also inits our region}
{ and sets Big_Rect to the full window.}

 begin
  HideCursor;
  HideAll;
  SetRect(Big_Rect, 0, 20, 527, 357); {Full screen size}
  SetDrawingRect(Big_Rect);
  ShowDrawing;                      {Show only the drawing window}
  DrawLine(0, 149, 527, 149);
  DrawLine(176, 0, 176, 337);
  DrawLine(352, 0, 352, 337);
  My_Rgn := NewRgn;        {Init our working region}
 end;

 procedure DrawWords (X, Y : integer);

{ DrawWords draw several lines of words starting at (X,Y) according}
{ to globally declared constants}

  var
   s : string;
   a, b : integer;

 begin
  s := ‘Regions ‘;
  for a := 0 to NumLines do
   begin
    MoveTo(X, Y + a * LineHite);  {Start a new line in column Y}
    for b := 1 to WordsPerLine do
    DrawString(s);
   end;
 end;

 procedure Use_Region;

{ This procedure draws an outline of our region, then shrinks it so that}
{the outline is not in the region, and sets the drawing window’s clipping}
{region to equal our region}

 begin
  FrameRgn(My_Rgn);        { Draw the outline of our region}
  InsetRgn(My_Rgn, 1, 1);  { Shrink it}
  SetClip(My_Rgn);            { Set the drawing window’s clipping region}
 end;

 procedure ClearRgn;

{ In order to use the entire drawing window, this procedure sets the}
{clipping region to the whole window, using Big_Rect}

 begin
  RectRgn(My_Rgn, Big_Rect); {Make our region a rectangle, screen size.}
  SetClip(My_Rgn);
 end;

 procedure DoRegion1;

{ This creates the first region, which is just a circle}

  var
   r : Rect;

 begin
  ClearRgn;
  MoveTo(25, 140);
  DrawString(‘Simple Region’);

  begin  {Create a region}
   OpenRgn;
   SetRect(r, 20, 20, 120, 120);
   FrameOval(r);
   CloseRgn(My_Rgn);
  end;

  Use_Region;
  DrawWords(0, 0);
 end;

 procedure DoRegion2;

{ This is region number 2. This is a concatination of 3 shapes.}

  var
   r : Rect;

 begin
  ClearRgn;
  MoveTo(225, 140);
  DrawString(‘Any Shape’);

  OpenRgn;   {Start a new region}
  SetRect(r, 220, 65, 300, 85);
  FrameRect(r);
  SetRect(r, 180, 30, 220, 120);
  FrameOval(r);
  SetRect(r, 300, 30, 340, 120);
  FrameOval(r);
  CloseRgn(My_Rgn);

  Use_Region;
  DrawWords(176, 0);
 end;

 procedure DoRegion3;

{ Region number 3. Two overlapping regions form a ‘hole’.}

  var
   r : Rect;

 begin
  ClearRgn;
  MoveTo(410, 140);
  DrawString(‘Holes’);

  OpenRgn;
  SetRect(r, 380, 20, 480, 120);
  FrameOval(r);
  SetRect(r, 410, 50, 450, 90);     {Completely inside the first shape}
  FrameRoundRect(r, 18, 18);
  CloseRgn(My_Rgn);

  Use_Region;
  DrawWords(352, 0);
 end;

 procedure DoRegion4;

{ Region 4. This creates a region which shows the effect of }
{partially overlapping region areas.}

  var
   r : Rect;
 begin
  ClearRgn;
  MoveTo(40, 310);
  DrawString(‘Overlapping’);

  OpenRgn;
  SetRect(r, 30, 180, 130, 280);
  FrameOval(r);   { Draw a simple circle }
  SetRect(r, 5, 215, 155, 245);
  FrameRect(r);    { Draw a rectangle over the circle }
  CloseRgn(My_Rgn);

  Use_Region;
  DrawWords(0, 149);
 end;

 procedure DoRegion5;

{ Region 5. Regions do not have to be contiguous. This procedure creates}
{a region with three separate areas.}

  var
   r : Rect;
 begin
  ClearRgn;
  MoveTo(220, 310);
  DrawString(‘Disjoint Areas’);

  OpenRgn;
  SetRect(r, 190, 160, 270, 230);
  FrameOval(r);
  SetRect(r, 280, 160, 340, 240);
  FrameRect(r);
  SetRect(r, 190, 255, 340, 285);
  FrameRoundRect(r, 18, 18);

  CloseRgn(My_Rgn);
  Use_Region;
  DrawWords(176, 150);
 end;

 procedure DoRegion6;

{ Region 6. This procedure illustrates the effect of continuous clipping}
{associated with any drawing, even animation.}

  var
   r : Rect;

  procedure Animate;

{ Animate, called only by DoRegion6, bounces a ball in the general area}
{of region 6, showing that the clipping occurs constantly, with now need}
{for special instructions. The animation stops when the mouse button 
is}
{pressed.}

   var
    X, Y, dX, dY : integer;

  begin
   X := 353; { Arbitrary starting position. }
   Y := 220;
   dX := 3;    { Arbitrary beginning velocity. }
   dY := 0;
   repeat
    PenPat(white);    { Use white for drawing to }
    PaintCircle(X, Y, 5);  { erase ball at current position }
    X := X + dX;  { upgrade position }
    Y := Y + dY;
    if (X < 353) or (X > 510) or (Y < 175) or (y > 265) then
    begin  { The ball has hit a “wall” and should bounce }
    X := X - dX;  { Move the ball back to its last legal position }
    Y := Y - dY;
    repeat
    dX := ((random mod 3) - 1) * 7;                   { Choose new random 
velocities,}
    dY := ((random mod 3) - 1) * 7; {with each being -7,0, or 7 }
    until (dX <> 0) or (dY <> 0); { zero velocity is illegal }
    end
    else  { new ball position is okay. }
    begin
    PenPat(black);
    PaintCircle(X, Y, 5);   { Draw the ball in the new position }
    end;
   until Button;    { Stop when the button is pressed }
  end;

 begin  { Region6 }
  ClearRgn;
  SetRect(r, 353, 150, 530, 290);
  FillRect(r, gray);    { Use a gray background for contrast }
  MoveTo(375, 310);
  DrawString(‘Continuous Clipping’);

  OpenRgn;
  SetRect(r, 357, 185, 432, 255);
  FrameOval(r);
  SetRect(r, 432, 185, 507, 255);
  FrameOval(r);
  CloseRgn(My_Rgn);

  Use_Region;
  SetRect(r, 353, 150, 530, 290);
  FillRect(r, white);   { Erase the inside of the region, using auto-clipping}
  Animate;  { Do the bouncing ball }
 end;

 procedure MakeRgns;

{ This is a brute force way to call all six regions, but it allows us 
to}
{break the regions down into separate procedures.}

 begin
  DoRegion1;
  DoRegion2;
  DoRegion3;
  DoRegion4;
  DoRegion5;
  DoRegion6;
  ClearRgn;
  DisposeRgn(My_Rgn);  { Free the memory used for our region }
  ShowCursor;   { We need the cursor! }
 end;

begin   { Regions }
 SetUp;
 MakeRgns;
end.



 

Community Search:
MacTech Search:

Software Updates via MacUpdate

Latest Forum Discussions

See All

Whitethorn Games combines two completely...
If you have ever gone fishing then you know that it is a lesson in patience, sitting around waiting for a bite that may never come. Well, that's because you have been doing it wrong, since as Whitehorn Games now demonstrates in new release Skate... | Read more »
Call of Duty Warzone is a Waiting Simula...
It's always fun when a splashy multiplayer game comes to mobile because they are few and far between, so I was excited to see the notification about Call of Duty: Warzone Mobile (finally) launching last week and wanted to try it out. As someone who... | Read more »
Albion Online introduces some massive ne...
Sandbox Interactive has announced an upcoming update to its flagship MMORPG Albion Online, containing massive updates to its existing guild Vs guild systems. Someone clearly rewatched the Helms Deep battle in Lord of the Rings and spent the next... | Read more »
Chucklefish announces launch date of the...
Chucklefish, the indie London-based team we probably all know from developing Terraria or their stint publishing Stardew Valley, has revealed the mobile release date for roguelike deck-builder Wildfrost. Developed by Gaziter and Deadpan Games, the... | Read more »
Netmarble opens pre-registration for act...
It has been close to three years since Netmarble announced they would be adapting the smash series Solo Leveling into a video game, and at last, they have announced the opening of pre-orders for Solo Leveling: Arise. [Read more] | Read more »
PUBG Mobile celebrates sixth anniversary...
For the past six years, PUBG Mobile has been one of the most popular shooters you can play in the palm of your hand, and Krafton is celebrating this milestone and many years of ups by teaming up with hit music man JVKE to create a special song for... | Read more »
ASTRA: Knights of Veda refuse to pump th...
In perhaps the most recent example of being incredibly eager, ASTRA: Knights of Veda has dropped its second collaboration with South Korean boyband Seventeen, named so as it consists of exactly thirteen members and a video collaboration with Lee... | Read more »
Collect all your cats and caterpillars a...
If you are growing tired of trying to build a town with your phone by using it as a tiny, ineffectual shover then fear no longer, as Independent Arts Software has announced the upcoming release of Construction Simulator 4, from the critically... | Read more »
Backbone complete its lineup of 2nd Gene...
With all the ports of big AAA games that have been coming to mobile, it is becoming more convenient than ever to own a good controller, and to help with this Backbone has announced the completion of their 2nd generation product lineup with their... | Read more »
Zenless Zone Zero opens entries for its...
miHoYo, aka HoYoverse, has become such a big name in mobile gaming that it's hard to believe that arguably their flagship title, Genshin Impact, is only three and a half years old. Now, they continue the road to the next title in their world, with... | Read more »

Price Scanner via MacPrices.net

B&H has Apple’s 13-inch M2 MacBook Airs o...
B&H Photo has 13″ MacBook Airs with M2 CPUs and 256GB of storage in stock and on sale for up to $150 off Apple’s new MSRP, starting at only $849. Free 1-2 day delivery is available to most US... Read more
M2 Mac minis on sale for $100-$200 off MSRP,...
B&H Photo has Apple’s M2-powered Mac minis back in stock and on sale today for $100-$200 off MSRP. Free 1-2 day shipping is available for most US addresses: – Mac mini M2/256GB SSD: $499, save $... Read more
Mac Studios with M2 Max and M2 Ultra CPUs on...
B&H Photo has standard-configuration Mac Studios with Apple’s M2 Max & Ultra CPUs in stock today and on Easter sale for $200 off MSRP. Their prices are the lowest available for these models... Read more
Deal Alert! B&H Photo has Apple’s 14-inch...
B&H Photo has new Gray and Black 14″ M3, M3 Pro, and M3 Max MacBook Pros on sale for $200-$300 off MSRP, starting at only $1399. B&H offers free 1-2 day delivery to most US addresses: – 14″ 8... Read more
Department Of Justice Sets Sights On Apple In...
NEWS – The ball has finally dropped on the big Apple. The ball (metaphorically speaking) — an antitrust lawsuit filed in the U.S. on March 21 by the Department of Justice (DOJ) — came down following... Read more
New 13-inch M3 MacBook Air on sale for $999,...
Amazon has Apple’s new 13″ M3 MacBook Air on sale for $100 off MSRP for the first time, now just $999 shipped. Shipping is free: – 13″ MacBook Air (8GB RAM/256GB SSD/Space Gray): $999 $100 off MSRP... Read more
Amazon has Apple’s 9th-generation WiFi iPads...
Amazon has Apple’s 9th generation 10.2″ WiFi iPads on sale for $80-$100 off MSRP, starting only $249. Their prices are the lowest available for new iPads anywhere: – 10″ 64GB WiFi iPad (Space Gray or... Read more
Discounted 14-inch M3 MacBook Pros with 16GB...
Apple retailer Expercom has 14″ MacBook Pros with M3 CPUs and 16GB of standard memory discounted by up to $120 off Apple’s MSRP: – 14″ M3 MacBook Pro (16GB RAM/256GB SSD): $1691.06 $108 off MSRP – 14... Read more
Clearance 15-inch M2 MacBook Airs on sale for...
B&H Photo has Apple’s 15″ MacBook Airs with M2 CPUs (8GB RAM/256GB SSD) in stock today and on clearance sale for $999 in all four colors. Free 1-2 delivery is available to most US addresses.... Read more
Clearance 13-inch M1 MacBook Airs drop to onl...
B&H has Apple’s base 13″ M1 MacBook Air (Space Gray, Silver, & Gold) in stock and on clearance sale today for $300 off MSRP, only $699. Free 1-2 day shipping is available to most addresses in... Read more

Jobs Board

Medical Assistant - Surgical Oncology- *Apple...
Medical Assistant - Surgical Oncology- Apple Hill Location: WellSpan Medical Group, York, PA Schedule: Full Time Sign-On Bonus Eligible Remote/Hybrid Regular Apply Read more
Omnichannel Associate - *Apple* Blossom Mal...
Omnichannel Associate - Apple Blossom Mall Location:Winchester, VA, United States (https://jobs.jcp.com/jobs/location/191170/winchester-va-united-states) - Apple Read more
Cashier - *Apple* Blossom Mall - JCPenney (...
Cashier - Apple Blossom Mall Location:Winchester, VA, United States (https://jobs.jcp.com/jobs/location/191170/winchester-va-united-states) - Apple Blossom Mall Read more
Operations Associate - *Apple* Blossom Mall...
Operations Associate - Apple Blossom Mall Location:Winchester, VA, United States (https://jobs.jcp.com/jobs/location/191170/winchester-va-united-states) - Apple Read more
Business Analyst | *Apple* Pay - Banco Popu...
Business Analyst | Apple PayApply now " Apply now + Apply Now + Start applying with LinkedIn Start + Please wait Date:Mar 19, 2024 Location: San Juan-Cupey, PR Read more
All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.