1、在窗口上添加字
dev_open_window (0, 0, 512, 512, 'black', WindowHandle)
set_display_font (WindowHandle, 16, 'mono', 'true', 'false')
for Index := 1 to 5 by 1
disp_message (WindowHandle, 'Step '+Index, 'window', 30*Index, -1, 'black', 'true')
disp_continue_message (WindowHandle, 'black', 'true')
stop ()
endfor
2、在图上绘制多条曲线
*Ret为vector
Ret:={[],[],[],[],[]}
for Index := 1 to 5 by 1
for Index1 := 1 to 121 by 1
Ret.at(Index):=[Ret.at(Index),Index*Index1]
endfor
endfor
X:=[]
for Index := 1 to 121 by 1
X:=[X,Index]
endfor
X:=[]
for Index := 1 to 121 by 1
X:=[X,Index]
endfor
XLabel := 'x'
YLabel := 'y'
Color := ['medium slate blue','yellow','red','green','pink']
GenParamName := []
GenParamValue := []
plot_tuple (WindowHandle, X, [Ret.at(0),Ret.at(1),Ret.at(2),Ret.at(3),Ret.at(4)], XLabel, YLabel, Color, GenParamName, GenParamValue)
disp_message (WindowHandle, Methods, 'window', 100, 100, Color, 'false')