# FGDC <<Class>> PlanarReference
# FGDC CSDGM writer output in XML

# History:
#  Stan Smith 2018-03-21 original script

require_relative 'class_mapProjectionTags'

module ADIWG
   module Mdtranslator
      module Writers
         module Fgdc

            class PlanarGrid

               def initialize(xml, hResponseObj)
                  @xml = xml
                  @hResponseObj = hResponseObj
               end

               def writeXML(hProjection)

                  # classes used
                  classTags = MapProjectionTags.new(@xml, @hResponseObj)

                  # planar 4.1.2.2 (gridsys) - grid coordinate system
                  # <- hProjection.projectionName = oneOf ...
                  gridSystem = hProjection[:gridSystem]
                  case gridSystem
                     when 'utm'
                        @xml.tag!('gridsys') do
                           if hProjection[:gridSystemName].nil?
                              classTags.write_gridName('Universal Transverse Mercator (UTM)')
                           else
                              classTags.write_gridName(hProjection[:gridSystemName])
                           end
                           @xml.tag!('utm') do
                              classTags.write_utmZone(hProjection)
                              @xml.tag!('transmer') do
                                 classTags.write_scaleFactorCM(hProjection)
                                 classTags.write_longCM(hProjection)
                                 classTags.write_latPO(hProjection)
                                 classTags.write_falseNE(hProjection)
                              end
                           end
                        end
                     when 'ups'
                        @xml.tag!('gridsys') do
                           if hProjection[:gridSystemName].nil?
                              classTags.write_gridName('Universal Polar Stereographic (UPS)')
                           else
                              classTags.write_gridName(hProjection[:gridSystemName])
                           end
                           @xml.tag!('ups') do
                              classTags.write_upsZone(hProjection)
                              @xml.tag!('polarst') do
                                 classTags.write_straightFromPole(hProjection)
                                 if hProjection[:standardParallel1] || hProjection[:standardParallel2]
                                    classTags.write_standParallel(hProjection)
                                 elsif hProjection[:scaleFactorAtProjectionOrigin]
                                    classTags.write_scaleFactorPO(hProjection)
                                 end
                                 classTags.write_falseNE(hProjection)
                              end
                           end
                        end
                     when 'spcs'
                        @xml.tag!('gridsys') do
                           if hProjection[:gridSystemName].nil?
                              classTags.write_gridName('State Plane Coordinate System')
                           else
                              classTags.write_gridName(hProjection[:gridSystemName])
                           end
                           @xml.tag!('spcs') do
                              classTags.write_spcsZone(hProjection)
                              if hProjection[:standardParallel1] || hProjection[:standardParallel2]
                                 @xml.tag!('lambertc') do
                                    classTags.write_standParallel(hProjection)
                                    classTags.write_longCM(hProjection)
                                    classTags.write_latPO(hProjection)
                                    classTags.write_falseNE(hProjection)
                                 end
                              elsif hProjection[:scaleFactorAtCenterLine]
                                 @xml.tag!('obqmerc') do
                                    classTags.write_scaleFactorCL(hProjection)
                                    if hProjection[:obliqueLinePoints].empty?
                                       classTags.write_obliqueLineAzimuth(hProjection)
                                    else
                                       @xml.tag!('obqlpt') do
                                          hProjection[:obliqueLinePoints].each do |hLinePt|
                                             classTags.write_obliqueLinePoint(hLinePt)
                                          end
                                       end
                                    end
                                    classTags.write_latPO(hProjection)
                                    classTags.write_falseNE(hProjection)
                                 end
                              elsif hProjection[:scaleFactorAtCentralMeridian]
                                 @xml.tag!('transmer') do
                                    classTags.write_scaleFactorCM(hProjection)
                                    classTags.write_longCM(hProjection)
                                    classTags.write_latPO(hProjection)
                                    classTags.write_falseNE(hProjection)
                                 end
                              else
                                 @xml.tag!('polycon') do
                                    classTags.write_longCM(hProjection)
                                    classTags.write_latPO(hProjection)
                                    classTags.write_falseNE(hProjection)
                                 end
                              end
                           end
                        end
                     when 'arcsys'
                        @xml.tag!('gridsys') do
                           if hProjection[:gridSystemName].nil?
                              classTags.write_gridName('Equal Arc-second Coordinate System')
                           else
                              classTags.write_gridName(hProjection[:gridSystemName])
                           end
                           @xml.tag!('arcsys') do
                              classTags.write_arcZone(hProjection)
                              if hProjection[:standardParallel1] || hProjection[:standardParallel2]
                                 @xml.tag!('equirect') do
                                    classTags.write_standParallel(hProjection)
                                    classTags.write_longCM(hProjection)
                                    classTags.write_falseNE(hProjection)
                                 end
                              elsif hProjection[:latitudeOfProjectionOrigin]
                                 @xml.tag!('azimequi') do
                                    classTags.write_longCM(hProjection)
                                    classTags.write_latPO(hProjection)
                                    classTags.write_falseNE(hProjection)
                                 end
                              end
                           end
                        end
                  end

               end # writeXML
            end # PlanarGrid

         end
      end
   end
end