#!/boot/home/config/bin/yab

// Daten
dim alter(14)
alter(0)=0
alter(1)=70
alter(2)=66
alter(3)=61
alter(4)=166
alter(5)=66
alter(6)=166
alter(7)=66
alter(8)=166
alter(9)=66
alter(10)=166
alter(11)=66
alter(12)=0
alter(13)=0
alter(14)=1000

for ig=0 to arraysize(alter(), 1)-1
   if(alter(ig)>maximum) maximum = alter(ig)   
next ig
print maximum

window open 100,100 to 800,500, "MainView", "DrawWorld"
unten=maximum+100
rechts=200
view 0,0 to 685,385, "test1", "MainView"
SCROLLBAR "Diagramm", 3, "test1"
SCROLLBAR SET "Diagramm", "Vertical Range", 0, unten-370
SCROLLBAR SET "Diagramm", "Vertical Position",unten
SCROLLBAR SET "Diagramm", "Horizontal Range", 0, 600
SCROLLBAR SET "Diagramm", "Horizontal Position", 0

view 0,0 to 685,unten+10, "test", "test1"
draw set "bgcolor", 220,222,0, "test" 
draw set "Zurich,Bold,10", "test"
// Our drawing pad



view 50,60 to 650,unten, "DrawView", "test"

draw set "highcolor", 0,0,0, "DrawView"
draw set "bgcolor", 255,255,255, "DrawView"

Teilungslinien_links()
Raster()
Balken()
Waagerechte_linie()
Teilungsbeschriftung_unten()
Teilungsbeschriftung_links()
Gesamtanzahl_auf_den_Balken()
//Balken zeichnen


//**************** Waagerechte_linie *******************
sub Waagerechte_linie()
DRAW LINE 10,unten-70 TO 610,unten-70, "DrawView" 
for i = 0 to 680 step 40
	draw line i+10,unten-70 to i+10,unten-60, "DrawView"
next i
draw set "highcolor", 0,0,0, "DrawView"
end sub
//******************************************************

//**************** Raster 		   *********************
sub Raster()
for i1 = 0 to maximum+10 step 10
	draw set "highcolor", 225,225,225, "DrawView"
	draw line 11,unten-80-i1 to 600,unten-80-i1, "DrawView"
next i1
draw set "highcolor", 0,0,0, "DrawView"
end sub
//******************************************************

//**************** Waagerechter Text *******************
sub Teilungsbeschriftung_unten()
for h = 0 to 580 step 40
	if (h=0) then
		minusx=0
	elseif(h>0 and h<100)
		minusx=4
	elseif(h>99) then
		minusx=4
	endif
	draw text 58+h-minusx, unten+10, str$(j), "test"
	j=j+10	
next h
end sub
//******************************************************

//**************** Teilungslinien_links ****************
sub Teilungslinien_links()
DRAW LINE 10,unten-70 TO 10,unten-90-maximum, "DrawView"

for l = 0 to maximum+20 step 10
	draw set "highcolor", 0,0,0, "DrawView"
	draw line 0,unten-70-l to 10,unten-70-l, "DrawView"
next l
draw set "highcolor", 0,0,0, "DrawView"
end sub
//******************************************************

//**************** Teilungsbeschriftung_links **********
sub Teilungsbeschriftung_links()
for m = 0 to maximum+20 step 10
	if (m=0) then	
		draw text 20, unten-6-m, "      "+str$(m), "test"
	elseif (m>0 and m<100) then	
		draw text 20, unten-6-m, "    "+str$(m), "test"
	elseif (m>90 and m<1000) then	
		draw text 20, unten-6-m, "  "+str$(m), "test"
	elseif (m>990) then	
		draw text 20, unten-6-m, str$(m), "test"
	endif
next m
end sub
//******************************************************

//**************** Balken ******************************
sub Balken()
for g=0 to 14 step 1	
	
	//draw line ix,300 to ix,300-val(alter$(g)), "DrawView"
	y2=unten-70-alter(g)
	//print ix
	draw set "highcolor", 255,0,255, "DrawView"
	draw set 0, "HighSolidFill"
	// draw rect ix+10-7.5,unten-70 to ix+10+7.5,y2, "DrawView" 
	draw rect ix+10-7.5, y2 to ix+10+7.5, unten-70, "DrawView"
	
	ix=ix+40		
next g
draw set "highcolor", 0,0,0, "DrawView"
end sub
//******************************************************
		
//**************** Balken ******************************
sub Gesamtanzahl_auf_den_Balken()
for n = 0 to 14	
    draw set "Zurich,Bold,8", "DrawView"
    if (alter(n)=0) then
    else	
		draw text 5+f, unten-70-val(alter$(n))-10, alter$(n), "DrawView"
	endif
	f=f+40
next n
draw set "Zurich,Bold,10", "test"
end sub
//******************************************************





while(not instr(msg$,"NextButton"))
	msg$ = message$
	if(instr(msg$, "Quit")) then
		window close "test"
		end
	endif
	sleep 0.1
wend


window close "MainView"