#!/usr/bin/perl
#
# USGS海岸線データをPostScriptファイルに変換
# Nowral
# 99.2.21
#
@filename = @ARGV;
foreach $oldargv (@filename) {
open(IN, "<$oldargv");

$newargv = $oldargv . ".ps";
open(OUT, ">$newargv");
select(OUT);
&MacPerl'SetFileInfo('ART3', 'TEXT', $newargv);

$oldargv =~ /:([^:]*)$/;
print <<_HEAD_;
%!PS-Adobe-3.0 
%%Creator: Adobe Illustrator(TM) 3.2
%%For: (Nowral) (Nowral Inc.,)
%%Title: ($1)
%%CreationDate: (99.2.22) (0:34 AM)
%%BoundingBox: 91 536 169 612
%%DocumentProcessColors: Black
%%DocumentNeededResources: procset Adobe_packedarray 2.0 0
%%+ procset Adobe_cmykcolor 1.1 0
%%+ procset Adobe_cshow 2.0 8
%%+ procset Adobe_customcolor 1.0 0
%%+ procset Adobe_IllustratorA_AI3 1.2 11
%AI3_ColorUsage: Black&White
%AI3_TemplateBox: 297 420 297 420
%AI3_TileBox: 17 15 577 815
%AI3_DocumentPreview: None
%%EndComments
%%BeginProlog
%%IncludeResource: procset Adobe_packedarray 2.0 0
Adobe_packedarray /initialize get exec
%%IncludeResource: procset Adobe_cmykcolor 1.1 0
%%IncludeResource: procset Adobe_cshow 2.0 8
%%IncludeResource: procset Adobe_customcolor 1.0 0
%%IncludeResource: procset Adobe_IllustratorA_AI3 1.2 11
%%EndProlog
%%BeginSetup
Adobe_cmykcolor /initialize get exec
Adobe_cshow /initialize get exec
Adobe_customcolor /initialize get exec
Adobe_IllustratorA_AI3 /initialize get exec
%%EndSetup
0 A
0 O
0 g
0 i 0 J 0 j 1 w 4 M []0 d
%AI3_Note:
0 D
_HEAD_

$tf = 0;
while (<IN>) {
  s/\# \-b/0.00\t180.00/g;
  s/(\d+)\.(\d\d)(\d*)\t(\d+)\.(\d\d)(\d*)/ {
    $lat = $4; # - 25;
    $lon = $1; # - 125;
    if($lat == 180) {
      if($tf != 0) { print "S\n"; }
      $tf = 1;
    }
    elsif($tf == 1) {
      print "$lon$2.$3 $lat$5.$6 m\n";
      $tf = 2;
    }
    else {
      print "$lon$2.$3 $lat$5.$6 l\n";
    }
  }/eg;
}
print "S\n";

print <<_FOOT_;
%%PageTrailer
gsave annotatepage grestore showpage
%%Trailer
Adobe_IllustratorA_AI3 /terminate get exec
Adobe_customcolor /terminate get exec
Adobe_cshow /terminate get exec
Adobe_cmykcolor /terminate get exec
Adobe_packedarray /terminate get exec
%%EOF
_FOOT_

close(IN);
close(OUT);

}
&MacPerl'Quit(2);
die "The Unhappy End";