autodefine "off"

$Include "RMChart.inc"

'Chart stuff
	CONST ID_RMC1 = 10001

WINDOW win

OPENWINDOW win,0,0,640,500,@MINBOX,0,"DJ-DAX-NASDAQ",&main

'Get a DC and draw Chart
	UINT hDC=GETHDC(win)

	DoTheChart()

WAITUNTIL IsWindowClosed(win)
    RMC_DeleteChart(ID_RMC1)
	RELEASEHDC(win,hDC)
END

SUB main(),INT
	SELECT @MESSAGE
CASE @IDCREATE
	CENTERWINDOW win
CASE @IDCLOSEWINDOW
	CLOSEWINDOW win
ENDSELECT
RETURN 0
ENDSUB

SUB DoTheChart()
'    DEF i AS INT
'    DEF nC AS INT
	DEF nDataCount AS INT
    DEF nRetVal AS INT
    DEF sTemp AS STRING
    DEF aData[0] AS DOUBLE
'    DEF aData2[0] AS DOUBLE
    DEF aPPC[53] AS INT
'    DEF aColor[0] AS INT
'    DEF aXPos[0] AS INT
'    DEF aYPos[0] AS INT
    DEF tChart AS tRMC_CHART
    DEF tRegion AS tRMC_REGION
    DEF tCaption AS tRMC_CAPTION
'    DEF tLegend AS tRMC_LEGEND
    DEF tGrid AS tRMC_GRID
    DEF tDataAxis AS tRMC_DATAAXIS
    DEF tLabelAxis AS tRMC_LABELAXIS
'    DEF tBarSeries AS tRMC_BARSERIES
    DEF tLineSeries AS tRMC_LINESERIES
'    DEF tGridlessSeries AS tRMC_GRIDLESSSERIES
'    DEF tXYAxis AS tRMC_XYAXIS
'    DEF tXYSeries AS tRMC_XYSERIES
 
