Alignment-Place

#!/usr/bin/perl -w
# GDSII generation 
#
use GDS2;
use strict;
use Getopt::Std;
require './5800-MA6-Alignment-mark.pm';

our(@ARGV);
our(%opts);

my $DEBUG = 1;
sub usage() {
    print <<USAGE;
$0
USAGE
}

## --------------------------------------------
##          M A I N  R O U T I N E 
## --------------------------------------------

my ($gds2File);

my $filename = $0;
   $filename =~ s/\.txt$//;                     # ---  Strip '.txt' part
   $filename =~ s/[0-9]+.//;                     # ---  Strip '.txt' part
   $filename .= '.gds';                     # ---  Strip '.txt' part

print 'output name: '. $filename, "\n";
unlink $filename;

$gds2File = new GDS2(-fileName=> '>'. $filename);
$gds2File -> printInitLib(-name=>'LibraryName');

# Prepare primitive structure for 5 size of Holes
# --------------------------------------------------

# -------------------------------------------------------


AlignmentMark::AlignmentMark(1,2,11, $gds2File);

$gds2File -> printBgnstr(-name => 'TOP');


$gds2File -> printSref(
    -name => 'alignment-mark',
    -xy   => [0, 0]);
$gds2File -> printEndstr; 
$gds2File -> printEndlib(); 
__END__