/* MapGeneralVerticalPerspective.c
===================
Author: R.J.Barnes
Copyright (c) 2012 The Johns Hopkins University/Applied Physics Laboratory
This file is part of the Radar Software Toolkit (RST).
RST is free software: you can redistribute it and/or modify
it under the terms of the GNU Lesser General Public License as published by
the Free Software Foundation, either version 3 of the License, or
(at your option) any later version.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU Lesser General Public License for more details.
You should have received a copy of the GNU Lesser General Public License
along with this program. If not, see <https://www.gnu.org/licenses/>.
Modifications:
#include <stdio.h>
#include <stdlib.h>
#include "rtypes.h"
#include "rxml.h"
#include "option.h"
#include "rfbuffer.h"
#include "rplot.h"
#include "polygon.h"
#include "rmap.h"
struct PolygonData *map;
struct PolygonData *nmap;
struct PolygonData *pmap;
struct PolygonData *clip;
int stream(char *buf,int sze,void *data) {
FILE *fp;
fp=(FILE *) data;
fwrite(buf,sze,1,stdout);
return 0;
}
int main(int argc,char *argv[]) {
struct Rplot *rplot=NULL;
float wdt=400,hgt=400;
float src[2],dst[2];
unsigned int lndcol=0xffa0ffa0;
unsigned int seacol=0xffa0a0ff;
unsigned int grdcol=0xffa00000;
MapTransform tfunc;
float marg[3];
int s;
char *envstr;
FILE *mapfp;
envstr=getenv("MAPDATA");
mapfp=fopen(envstr,"r");
map=MapFread(mapfp);
fclose(mapfp);
marg[0]=90.0;
marg[1]=0.0;
marg[2]=2.0;
tfunc=MapGeneralVerticalPerspective;
clip=MapSquareClip(10);
nmap=PolygonTransform(map,2*sizeof(float),PolygonXYbbox,
tfunc,marg);
pmap=PolygonClip(clip,nmap);
rplot=RplotMake();
RplotSetText(rplot,stream,stdout);
RplotMakeDocument(rplot,"MapGeneralVerticalPerspective","1",wdt,hgt,24);
RplotMakePlot(rplot,"MapGeneralVerticalPerspective",wdt,hgt,24);
RplotRectangle(rplot,NULL,0,0,wdt,hgt,
1,seacol,0x0f,0,NULL);
MapPlotPolygon(rplot,NULL,0,0,wdt,hgt,1,lndcol,0x0f,0,NULL,
pmap,1);
MapPlotPolygon(rplot,NULL,0,0,wdt,hgt,1,lndcol,0x0f,0,NULL,
pmap,3);
MapPlotPolygon(rplot,NULL,0,0,wdt,hgt,1,seacol,0x0f,0,NULL,
pmap,0);
src[0]=53.2;
src[1]=160.0;
s=MapGeneralVerticalPerspective(2*sizeof(float),src,
2*sizeof(float),dst,marg);
if (s==0)
RplotEllipse(rplot,NULL,wdt*dst[0],hgt*dst[1],8,8,
1,grdcol,0x0f,0,NULL);
RplotEndPlot(rplot);
RplotEndDocument(rplot);
return 0;
}
|