Here's another application for MINIGRAFIK. A 3D Bar Chart. No more need to use E**el for this.
I was lucky to see the design allows for 12 bars over the screen width. So the program can accommodate the display of the fuel consumption of your car over the year, or similar things.
Code: Select all
1 REM ** 3D BAR CHART
2 @ON:@CLR
3 Y=191:Z=175:S=25:GOSUB10
4 Y=188:FORX=6TO138STEP12:READZ:GOSUB20:NEXT
5 GETA$:IFA$=""THEN5
6 @RETURN:END
7 :
10 @1,0,YTO147,Y:@1,147,YTO159,Y-12
11 FORT=0TOZSTEPS
12 @1,0,Y-TTO12,Y-T-12:@1,12,Y-T-12TO159,Y-T-12
13 NEXT
14 @1,0,YTO0,Y-Z:@1,12,Y-12TO12,Y-Z-12:@1,159,Y-12TO159,Y-Z-12
15 RETURN
16 :
20 IFZ<2THEN23
21 FORT=1TO8:@0,X+T,Y-1TOX+T,Y-Z+1:NEXT
22 FORT=1TO5:@0,X+T+9,Y-T-1TOX+T+9,Y-T-Z+1:NEXT
23 FORT=1TO5:@0,X+T+1,Y-T-ZTOX+T+8,Y-T-Z:NEXT
24 @1,X,YTOX+9,Y:@1,X+9,YTOX+15,Y-6
25 @1,X,YTOX,Y-Z:@1,X+9,YTOX+9,Y-Z:@1,X+15,Y-6TOX+15,Y-Z-6
26 @1,X,Y-ZTOX+9,Y-Z:@1,X+9,Y-ZTOX+15,Y-Z-6
27 @1,X,Y-ZTOX+6,Y-Z-6:@1,X+6,Y-Z-6TOX+15,Y-Z-6
28 RETURN
29 :
30 DATA 0,1,2,3,10,20,55,175,111,33,81,47