linearCoord2(City,X,Y):-
     city(City,Lat,Lon),
     geo2linear2(Lat,Lon,X,Y).

geo2linear2(Lat,Lon,X,Y):-
     degrees2radians(Lat,LatR),
     degrees2radians(Lon,LonR),
     X is round(6371*cos(LatR)*cos(LonR)),
     Y is round(6371*cos(LatR)*sin(LonR)).

degrees2radians(Deg,Rad):-
     Rad is Deg*0.0174532925.