0 Members and 6 Guests are viewing this topic.
:.FORCEATT:Fix 5:ClrDraw:DispGraph:Circle(15,15,10:Circle(80,15,10:Text(57,10,("DEF"):Text(57,75,("OFF"):Line(25,15,30,10:Line(70,15,65,10:Line(30,10,45,10:Line(65,10,50,10:Line(45,10,47,8:Line(50,10,48,8:Line(30,7,65,7:Line(30,7,28,0:Line(65,7,67,0:Line(5,15,0,10:Line(90,15,95,10:rand^1+101→F:For(U,1,F:If U≥0 and (U≤9):-3→Q:End:If U>99:3→Q:End:If U≥10 and (U≤99):0→Q:End:Fix 1:Text(44,10-Q,U▶Dec:Fix 0:End:rand^1+101→N:For(U,1,N:If U≥0 and (U≤9):-3→Q:End:If U>99:3→Q:End:If U≥10 and (U≤99):0→Q:End:Fix 1:Text(44,75-Q,U▶Dec:Fix 0:End:Line(36,60,58,60:Pt-On(35,62:Pt-On(35,61:Pt-On(59,62:Pt-On(59,61:Line(89,29,89,61:Line(89,29,93,29:Line(94,29,94,61:Line(89,61,4,61:Line(91,U,92,U:Pause 5000:Fix 4
DispGraph
:.FORCEATT:ClrDraw:DispGraph:Fix 5:Circle(15,15,10:Circle(80,15,10:Text(57,10,("DEF"):Text(57,75,("OFF"):Line(25,15,30,10:Line(70,15,65,10:Line(30,10,45,10:Line(65,10,50,10:Line(45,10,47,8:Line(50,10,48,8:Line(30,7,65,7:Line(30,7,28,0:Line(65,7,67,0:Line(5,15,0,10:Line(90,15,95,10:rand^1+101→F:For(U,1,F:If U≥0 and (U≤9):-3→Q:End:If U>99:3→Q:End:If U≥10 and (U≤99):0→Q:End:Fix 1:Text(44,10-Q,U▶Dec:Fix 0:End:rand^1+101→N:For(U,1,N:If U≥0 and (U≤9):-3→Q:End:If U>99:3→Q:End:If U≥10 and (U≤99):0→Q:End:Fix 1:Text(44,75-Q,U▶Dec:Fix 0:End:Line(36,60,58,60:Pt-On(35,62:Pt-On(35,61:Pt-On(59,62:Pt-On(59,61:Line(89,29,89,61:Line(89,29,93,29:Line(94,29,94,61:Line(89,61,4,61:Line(91,U,92,U:Pause 5000:Fix 4
Yes. To display both text and lines, put a Code: [Select]Fix 5at the start and a Code: [Select]Fix 4at the end of your program. Then you can use DispGraph to copy the buffer to the screen.
Fix 5
Fix 4
I also think there are too much Fix. Try removing all the Fix0 and the Fix1 but letting the Fix5 and Fix4