/***********************************************
*
* file d:\cips\rotate.c
* Functions: This file contains
* rotate_flip_image_array
* Purpose:
* This function rotates or flips an image
* array in one of five ways.
* External Calls:
* wtiff.c - does_not_exist
* round_off_image_size
* create_allocate_tiff_file
* write_array_into_tiff_image
* tiff.c - read_tiff_header
* rtiff.c - read_tiff_image
* Modifications:
* 1 April 1992 - created
*
**********************************************/
#include "d:\cips\cips.h"
/*******************************************
*
* rotate flip_image_array(...
* This function rotates an image array
* in one of three ways or flips an image
* array either vertically or horizontally.
* The rotation_type parameter specifies
* the operation. When rotation_type is
* 1, 2, or 3 you rotate. When it is
* 4 or 5 you flip.
* The in_ file is the source image with
* parameters given by ill, iel, ll1, le1.
* The out_file is the destination image with
* parameters given by il2, ie2, ll2, le2.
*
*******************************************/
rotate_flip_image_array(in_name, out_name, the_image,
out_image, il1, ie1, ll1, le1,
il2, ie2, ll2, le2, rotation_type)
char in_name[], out_name[];
int il1, ie1, ll1, le1,
i12, ie2, ll2, le2, rotation_type;
short the_image[ROWS][COLS],
out_image[ROWS][COLS];
{
int cd2, i, j, length, rd2, type, width;
struct tiff_header_struct image_header;
if(does_not_exist(out_name)){
printf("\n\n output file does not exist %s", out_name);
read_tiff_header(in_name, &image_header);
round_off-image_size(&image_header, &length, &width);
image_header.image_length = length*ROWS;
image_header.image_width = width*COLS;
create_allocate_tiff_file(out_name, &image_header, out_image);
} /* ends if does_not_exist */
/*****************************************
*
* Check the rotation_type. If it is not
* a valid value, set it to 1.
*
******************************************/
type = rotation_type;
if(type != 1 &&
type != 2 &&
type != 3 &&
type != 4 &&
type != 5) type = 1;
read_tiff_image(in_name, the_image, il1, ie1, ll1, le1);
/*******************************************
*
* Rotate the image array as desired.
*
*******************************************/
/*******************************************
*
* One 90 degree rotation
*
*******************************************/
if(type == 1 || type == 2 || type == 3){
for(i=0; i<ROWS; i++){
for(j=0; j<COLS; j++)
out_image[j][COLS-1-i] = theimage[i][j];
} /* ends loop over i */
} /* ends if type == 1 or 2 or 3 */
/******************************************
*
* a second 90 degree rotation
*
*******************************************/
if(type == 2 || type == 3){
for(i=0; i<ROWS; i++)
for(j=0; j<COLS; j++)
the_image[i][j] = out_image[i][j];
for(i=0; i<ROWS; i++){
for(j=0; j<COLS; j++)
out_image[j] [COLS-1-i] = the_image[i] [j];
} /* ends loop over i */
} /* ends if type == 2 or 3 */
/*******************************************
*
* a third 90 degree rotation
*
*******************************************/
if(type == 3){
for(i=0; i<ROWS; i++)
for(j=0; j<COLS; j++)
the_image[i] [j] = out_image[i] [j];
for(i:0; i<ROWS; i++){
for(j=0; j<COLS; j++)
out_image[j] [COLS-1-i] = the_image[i] [j];
} /* ends loop over i */
} /* ends if type == 3 */
/*******************************************
*
* Flip the image array horizontally
* about the center vertical axis.
*
******************************************/
if(type == 4){
cd2 = COLS/2;
for(j=0; j<cd2; j++){
for(i=0; i<ROWS; i++){
out_image[i] [COLS-1-j] = the_image[i] [j];
} /* ends loop over i */
} /* ends loop over j */
for(j=cd2; j<COLS; j++){
for(i=0; i<ROWS; i++){
out_image[i] [COLS-1-j] = the_image[i] [j];
} /* ends loop over i */
} /* ends loop over j */
} /* ends if type == 4 */
/******************************************
*
* Flip the image array vertically
* about the center horizontal axis.
*
******************************************/
if(type == 5){
rd2 = ROWS/2;
for(i=0; i<rd2; i++){
for(j=0; j<COLS; j++){
out_image[ROWS-1-i][j] = the_image[i][j];
} /* ends loop over j */
} /* ends loop over i */
for(i=rd2; i<ROWS; i++){
for(j=0; j<COLS; j++){
out_image[ROWS-1-i] [j] = the_image[i] [j];
} /* ends loop over j */
} /* ends loop over i */
} /* ends if type == 5 */
write_array_into_tiff_image(out_name, out_image, il2, ie2, ll2, le2);
} /* ends rotate_flip_image_array */
/* End of File */