(ATCScript "XYGraphTimeseries Script"
  (Arg "DataFileObject")

  (Set CR (+ (Chr 13) (Chr 10)))
  (For CurLocation in Locations
    (Graph TIME SDate Edate)
    (Graph Grid 1 1 0)

    (Graph TITLE (+ "Daily Mean Flow at " Curlocation) 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
      (Set DataSet (DataFile DataFileObject Data Location CurLocation 
                                                 Scenario CurScenario
                                                 Constituent "Flow"))
      (Set DataSetSubset (DataTSer DataSet SubSetByDate SDate EDate))
      (Graph DATA DataSetSubset)

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

      (If (= CurScenario "Observed")
        (Set Color "Blue")
        (Set LineType 0)
        (Set LegendCaption "Observed")
        (Set VarValue 4)
        (Else
          (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 " ")
    )
    (Graph VAR 1 1)
    (Graph VAR 4 1)

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

    (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 DataSetSubset Attrib Constituent) ".png"))
    (Graph SAVE curFile)
    (Graph CLEAR)

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

    (Graph TITLE (+ "Monthly Mean Flow at " Curlocation) Caption)

    (Set curMaxAxisVal 0)
    (For CurScenario in Scenarios
      (Set DataSet (DataFile DataFileObject Data Location CurLocation 
                                                 Scenario CurScenario
                                                 Constituent "Flow"))
      (Set DataSetSubset (DataTSer DataSet SubSetByDate SDate EDate))
      (Graph DATA DataSetSubset)

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

      (If (= CurScenario "Observed")
        (Set Color "Blue")
        (Set LineType 0)
        (Set LegendCaption "Observed")
        (Set VarValue 4)
        (Else
          (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 " ")
    )
    (Graph VAR 1 1)
    (Graph VAR 4 1)

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

    (Graph SCALE 0 curMaxAxisVal 10 0 0 0 0 0 0 0 curMaxAxisVal 10 0 0 0 0)
    (' Graph SCALE 0 50 10 0 0 0 0 0 0 0 50 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 DataSetSubset Attrib Constituent) ".png"))
    (Graph SAVE curFile)
    (Graph CLEAR)

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