14 lines
411 B
Plaintext
14 lines
411 B
Plaintext
include pGUI.e
|
|
IupOpen()
|
|
Ihandle plot = IupPlot("GRID=YES, AXS_YAUTOMIN=NO")
|
|
IupPlotBegin(plot, true) -- (true means x-axis are labels)
|
|
for i=1 to length(bins) do
|
|
IupPlotAddStr(plot, LBLS[i], bins[i]);
|
|
end for
|
|
{} = IupPlotEnd(plot)
|
|
IupSetAttribute(plot,"DS_MODE","BAR")
|
|
IupSetAttribute(plot,"DS_COLOR",IUP_DARK_BLUE)
|
|
IupShow(IupDialog(plot, `TITLE=Histogram, RASTERSIZE=1300x850`))
|
|
IupMainLoop()
|
|
IupClose()
|