(ATCScript "XYGraphTimeseries"
  (Arg "DataFileObject")
  (Arg "Locations")
  (Arg "Scenarios")
  (Arg "Constituents")
  (Arg "GraphTitle")
  (Arg "SDate")
  (Arg "EDate")

  (Set CR (+ (Chr 13) (Chr 10)))
  (For CurConstituent in Constituents
    (For CurLocation in Locations
      (Graph Grid 1 1 0)
      (Graph TIME SDate EDate)
      (Graph TITLE (+ "Scatter Plot (Simulated vs Observed)&"
                      "for Daily Mean " CurConstituent " at " Curlocation "&"
                      (JDatediff SDate EDate "yr") " Year " gSimType)
                      Caption
      )
      (Graph Text 
             (+ "  Run Made " (Format (FileAttribute (DataFile DataFileObject FileName) "date") "yyyy-mm-dd hh:mm"))
             1
             1
      )

      (Set curMaxAxisVal 0)

      (For CurScenario in Scenarios
        (If (<> CurScenario "Observed")

          (Set DataSet (DataFile DataFileObject Data Location CurLocation 
                                                     Scenario CurScenario
                                                     Constituent CurConstituent))
          (Graph DATA DataSet)

          (If (> (DataTSer DataSet Attrib "MAX") curMaxAxisVal)
            (Set curMaxAxisVal (DataTSer DataSet Attrib "MAX"))
          )

          (Set Color "Blue")
          (Set LineType 0)
          (Set LegendCaption "Simulated")
          (Set VarValue 1)

          (Graph VAR VarValue 1)
          (Graph AGGR 4 1 0)
          (Graph CURVE 6 LineType 1 1 Color " ")
        )
      )

      (For CurScenario in Scenarios
        (If (= CurScenario "Observed")

          (Set DataSet (DataFile DataFileObject Data Location CurLocation 
                                                     Scenario CurScenario
                                                     Constituent CurConstituent))
          (Graph DATA DataSet)

          (If (> (DataTSer DataSet Attrib "MAX") curMaxAxisVal)
            (Set curMaxAxisVal (DataTSer DataSet Attrib "MAX"))
          )
      
          (Set Color "Blue")
          (Set LineType 0)
          (Set LegendCaption "Observed")
          (Set VarValue 4)

          (Graph VAR VarValue 1)
          (Graph AGGR 4 1 0)
          (Graph CURVE 6 LineType 1 1 Color " ")
        )
      )
      (Graph VAR 1 1)
      (Graph VAR 4 1)

      (C establish maximum y-axis value)
      (Set curMaxAxisVal (RunScript (+ StandardsDir "MaxAxisVal.spt") curMaxAxisVal 0))

      (Graph SCALE 0 curMaxAxisVal 10 0 0 0 0 0 0 0 curMaxAxisVal 10 0 0 0 0)

      (Graph AXIS 1 1 0 0 (+ "Simulated (" (Format (FileAttribute (DataFile DataFileObject FileName) "date") "yyyy-mm-dd hh:mm") ")") "Observed" "YR" "Precip(in)")
      (Graph SHOW XY L45)
      (Set curFile (+ OutputDir CurLocation "_" GraphTitle "_Daily_" (DataTSer DataSet Attrib Constituent) ".png"))
      (Graph SAVE curFile)
      (Graph CLEAR)

      ('If (= PrintFile "print")
        (OpenFile curFile PrintFile)
      )

      (Graph TITLE (+ "Scatter Plot (Simulated vs Observed)&"
                      "for Monthly Mean " CurConstituent " at " Curlocation "&"
                      (JDatediff SDate EDate "yr") " Year " gSimType)
                      Caption
      )

      ('Set curMaxAxisVal 0)

      (For CurScenario in Scenarios
        (If (<> CurScenario "Observed")
 
          (Set DataSet (DataFile DataFileObject Data Location CurLocation 
                                                     Scenario CurScenario
                                                     Constituent CurConstituent))
          (Graph DATA DataSet)

          ('If (> (DataTSer DataSet Attrib "MAX") curMaxAxisVal)
            (Set curMaxAxisVal (DataTSer DataSet Attrib "MAX"))
          )

          (Set Color "Blue")
          (Set LineType 0)
          (Set LegendCaption "Simulated")
          (Set VarValue 1)

          (Graph VAR VarValue 1)
          (Graph AGGR 5 1 0)
          (Graph CURVE 6 LineType 1 1 Color " ")
        )
      )

      (For CurScenario in Scenarios
        (If (= CurScenario "Observed")

          (Set DataSet (DataFile DataFileObject Data Location CurLocation 
                                                     Scenario CurScenario
                                                     Constituent CurConstituent))
          (Graph DATA DataSet)

          ('If (> (DataTSer DataSet Attrib "MAX") curMaxAxisVal)
            (Set curMaxAxisVal (DataTSer DataSet Attrib "MAX"))
          )

          (Set Color "Blue")
          (Set LineType 0)
          (Set LegendCaption "Observed")
          (Set VarValue 4)

          (Graph VAR VarValue 1)
          (Graph AGGR 5 1 0)
          (Graph CURVE 6 LineType 1 1 Color " ")
        )
      )

      (Graph VAR 1 1)
      (Graph VAR 4 1)

      (C establish maximum y-axis value)
      (Set curMaxAxisVal (/ curMaxAxisVal 10))
      ('Set curMaxAxisVal (RunScript (+ StandardsDir "MaxAxisVal.spt") curMaxAxisVal 0))

      (Graph SCALE 0 curMaxAxisVal 10 0 0 0 0 0 0 0 curMaxAxisVal 10 0 0 0 0)
      (Graph AXIS 1 1 0 0 (+ "Simulated (" (Format (FileAttribute (DataFile DataFileObject FileName) "date") "yyyy-mm-dd hh:mm") ")") "Observed" "YR" "Precip(in)")
      (Graph SHOW XY L45)
      (Set curFile (+ OutputDir CurLocation "_" GraphTitle "_Monthly_" (DataTSer DataSet Attrib Constituent) ".png"))
      (Graph SAVE curFile)
      (Graph CLEAR)
    )

    ('If (= PrintFile "print")
      (OpenFile curFile PrintFile)
    )
  )
  (UnSet DataSet)
  (UnSet Color)
  (UnSet LineType)
  (UnSet LegendCaption)
  (UnSet VarValue)
  (UnSet curMaxAxisVal)
)