[Back to GRAPHICS SWAG index] [Back to Main SWAG index] [Original]

    {
     TW> I'll need an algorithm to make a graphic smaller.

     TW> I will read a 640x480x256 and want to make it a smaller size.
     TW> For example 80x60x256 or 160x120x256 or something else.
     TW> Maybe someone could send me an algorithm or a sample.

       If you simply want a smaller version of the original image, then
       it's easy.

      ie, for 640x480 to 160x120 ( 1/4 original size)
    }

      FOR Y := 0 TO 119 { 160x120 Y axis }
        BEGIN
          NewY := (Y * 4);  { corresponding point on 640x480 Y axis }
          FOR X := 0 TO 159 DO  { 160x120 X axis }
            BEGIN
              NewX := (X * 4); { corresponding point on 640x480 X axis }
              Image160x120[Y, X] := Image640x480[NewY, NewX];
            END;
        END;

      See, simply multiply each point in 160x120 by 4 to get corresponding
      point in 640x480.  This of course skips all pixels in between...
      Also, the in the example above, note that you cannot have
      an array of [0..479, 0..639] of Byte!  I just put that in there
      to show how it is done.

      Eric Miller
      mysticm@ephsa.sat.tx.us

[Back to GRAPHICS SWAG index] [Back to Main SWAG index] [Original]