'************** Create the chart ********************** 
    tChart.nLeft        = 10  
    tChart.nTop         = 10  
    tChart.nWidth       = 600
    tChart.nHeight      = 450
    tChart.nBackColor   = PaleGreen
    tChart.nCtrlStyle   = RMC_CTRLSTYLEFLATSHADOW
    tChart.sBgImage     = ""
    tChart.sFontName    = "Tahoma"
    tChart.nToolTipWidth= 0
    tChart.nBitmapBKColor= DefCol
    nRetVal = RMC_CreateChartOnDCI(hDC, ID_RMC1, tChart)
    'IF nRetVal < 0 THEN GOTO IsError
    '************** Add Region 1 ***************************** 
    tRegion.nLeft       = 5
    tRegion.nTop        = 10
    tRegion.nWidth      = -5
    tRegion.nHeight     = -5
    tRegion.sFooter     = "Data on a weekly basis. Source: www.yahoo.com"
    tRegion.nShowBorder = FALSE
    nRetVal = RMC_AddRegionI(ID_RMC1, tRegion) 
    'IF nRetVal < 0 THEN GOTO IsError
    '************** Add caption to region 1 ******************* 
    tCaption.sText  =     "Performance of DOW JONES, DAX and NASDAQ from January 2000 to end of June 2004"
    tCaption.nBackColor = PaleGreen
    tCaption.nTextColor = DarkBlue
    tCaption.nFontSize  = 9
    tCaption.nIsBold    = TRUE
    nRetVal = RMC_AddCaptionI(ID_RMC1, 1, tCaption)
    'IF nRetVal < 0 THEN GOTO IsError
    '************** Add grid to region 1 ***************************** 
    tGrid.nGridBackColor = LightBlue
    tGrid.nAsGradient    = TRUE
    tGrid.nBicolor       = RMC_BICOLOR_NONE
    tGrid.nLeft          = 0
    tGrid.nTop           = 0
    tGrid.nWidth         = 0
    tGrid.nHeight        = 0
    nRetVal = RMC_AddGridI(ID_RMC1, 1, tGrid)
    'IF nRetVal < 0 THEN GOTO IsError
    '************** Add data axis to region 1 ***************************** 
    tDataAxis.nAlignment      = RMC_DATAAXISLEFT
    tDataAxis.nMinValue       = 0
    tDataAxis.nMaxValue       = 0
    tDataAxis.nTickCount      = 11
    tDataAxis.nFontsize       = 8
    tDataAxis.nTextColor      = DarkBlue
    tDataAxis.nLineColor      = DarkSlateGray
    tDataAxis.nLineStyle      = RMC_LINESTYLEDOT
    tDataAxis.nDecimalDigits  = 0
    tDataAxis.sUnit           = " %"
    tDataAxis.sText           = "2nd January 2000 = 100%"
    nRetVal = RMC_AddDataAxisI(ID_RMC1, 1, tDataAxis)
    'IF nRetVal < 0 THEN GOTO IsError
    '************** Add label axis to region 1 ***************************** 
    tLabelAxis.nCount         = 1
    tLabelAxis.nTickCount     = 5
    tLabelAxis.nAlignment     = RMC_LABELAXISBOTTOM
    tLabelAxis.nFontsize      = 8
    tLabelAxis.nTextColor     = DarkBlue
    tLabelAxis.nTextAlignment = RMC_TEXTCENTER
    tLabelAxis.nLineColor     = DarkSlateGray
    tLabelAxis.nLineStyle     = RMC_LINESTYLEDOT
    tLabelAxis.sText          = ""
    sTemp = "2000*2001*2002*2003*2004"
    nRetVal = RMC_AddLabelAxisI(ID_RMC1, 1, sTemp, tLabelAxis)
    'IF nRetVal < 0 THEN GOTO IsError
    '************** Add Series 1 to region 1 ******************************* 
    tLineSeries.nType             = RMC_LINE_INDEXED
    tLineSeries.nStyle            = RMC_LINE_FLAT
    tLineSeries.nLineStyle        = RMC_LSTYLE_LINE
    tLineSeries.nIsLucent         = FALSE
    tLineSeries.nColor            = Blue
    tLineSeries.nSeriesSymbol     = RMC_SYMBOL_NONE
    tLineSeries.nWhichDataAxis    = 1
    tLineSeries.nValueLabelOn     = RMC_VLABEL_NONE
    tLineSeries.nHatchMode        = RMC_HATCHBRUSH_OFF
    '****** Read points per column ******
    aPPC[0] = 52
    nRetVal = RMC_AddLineSeriesI(ID_RMC1, 1, aData[0], 0,aPPC[0],1, tLineSeries)
    'IF nRetVal < 0 THEN GOTO IsError
    '****** Set name and parameters for the datafile for series 1 ******
    nRetVal = RMC_SetSeriesDataFile(ID_RMC1,1,1,"dow00-04.csv","-1,1","5",",",0)
    'IF nRetVal < 0 THEN GOTO IsError
    '************** Add Series 2 to region 1 ******************************* 
    tLineSeries.nType             = RMC_LINE_INDEXED
    tLineSeries.nStyle            = RMC_LINE_FLAT
    tLineSeries.nLineStyle        = RMC_LSTYLE_LINE
    tLineSeries.nIsLucent         = FALSE
    tLineSeries.nColor            = Crimson
    tLineSeries.nSeriesSymbol     = RMC_SYMBOL_NONE
    tLineSeries.nWhichDataAxis    = 1
    tLineSeries.nValueLabelOn     = RMC_VLABEL_NONE
    tLineSeries.nHatchMode        = RMC_HATCHBRUSH_OFF
    '****** Read points per column ******
    aPPC[0] = 52
    nRetVal = RMC_AddLineSeriesI(ID_RMC1, 1, aData[0], 0,aPPC[0],1, tLineSeries)
    'IF nRetVal < 0 THEN GOTO IsError
    '****** Set name and parameters for the datafile for series 2 ******
    nRetVal = RMC_SetSeriesDataFile(ID_RMC1,1,2,"dax00-04.csv","-1,1","5",",",0)
    'IF nRetVal < 0 THEN GOTO IsError
    '************** Add Series 3 to region 1 ******************************* 
    tLineSeries.nType             = RMC_LINE_INDEXED
    tLineSeries.nStyle            = RMC_LINE_FLAT
    tLineSeries.nLineStyle        = RMC_LSTYLE_LINE
    tLineSeries.nIsLucent         = FALSE
    tLineSeries.nColor            = Black
    tLineSeries.nSeriesSymbol     = RMC_SYMBOL_NONE
    tLineSeries.nWhichDataAxis    = 1
    tLineSeries.nValueLabelOn     = RMC_VLABEL_NONE
    tLineSeries.nHatchMode        = RMC_HATCHBRUSH_OFF
    '****** Read points per column ******
    aPPC[0] = 52
    nRetVal = RMC_AddLineSeriesI(ID_RMC1, 1, aData[0], 0,aPPC[0],1, tLineSeries)
    'IF nRetVal < 0 THEN GOTO IsError
    '****** Set name and parameters for the datafile for series 3 ******
    nRetVal = RMC_SetSeriesDataFile(ID_RMC1,1,3,"nasdaq00-04.csv","-1,1","5",",",0)
    'IF nRetVal < 0 THEN GOTO IsError
    '************** Add CustomObjects ******************************* 
    sTemp = "Dow Jones"
    nRetVal = RMC_COText(ID_RMC1, 1, sTemp,  540,  185,  0,  0, RMC_BOX_NONE, DefCol, DefCol,  0, RMC_LINE_HORIZONTAL, Blue, "00BC")
    'IF nRetVal < 0 THEN GOTO IsError
    sTemp = "Dax"
    nRetVal = RMC_COText(ID_RMC1, 2, sTemp,  544,  284,  0,  0, RMC_BOX_NONE, DefCol, DefCol,  0, RMC_LINE_HORIZONTAL, Crimson, "00BC")
    'IF nRetVal < 0 THEN GOTO IsError
    sTemp = "Nasdaq"
    nRetVal = RMC_COText(ID_RMC1, 3, sTemp,  544,  310,  0,  0, RMC_BOX_NONE, DefCol, DefCol,  0, RMC_LINE_HORIZONTAL, DefCol, "00BC")
    'IF nRetVal < 0 THEN GOTO IsError
 
'    nRetVal = RMC_SetWatermark("",RMC_USERWMCOLOR,RMC_USERWMLUCENT,RMC_USERWMALIGN,RMC_USERFONTSIZE)
    nRetVal = RMC_Draw(ID_RMC1)
    'IF nRetVal < 0 THEN GOTO IsError

ENDSUB