GPS_speedometer

SUBMITTED BY: deleteend

DATE: June 26, 2016, 11:25 p.m.

UPDATED: June 27, 2016, 9:16 p.m.

FORMAT: Text only

SIZE: 26.4 kB

History Raw Download

HITS: 7178

Report
  1. The priest told me I was going to hell for being raped.
  3. % -- Variables --
  5. gps_update_interval = 1000
  6. gps_min_distance = 1
  7. red = 255
  8. green = 0
  9. blue = 0
  10. w = 3
  12. % -- Global --
  14. Gps.open gps_error, gps_update_interval, gps_min_distance
  15. gr.open 255, 255, 255, 255, 1, 0
  17. gr.screen actual_w, actual_h
  18. top = actual_h
  19. bottom = actual_h - actual_h
  20. left = actual_w - actual_w
  21. right = actual_w
  23. bar_h = actual_h / 20
  24. bar_w = actual_w / 20
  26. Gr.bitmap.create bar1, bar_w, bar_h
  27. Gr.bitmap.create bar2, bar_w, bar_h*2
  28. Gr.bitmap.create bar3, bar_w, bar_h*3
  29. Gr.bitmap.create bar4, bar_w, bar_h*4
  30. Gr.bitmap.create bar5, bar_w, bar_h*5
  31. Gr.bitmap.create bar6, bar_w, bar_h*6
  32. Gr.bitmap.create bar7, bar_w, bar_h*7
  33. Gr.bitmap.create bar8, bar_w, bar_h*8
  34. Gr.bitmap.create bar9, bar_w, bar_h*9
  35. Gr.bitmap.create bar10, bar_w, bar_h*10
  36. Gr.bitmap.create bar11, bar_w, bar_h*11
  37. Gr.bitmap.create bar12, bar_w, bar_h*12
  38. Gr.bitmap.create bar13, bar_w, bar_h*13
  39. Gr.bitmap.create bar14, bar_w, bar_h*14
  40. Gr.bitmap.create bar15, bar_w, bar_h*15
  41. Gr.bitmap.create bar16, bar_w, bar_h*16
  42. Gr.bitmap.create bar17, bar_w, bar_h*17
  43. Gr.bitmap.create bar18, bar_w, bar_h*18
  44. Gr.bitmap.create bar19, bar_w, bar_h*19
  45. Gr.bitmap.create bar20, bar_w, bar_h*20
  46. Gr.bitmap.create bg, actual_w, actual_h
  48. Gr.bitmap.load bar1, "speedometer/bar1.png"
  49. Gr.bitmap.load bar2, "speedometer/bar2.png"
  50. Gr.bitmap.load bar3, "speedometer/bar3.png"
  51. Gr.bitmap.load bar4, "speedometer/bar4.png"
  52. Gr.bitmap.load bar5, "speedometer/bar5.png"
  53. Gr.bitmap.load bar6, "speedometer/bar6.png"
  54. Gr.bitmap.load bar7, "speedometer/bar7.png"
  55. Gr.bitmap.load bar8, "speedometer/bar8.png"
  56. Gr.bitmap.load bar9, "speedometer/bar9.png"
  57. Gr.bitmap.load bar10, "speedometer/bar10.png"
  58. Gr.bitmap.load bar11, "speedometer/bar11.png"
  59. Gr.bitmap.load bar12, "speedometer/bar12.png"
  60. Gr.bitmap.load bar13, "speedometer/bar13.png"
  61. Gr.bitmap.load bar14, "speedometer/bar14.png"
  62. Gr.bitmap.load bar15, "speedometer/bar15.png"
  63. Gr.bitmap.load bar16, "speedometer/bar16.png"
  64. Gr.bitmap.load bar17, "speedometer/bar17.png"
  65. Gr.bitmap.load bar18, "speedometer/bar18.png"
  66. Gr.bitmap.load bar19, "speedometer/bar19.png"
  67. Gr.bitmap.load bar20, "speedometer/bar20.png"
  68. Gr.bitmap.load bg, "speedometer/bg.jpeg"
  70. % -- Main --
  72. WakeLock w
  74. do
  76. OnMenuKey:
  77. Dialog.message "Menu", "Dim the screen? (night mode)", sel, "YES", "NO", "Reset"
  79. if sel = 1 then
  80. w = 2
  81. elseif sel = 2 then
  82. w = 3
  83. elseif sel = 3
  84. w = 3
  85. else
  86. w = 3
  87. endif
  89. MenuKey.resume
  91. gps.status gps_status, gps_sat_used, gps_sat_det
  92. gps.location , gps_prov$,, gps_acc,,,,, gps_speed
  94. gps_speed = gps_speed * 3.6
  95. n = gps_speed / 10
  96. n = round(n,0,"U")
  98. gps_speed = round(gps_speed, 0)
  100. SW.BEGIN n
  102. SW.CASE 0
  103. gr.cls
  104. gr.bitmap.draw dbg, bg, left, top-top
  105. gr.color , red, green, blue
  106. gr.text.size 40
  107. gr.text.setfont , "B"
  108. gps_speed$ = "Speed: "+STR$(gps_speed)+" km/h"
  109. gr.text.draw speed, left+10, top-top+80, gps_speed$
  110. gps_acc$ = "Accuracy: "+STR$(gps_acc)+"m"
  111. gr.text.draw status, left+10, top-top+130, gps_acc$
  112. gps_sat_info$ = "SAT: "+STR$(gps_sat_used)+"/"+STR$(gps_sat_det)
  113. gr.text.draw satellites, right-300, top-top+80, gps_sat_info$
  114. gr.render
  115. SW.BREAK
  117. SW.CASE 1
  118. gr.cls
  119. gr.bitmap.draw dbg, bg, left, top-top
  120. gr.color , red, green, blue
  121. gr.text.size 40
  122. gr.text.setfont , "B"
  123. gps_speed$ = "Speed: "+STR$(gps_speed)+" km/h"
  124. gr.text.draw speed, left+10, top-top+80, gps_speed$
  125. gps_acc$ = "Accuracy: "+STR$(gps_acc)+"m"
  126. gr.text.draw status, left+10, top-top+130, gps_acc$
  127. gps_sat_info$ = "SAT: "+STR$(gps_sat_used)+"/"+STR$(gps_sat_det)
  128. gr.text.draw satellites, right-300, top-top+80, gps_sat_info$
  129. gr.bitmap.draw dbar1, bar1, left+bar_w*0 , top-bar_h*1
  130. gr.render
  131. SW.BREAK
  133. SW.CASE 2
  134. gr.cls
  135. gr.bitmap.draw dbg, bg, left, top-top
  136. gr.color , red, green, blue
  137. gr.text.size 40
  138. gr.text.setfont , "B"
  139. gps_speed$ = "Speed: "+STR$(gps_speed)+" km/h"
  140. gr.text.draw speed, left+10, top-top+80, gps_speed$
  141. gps_acc$ = "Accuracy: "+STR$(gps_acc)+"m"
  142. gr.text.draw status, left+10, top-top+130, gps_acc$
  143. gps_sat_info$ = "SAT: "+STR$(gps_sat_used)+"/"+STR$(gps_sat_det)
  144. gr.text.draw satellites, right-300, top-top+80, gps_sat_info$
  145. gr.bitmap.draw dbar1, bar1, left+bar_w*0 , top-bar_h*1
  146. gr.bitmap.draw dbar2, bar2, left+bar_w*1 , top-bar_h*2
  147. gr.render
  148. SW.BREAK
  150. SW.CASE 3
  151. gr.cls
  152. gr.bitmap.draw dbg, bg, left, top-top
  153. gr.color , red, green, blue
  154. gr.text.size 40
  155. gr.text.setfont , "B"
  156. gps_speed$ = "Speed: "+STR$(gps_speed)+" km/h"
  157. gr.text.draw speed, left+10, top-top+80, gps_speed$
  158. gps_acc$ = "Accuracy: "+STR$(gps_acc)+"m"
  159. gr.text.draw status, left+10, top-top+130, gps_acc$
  160. gps_sat_info$ = "SAT: "+STR$(gps_sat_used)+"/"+STR$(gps_sat_det)
  161. gr.text.draw satellites, right-300, top-top+80, gps_sat_info$
  162. gr.bitmap.draw dbar1, bar1, left+bar_w*0 , top-bar_h*1
  163. gr.bitmap.draw dbar2, bar2, left+bar_w*1 , top-bar_h*2
  164. gr.bitmap.draw dbar3, bar3, left+bar_w*2 , top-bar_h*3
  165. gr.render
  166. SW.BREAK
  168. SW.CASE 4
  169. gr.cls
  170. gr.bitmap.draw dbg, bg, left, top-top
  171. gr.color , red, green, blue
  172. gr.text.size 40
  173. gr.text.setfont , "B"
  174. gps_speed$ = "Speed: "+STR$(gps_speed)+" km/h"
  175. gr.text.draw speed, left+10, top-top+80, gps_speed$
  176. gps_acc$ = "Accuracy: "+STR$(gps_acc)+"m"
  177. gr.text.draw status, left+10, top-top+130, gps_acc$
  178. gps_sat_info$ = "SAT: "+STR$(gps_sat_used)+"/"+STR$(gps_sat_det)
  179. gr.text.draw satellites, right-300, top-top+80, gps_sat_info$
  180. gr.bitmap.draw dbar1, bar1, left+bar_w*0 , top-bar_h*1
  181. gr.bitmap.draw dbar2, bar2, left+bar_w*1 , top-bar_h*2
  182. gr.bitmap.draw dbar3, bar3, left+bar_w*2 , top-bar_h*3
  183. gr.bitmap.draw dbar4, bar4, left+bar_w*3 , top-bar_h*4
  184. gr.render
  185. SW.BREAK
  187. SW.CASE 5
  188. gr.cls
  189. gr.bitmap.draw dbg, bg, left, top-top
  190. gr.color , red, green, blue
  191. gr.text.size 40
  192. gr.text.setfont , "B"
  193. gps_speed$ = "Speed: "+STR$(gps_speed)+" km/h"
  194. gr.text.draw speed, left+10, top-top+80, gps_speed$
  195. gps_acc$ = "Accuracy: "+STR$(gps_acc)+"m"
  196. gr.text.draw status, left+10, top-top+130, gps_acc$
  197. gps_sat_info$ = "SAT: "+STR$(gps_sat_used)+"/"+STR$(gps_sat_det)
  198. gr.text.draw satellites, right-300, top-top+80, gps_sat_info$
  199. gr.bitmap.draw dbar1, bar1, left+bar_w*0 , top-bar_h*1
  200. gr.bitmap.draw dbar2, bar2, left+bar_w*1 , top-bar_h*2
  201. gr.bitmap.draw dbar3, bar3, left+bar_w*2 , top-bar_h*3
  202. gr.bitmap.draw dbar4, bar4, left+bar_w*3 , top-bar_h*4
  203. gr.bitmap.draw dbar5, bar5, left+bar_w*4 , top-bar_h*5
  204. gr.render
  205. SW.BREAK
  207. SW.CASE 6
  208. gr.cls
  209. gr.bitmap.draw dbg, bg, left, top-top
  210. gr.color , red, green, blue
  211. gr.text.size 40
  212. gr.text.setfont , "B"
  213. gps_speed$ = "Speed: "+STR$(gps_speed)+" km/h"
  214. gr.text.draw speed, left+10, top-top+80, gps_speed$
  215. gps_acc$ = "Accuracy: "+STR$(gps_acc)+"m"
  216. gr.text.draw status, left+10, top-top+130, gps_acc$
  217. gps_sat_info$ = "SAT: "+STR$(gps_sat_used)+"/"+STR$(gps_sat_det)
  218. gr.text.draw satellites, right-300, top-top+80, gps_sat_info$
  219. gr.bitmap.draw dbar1, bar1, left+bar_w*0 , top-bar_h*1
  220. gr.bitmap.draw dbar2, bar2, left+bar_w*1 , top-bar_h*2
  221. gr.bitmap.draw dbar3, bar3, left+bar_w*2 , top-bar_h*3
  222. gr.bitmap.draw dbar4, bar4, left+bar_w*3 , top-bar_h*4
  223. gr.bitmap.draw dbar5, bar5, left+bar_w*4 , top-bar_h*5
  224. gr.bitmap.draw dbar6, bar6, left+bar_w*5 , top-bar_h*6
  225. gr.render
  226. SW.BREAK
  228. SW.CASE 7
  229. gr.cls
  230. gr.bitmap.draw dbg, bg, left, top-top
  231. gr.color , red, green, blue
  232. gr.text.size 40
  233. gr.text.setfont , "B"
  234. gps_speed$ = "Speed: "+STR$(gps_speed)+" km/h"
  235. gr.text.draw speed, left+10, top-top+80, gps_speed$
  236. gps_acc$ = "Accuracy: "+STR$(gps_acc)+"m"
  237. gr.text.draw status, left+10, top-top+130, gps_acc$
  238. gps_sat_info$ = "SAT: "+STR$(gps_sat_used)+"/"+STR$(gps_sat_det)
  239. gr.text.draw satellites, right-300, top-top+80, gps_sat_info$
  240. gr.bitmap.draw dbar1, bar1, left+bar_w*0 , top-bar_h*1
  241. gr.bitmap.draw dbar2, bar2, left+bar_w*1 , top-bar_h*2
  242. gr.bitmap.draw dbar3, bar3, left+bar_w*2 , top-bar_h*3
  243. gr.bitmap.draw dbar4, bar4, left+bar_w*3 , top-bar_h*4
  244. gr.bitmap.draw dbar5, bar5, left+bar_w*4 , top-bar_h*5
  245. gr.bitmap.draw dbar6, bar6, left+bar_w*5 , top-bar_h*6
  246. gr.bitmap.draw dbar7, bar7, left+bar_w*6 , top-bar_h*7
  247. gr.render
  248. SW.BREAK
  250. SW.CASE 8
  251. gr.cls
  252. gr.bitmap.draw dbg, bg, left, top-top
  253. gr.color , red, green, blue
  254. gr.text.size 40
  255. gr.text.setfont , "B"
  256. gps_speed$ = "Speed: "+STR$(gps_speed)+" km/h"
  257. gr.text.draw speed, left+10, top-top+80, gps_speed$
  258. gps_acc$ = "Accuracy: "+STR$(gps_acc)+"m"
  259. gr.text.draw status, left+10, top-top+130, gps_acc$
  260. gps_sat_info$ = "SAT: "+STR$(gps_sat_used)+"/"+STR$(gps_sat_det)
  261. gr.text.draw satellites, right-300, top-top+80, gps_sat_info$
  262. gr.bitmap.draw dbar1, bar1, left+bar_w*0 , top-bar_h*1
  263. gr.bitmap.draw dbar2, bar2, left+bar_w*1 , top-bar_h*2
  264. gr.bitmap.draw dbar3, bar3, left+bar_w*2 , top-bar_h*3
  265. gr.bitmap.draw dbar4, bar4, left+bar_w*3 , top-bar_h*4
  266. gr.bitmap.draw dbar5, bar5, left+bar_w*4 , top-bar_h*5
  267. gr.bitmap.draw dbar6, bar6, left+bar_w*5 , top-bar_h*6
  268. gr.bitmap.draw dbar7, bar7, left+bar_w*6 , top-bar_h*7
  269. gr.bitmap.draw dbar8, bar8, left+bar_w*7 , top-bar_h*8
  270. gr.render
  271. SW.BREAK
  273. SW.CASE 9
  274. gr.cls
  275. gr.bitmap.draw dbg, bg, left, top-top
  276. gr.color , red, green, blue
  277. gr.text.size 40
  278. gr.text.setfont , "B"
  279. gps_speed$ = "Speed: "+STR$(gps_speed)+" km/h"
  280. gr.text.draw speed, left+10, top-top+80, gps_speed$
  281. gps_acc$ = "Accuracy: "+STR$(gps_acc)+"m"
  282. gr.text.draw status, left+10, top-top+130, gps_acc$
  283. gps_sat_info$ = "SAT: "+STR$(gps_sat_used)+"/"+STR$(gps_sat_det)
  284. gr.text.draw satellites, right-300, top-top+80, gps_sat_info$
  285. gr.bitmap.draw dbar1, bar1, left+bar_w*0 , top-bar_h*1
  286. gr.bitmap.draw dbar2, bar2, left+bar_w*1 , top-bar_h*2
  287. gr.bitmap.draw dbar3, bar3, left+bar_w*2 , top-bar_h*3
  288. gr.bitmap.draw dbar4, bar4, left+bar_w*3 , top-bar_h*4
  289. gr.bitmap.draw dbar5, bar5, left+bar_w*4 , top-bar_h*5
  290. gr.bitmap.draw dbar6, bar6, left+bar_w*5 , top-bar_h*6
  291. gr.bitmap.draw dbar7, bar7, left+bar_w*6 , top-bar_h*7
  292. gr.bitmap.draw dbar8, bar8, left+bar_w*7 , top-bar_h*8
  293. gr.bitmap.draw dbar9, bar9, left+bar_w*8 , top-bar_h*9
  294. gr.render
  295. SW.BREAK
  297. SW.CASE 10
  298. gr.cls
  299. gr.bitmap.draw dbg, bg, left, top-top
  300. gr.color , red, green, blue
  301. gr.text.size 40
  302. gr.text.setfont , "B"
  303. gps_speed$ = "Speed: "+STR$(gps_speed)+" km/h"
  304. gr.text.draw speed, left+10, top-top+80, gps_speed$
  305. gps_acc$ = "Accuracy: "+STR$(gps_acc)+"m"
  306. gr.text.draw status, left+10, top-top+130, gps_acc$
  307. gps_sat_info$ = "SAT: "+STR$(gps_sat_used)+"/"+STR$(gps_sat_det)
  308. gr.text.draw satellites, right-300, top-top+80, gps_sat_info$
  309. gr.bitmap.draw dbar1, bar1, left+bar_w*0 , top-bar_h*1
  310. gr.bitmap.draw dbar2, bar2, left+bar_w*1 , top-bar_h*2
  311. gr.bitmap.draw dbar3, bar3, left+bar_w*2 , top-bar_h*3
  312. gr.bitmap.draw dbar4, bar4, left+bar_w*3 , top-bar_h*4
  313. gr.bitmap.draw dbar5, bar5, left+bar_w*4 , top-bar_h*5
  314. gr.bitmap.draw dbar6, bar6, left+bar_w*5 , top-bar_h*6
  315. gr.bitmap.draw dbar7, bar7, left+bar_w*6 , top-bar_h*7
  316. gr.bitmap.draw dbar8, bar8, left+bar_w*7 , top-bar_h*8
  317. gr.bitmap.draw dbar9, bar9, left+bar_w*8 , top-bar_h*9
  318. gr.bitmap.draw dbar10, bar10, left+bar_w*9 , top-bar_h*10
  319. gr.render
  320. SW.BREAK
  322. SW.CASE 11
  323. gr.cls
  324. gr.bitmap.draw dbg, bg, left, top-top
  325. gr.color , red, green, blue
  326. gr.text.size 40
  327. gr.text.setfont , "B"
  328. gps_speed$ = "Speed: "+STR$(gps_speed)+" km/h"
  329. gr.text.draw speed, left+10, top-top+80, gps_speed$
  330. gps_acc$ = "Accuracy: "+STR$(gps_acc)+"m"
  331. gr.text.draw status, left+10, top-top+130, gps_acc$
  332. gps_sat_info$ = "SAT: "+STR$(gps_sat_used)+"/"+STR$(gps_sat_det)
  333. gr.text.draw satellites, right-300, top-top+80, gps_sat_info$
  334. gr.bitmap.draw dbar1, bar1, left+bar_w*0 , top-bar_h*1
  335. gr.bitmap.draw dbar2, bar2, left+bar_w*1 , top-bar_h*2
  336. gr.bitmap.draw dbar3, bar3, left+bar_w*2 , top-bar_h*3
  337. gr.bitmap.draw dbar4, bar4, left+bar_w*3 , top-bar_h*4
  338. gr.bitmap.draw dbar5, bar5, left+bar_w*4 , top-bar_h*5
  339. gr.bitmap.draw dbar6, bar6, left+bar_w*5 , top-bar_h*6
  340. gr.bitmap.draw dbar7, bar7, left+bar_w*6 , top-bar_h*7
  341. gr.bitmap.draw dbar8, bar8, left+bar_w*7 , top-bar_h*8
  342. gr.bitmap.draw dbar9, bar9, left+bar_w*8 , top-bar_h*9
  343. gr.bitmap.draw dbar10, bar10, left+bar_w*9 , top-bar_h*10
  344. gr.bitmap.draw dbar11, bar11, left+bar_w*10 , top-bar_h*11
  345. gr.render
  346. SW.BREAK
  348. SW.CASE 12
  349. gr.cls
  350. gr.bitmap.draw dbg, bg, left, top-top
  351. gr.color , red, green, blue
  352. gr.text.size 40
  353. gr.text.setfont , "B"
  354. gps_speed$ = "Speed: "+STR$(gps_speed)+" km/h"
  355. gr.text.draw speed, left+10, top-top+80, gps_speed$
  356. gps_acc$ = "Accuracy: "+STR$(gps_acc)+"m"
  357. gr.text.draw status, left+10, top-top+130, gps_acc$
  358. gps_sat_info$ = "SAT: "+STR$(gps_sat_used)+"/"+STR$(gps_sat_det)
  359. gr.text.draw satellites, right-300, top-top+80, gps_sat_info$
  360. gr.bitmap.draw dbar1, bar1, left+bar_w*0 , top-bar_h*1
  361. gr.bitmap.draw dbar2, bar2, left+bar_w*1 , top-bar_h*2
  362. gr.bitmap.draw dbar3, bar3, left+bar_w*2 , top-bar_h*3
  363. gr.bitmap.draw dbar4, bar4, left+bar_w*3 , top-bar_h*4
  364. gr.bitmap.draw dbar5, bar5, left+bar_w*4 , top-bar_h*5
  365. gr.bitmap.draw dbar6, bar6, left+bar_w*5 , top-bar_h*6
  366. gr.bitmap.draw dbar7, bar7, left+bar_w*6 , top-bar_h*7
  367. gr.bitmap.draw dbar8, bar8, left+bar_w*7 , top-bar_h*8
  368. gr.bitmap.draw dbar9, bar9, left+bar_w*8 , top-bar_h*9
  369. gr.bitmap.draw dbar10, bar10, left+bar_w*9 , top-bar_h*10
  370. gr.bitmap.draw dbar11, bar11, left+bar_w*10 , top-bar_h*11
  371. gr.bitmap.draw dbar12, bar12, left+bar_w*11 , top-bar_h*12
  372. gr.render
  373. SW.BREAK
  375. SW.CASE 13
  376. gr.cls
  377. gr.bitmap.draw dbg, bg, left, top-top
  378. gr.color , red, green, blue
  379. gr.text.size 40
  380. gr.text.setfont , "B"
  381. gps_speed$ = "Speed: "+STR$(gps_speed)+" km/h"
  382. gr.text.draw speed, left+10, top-top+80, gps_speed$
  383. gps_acc$ = "Accuracy: "+STR$(gps_acc)+"m"
  384. gr.text.draw status, left+10, top-top+130, gps_acc$
  385. gps_sat_info$ = "SAT: "+STR$(gps_sat_used)+"/"+STR$(gps_sat_det)
  386. gr.text.draw satellites, right-300, top-top+80, gps_sat_info$
  387. gr.bitmap.draw dbar1, bar1, left+bar_w*0 , top-bar_h*1
  388. gr.bitmap.draw dbar2, bar2, left+bar_w*1 , top-bar_h*2
  389. gr.bitmap.draw dbar3, bar3, left+bar_w*2 , top-bar_h*3
  390. gr.bitmap.draw dbar4, bar4, left+bar_w*3 , top-bar_h*4
  391. gr.bitmap.draw dbar5, bar5, left+bar_w*4 , top-bar_h*5
  392. gr.bitmap.draw dbar6, bar6, left+bar_w*5 , top-bar_h*6
  393. gr.bitmap.draw dbar7, bar7, left+bar_w*6 , top-bar_h*7
  394. gr.bitmap.draw dbar8, bar8, left+bar_w*7 , top-bar_h*8
  395. gr.bitmap.draw dbar9, bar9, left+bar_w*8 , top-bar_h*9
  396. gr.bitmap.draw dbar10, bar10, left+bar_w*9 , top-bar_h*10
  397. gr.bitmap.draw dbar11, bar11, left+bar_w*10 , top-bar_h*11
  398. gr.bitmap.draw dbar12, bar12, left+bar_w*11 , top-bar_h*12
  399. gr.bitmap.draw dbar13, bar13, left+bar_w*12 , top-bar_h*13
  400. gr.render
  401. SW.BREAK
  403. SW.CASE 14
  404. gr.cls
  405. gr.bitmap.draw dbg, bg, left, top-top
  406. gr.color , red, green, blue
  407. gr.text.size 40
  408. gr.text.setfont , "B"
  409. gps_speed$ = "Speed: "+STR$(gps_speed)+" km/h"
  410. gr.text.draw speed, left+10, top-top+80, gps_speed$
  411. gps_acc$ = "Accuracy: "+STR$(gps_acc)+"m"
  412. gr.text.draw status, left+10, top-top+130, gps_acc$
  413. gps_sat_info$ = "SAT: "+STR$(gps_sat_used)+"/"+STR$(gps_sat_det)
  414. gr.text.draw satellites, right-300, top-top+80, gps_sat_info$
  415. gr.bitmap.draw dbar1, bar1, left+bar_w*0 , top-bar_h*1
  416. gr.bitmap.draw dbar2, bar2, left+bar_w*1 , top-bar_h*2
  417. gr.bitmap.draw dbar3, bar3, left+bar_w*2 , top-bar_h*3
  418. gr.bitmap.draw dbar4, bar4, left+bar_w*3 , top-bar_h*4
  419. gr.bitmap.draw dbar5, bar5, left+bar_w*4 , top-bar_h*5
  420. gr.bitmap.draw dbar6, bar6, left+bar_w*5 , top-bar_h*6
  421. gr.bitmap.draw dbar7, bar7, left+bar_w*6 , top-bar_h*7
  422. gr.bitmap.draw dbar8, bar8, left+bar_w*7 , top-bar_h*8
  423. gr.bitmap.draw dbar9, bar9, left+bar_w*8 , top-bar_h*9
  424. gr.bitmap.draw dbar10, bar10, left+bar_w*9 , top-bar_h*10
  425. gr.bitmap.draw dbar11, bar11, left+bar_w*10 , top-bar_h*11
  426. gr.bitmap.draw dbar12, bar12, left+bar_w*11 , top-bar_h*12
  427. gr.bitmap.draw dbar13, bar13, left+bar_w*12 , top-bar_h*13
  428. gr.bitmap.draw dbar14, bar14, left+bar_w*13 , top-bar_h*14
  429. gr.render
  430. SW.BREAK
  432. SW.CASE 15
  433. gr.cls
  434. gr.bitmap.draw dbg, bg, left, top-top
  435. gr.color , red, green, blue
  436. gr.text.size 40
  437. gr.text.setfont , "B"
  438. gps_speed$ = "Speed: "+STR$(gps_speed)+" km/h"
  439. gr.text.draw speed, left+10, top-top+80, gps_speed$
  440. gps_acc$ = "Accuracy: "+STR$(gps_acc)+"m"
  441. gr.text.draw status, left+10, top-top+130, gps_acc$
  442. gps_sat_info$ = "SAT: "+STR$(gps_sat_used)+"/"+STR$(gps_sat_det)
  443. gr.text.draw satellites, right-300, top-top+80, gps_sat_info$
  444. gr.bitmap.draw dbar1, bar1, left+bar_w*0 , top-bar_h*1
  445. gr.bitmap.draw dbar2, bar2, left+bar_w*1 , top-bar_h*2
  446. gr.bitmap.draw dbar3, bar3, left+bar_w*2 , top-bar_h*3
  447. gr.bitmap.draw dbar4, bar4, left+bar_w*3 , top-bar_h*4
  448. gr.bitmap.draw dbar5, bar5, left+bar_w*4 , top-bar_h*5
  449. gr.bitmap.draw dbar6, bar6, left+bar_w*5 , top-bar_h*6
  450. gr.bitmap.draw dbar7, bar7, left+bar_w*6 , top-bar_h*7
  451. gr.bitmap.draw dbar8, bar8, left+bar_w*7 , top-bar_h*8
  452. gr.bitmap.draw dbar9, bar9, left+bar_w*8 , top-bar_h*9
  453. gr.bitmap.draw dbar10, bar10, left+bar_w*9 , top-bar_h*10
  454. gr.bitmap.draw dbar11, bar11, left+bar_w*10 , top-bar_h*11
  455. gr.bitmap.draw dbar12, bar12, left+bar_w*11 , top-bar_h*12
  456. gr.bitmap.draw dbar13, bar13, left+bar_w*12 , top-bar_h*13
  457. gr.bitmap.draw dbar14, bar14, left+bar_w*13 , top-bar_h*14
  458. gr.bitmap.draw dbar15, bar15, left+bar_w*14 , top-bar_h*15
  459. gr.render
  460. SW.BREAK
  462. SW.CASE 16
  463. gr.cls
  464. gr.bitmap.draw dbg, bg, left, top-top
  465. gr.color , red, green, blue
  466. gr.text.size 40
  467. gr.text.setfont , "B"
  468. gps_speed$ = "Speed: "+STR$(gps_speed)+" km/h"
  469. gr.text.draw speed, left+10, top-top+80, gps_speed$
  470. gps_acc$ = "Accuracy: "+STR$(gps_acc)+"m"
  471. gr.text.draw status, left+10, top-top+130, gps_acc$
  472. gps_sat_info$ = "SAT: "+STR$(gps_sat_used)+"/"+STR$(gps_sat_det)
  473. gr.text.draw satellites, right-300, top-top+80, gps_sat_info$
  474. gr.bitmap.draw dbar1, bar1, left+bar_w*0 , top-bar_h*1
  475. gr.bitmap.draw dbar2, bar2, left+bar_w*1 , top-bar_h*2
  476. gr.bitmap.draw dbar3, bar3, left+bar_w*2 , top-bar_h*3
  477. gr.bitmap.draw dbar4, bar4, left+bar_w*3 , top-bar_h*4
  478. gr.bitmap.draw dbar5, bar5, left+bar_w*4 , top-bar_h*5
  479. gr.bitmap.draw dbar6, bar6, left+bar_w*5 , top-bar_h*6
  480. gr.bitmap.draw dbar7, bar7, left+bar_w*6 , top-bar_h*7
  481. gr.bitmap.draw dbar8, bar8, left+bar_w*7 , top-bar_h*8
  482. gr.bitmap.draw dbar9, bar9, left+bar_w*8 , top-bar_h*9
  483. gr.bitmap.draw dbar10, bar10, left+bar_w*9 , top-bar_h*10
  484. gr.bitmap.draw dbar11, bar11, left+bar_w*10 , top-bar_h*11
  485. gr.bitmap.draw dbar12, bar12, left+bar_w*11 , top-bar_h*12
  486. gr.bitmap.draw dbar13, bar13, left+bar_w*12 , top-bar_h*13
  487. gr.bitmap.draw dbar14, bar14, left+bar_w*13 , top-bar_h*14
  488. gr.bitmap.draw dbar15, bar15, left+bar_w*14 , top-bar_h*15
  489. gr.bitmap.draw dbar16, bar16, left+bar_w*15 , top-bar_h*16
  490. gr.render
  491. SW.BREAK
  493. SW.CASE 17
  494. gr.cls
  495. gr.bitmap.draw dbg, bg, left, top-top
  496. gr.color , red, green, blue
  497. gr.text.size 40
  498. gr.text.setfont , "B"
  499. gps_speed$ = "Speed: "+STR$(gps_speed)+" km/h"
  500. gr.text.draw speed, left+10, top-top+80, gps_speed$
  501. gps_acc$ = "Accuracy: "+STR$(gps_acc)+"m"
  502. gr.text.draw status, left+10, top-top+130, gps_acc$
  503. gps_sat_info$ = "SAT: "+STR$(gps_sat_used)+"/"+STR$(gps_sat_det)
  504. gr.text.draw satellites, right-300, top-top+80, gps_sat_info$
  505. gr.bitmap.draw dbar1, bar1, left+bar_w*0 , top-bar_h*1
  506. gr.bitmap.draw dbar2, bar2, left+bar_w*1 , top-bar_h*2
  507. gr.bitmap.draw dbar3, bar3, left+bar_w*2 , top-bar_h*3
  508. gr.bitmap.draw dbar4, bar4, left+bar_w*3 , top-bar_h*4
  509. gr.bitmap.draw dbar5, bar5, left+bar_w*4 , top-bar_h*5
  510. gr.bitmap.draw dbar6, bar6, left+bar_w*5 , top-bar_h*6
  511. gr.bitmap.draw dbar7, bar7, left+bar_w*6 , top-bar_h*7
  512. gr.bitmap.draw dbar8, bar8, left+bar_w*7 , top-bar_h*8
  513. gr.bitmap.draw dbar9, bar9, left+bar_w*8 , top-bar_h*9
  514. gr.bitmap.draw dbar10, bar10, left+bar_w*9 , top-bar_h*10
  515. gr.bitmap.draw dbar11, bar11, left+bar_w*10 , top-bar_h*11
  516. gr.bitmap.draw dbar12, bar12, left+bar_w*11 , top-bar_h*12
  517. gr.bitmap.draw dbar13, bar13, left+bar_w*12 , top-bar_h*13
  518. gr.bitmap.draw dbar14, bar14, left+bar_w*13 , top-bar_h*14
  519. gr.bitmap.draw dbar15, bar15, left+bar_w*14 , top-bar_h*15
  520. gr.bitmap.draw dbar16, bar16, left+bar_w*15 , top-bar_h*16
  521. gr.bitmap.draw dbar17, bar17, left+bar_w*16 , top-bar_h*17
  522. gr.render
  523. SW.BREAK
  525. SW.CASE 18
  526. gr.cls
  527. gr.bitmap.draw dbg, bg, left, top-top
  528. gr.color , red, green, blue
  529. gr.text.size 40
  530. gr.text.setfont , "B"
  531. gps_speed$ = "Speed: "+STR$(gps_speed)+" km/h"
  532. gr.text.draw speed, left+10, top-top+80, gps_speed$
  533. gps_acc$ = "Accuracy: "+STR$(gps_acc)+"m"
  534. gr.text.draw status, left+10, top-top+130, gps_acc$
  535. gps_sat_info$ = "SAT: "+STR$(gps_sat_used)+"/"+STR$(gps_sat_det)
  536. gr.text.draw satellites, right-300, top-top+80, gps_sat_info$
  537. gr.bitmap.draw dbar1, bar1, left+bar_w*0 , top-bar_h*1
  538. gr.bitmap.draw dbar2, bar2, left+bar_w*1 , top-bar_h*2
  539. gr.bitmap.draw dbar3, bar3, left+bar_w*2 , top-bar_h*3
  540. gr.bitmap.draw dbar4, bar4, left+bar_w*3 , top-bar_h*4
  541. gr.bitmap.draw dbar5, bar5, left+bar_w*4 , top-bar_h*5
  542. gr.bitmap.draw dbar6, bar6, left+bar_w*5 , top-bar_h*6
  543. gr.bitmap.draw dbar7, bar7, left+bar_w*6 , top-bar_h*7
  544. gr.bitmap.draw dbar8, bar8, left+bar_w*7 , top-bar_h*8
  545. gr.bitmap.draw dbar9, bar9, left+bar_w*8 , top-bar_h*9
  546. gr.bitmap.draw dbar10, bar10, left+bar_w*9 , top-bar_h*10
  547. gr.bitmap.draw dbar11, bar11, left+bar_w*10 , top-bar_h*11
  548. gr.bitmap.draw dbar12, bar12, left+bar_w*11 , top-bar_h*12
  549. gr.bitmap.draw dbar13, bar13, left+bar_w*12 , top-bar_h*13
  550. gr.bitmap.draw dbar14, bar14, left+bar_w*13 , top-bar_h*14
  551. gr.bitmap.draw dbar15, bar15, left+bar_w*14 , top-bar_h*15
  552. gr.bitmap.draw dbar16, bar16, left+bar_w*15 , top-bar_h*16
  553. gr.bitmap.draw dbar17, bar17, left+bar_w*16 , top-bar_h*17
  554. gr.bitmap.draw dbar18, bar18, left+bar_w*17 , top-bar_h*18
  555. gr.render
  556. SW.BREAK
  558. SW.CASE 19
  559. gr.cls
  560. gr.bitmap.draw dbg, bg, left, top-top
  561. gr.color , red, green, blue
  562. gr.text.size 40
  563. gr.text.setfont , "B"
  564. gps_speed$ = "Speed: "+STR$(gps_speed)+" km/h"
  565. gr.text.draw speed, left+10, top-top+80, gps_speed$
  566. gps_acc$ = "Accuracy: "+STR$(gps_acc)+"m"
  567. gr.text.draw status, left+10, top-top+130, gps_acc$
  568. gps_sat_info$ = "SAT: "+STR$(gps_sat_used)+"/"+STR$(gps_sat_det)
  569. gr.text.draw satellites, right-300, top-top+80, gps_sat_info$
  570. gr.bitmap.draw dbar1, bar1, left+bar_w*0 , top-bar_h*1
  571. gr.bitmap.draw dbar2, bar2, left+bar_w*1 , top-bar_h*2
  572. gr.bitmap.draw dbar3, bar3, left+bar_w*2 , top-bar_h*3
  573. gr.bitmap.draw dbar4, bar4, left+bar_w*3 , top-bar_h*4
  574. gr.bitmap.draw dbar5, bar5, left+bar_w*4 , top-bar_h*5
  575. gr.bitmap.draw dbar6, bar6, left+bar_w*5 , top-bar_h*6
  576. gr.bitmap.draw dbar7, bar7, left+bar_w*6 , top-bar_h*7
  577. gr.bitmap.draw dbar8, bar8, left+bar_w*7 , top-bar_h*8
  578. gr.bitmap.draw dbar9, bar9, left+bar_w*8 , top-bar_h*9
  579. gr.bitmap.draw dbar10, bar10, left+bar_w*9 , top-bar_h*10
  580. gr.bitmap.draw dbar11, bar11, left+bar_w*10 , top-bar_h*11
  581. gr.bitmap.draw dbar12, bar12, left+bar_w*11 , top-bar_h*12
  582. gr.bitmap.draw dbar13, bar13, left+bar_w*12 , top-bar_h*13
  583. gr.bitmap.draw dbar14, bar14, left+bar_w*13 , top-bar_h*14
  584. gr.bitmap.draw dbar15, bar15, left+bar_w*14 , top-bar_h*15
  585. gr.bitmap.draw dbar16, bar16, left+bar_w*15 , top-bar_h*16
  586. gr.bitmap.draw dbar17, bar17, left+bar_w*16 , top-bar_h*17
  587. gr.bitmap.draw dbar18, bar18, left+bar_w*17 , top-bar_h*18
  588. gr.bitmap.draw dbar19, bar19, left+bar_w*18 , top-bar_h*19
  589. gr.render
  590. SW.BREAK
  592. SW.CASE 20
  593. gr.cls
  594. gr.bitmap.draw dbg, bg, left, top-top
  595. gr.color , red, green, blue
  596. gr.text.size 40
  597. gr.text.setfont , "B"
  598. gps_speed$ = "Speed: "+STR$(gps_speed)+" km/h"
  599. gr.text.draw speed, left+10, top-top+80, gps_speed$
  600. gps_acc$ = "Accuracy: "+STR$(gps_acc)+"m"
  601. gr.text.draw status, left+10, top-top+130, gps_acc$
  602. gps_sat_info$ = "SAT: "+STR$(gps_sat_used)+"/"+STR$(gps_sat_det)
  603. gr.text.draw satellites, right-300, top-top+80, gps_sat_info$
  604. gr.bitmap.draw dbar1, bar1, left+bar_w*0 , top-bar_h*1
  605. gr.bitmap.draw dbar2, bar2, left+bar_w*1 , top-bar_h*2
  606. gr.bitmap.draw dbar3, bar3, left+bar_w*2 , top-bar_h*3
  607. gr.bitmap.draw dbar4, bar4, left+bar_w*3 , top-bar_h*4
  608. gr.bitmap.draw dbar5, bar5, left+bar_w*4 , top-bar_h*5
  609. gr.bitmap.draw dbar6, bar6, left+bar_w*5 , top-bar_h*6
  610. gr.bitmap.draw dbar7, bar7, left+bar_w*6 , top-bar_h*7
  611. gr.bitmap.draw dbar8, bar8, left+bar_w*7 , top-bar_h*8
  612. gr.bitmap.draw dbar9, bar9, left+bar_w*8 , top-bar_h*9
  613. gr.bitmap.draw dbar10, bar10, left+bar_w*9 , top-bar_h*10
  614. gr.bitmap.draw dbar11, bar11, left+bar_w*10 , top-bar_h*11
  615. gr.bitmap.draw dbar12, bar12, left+bar_w*11 , top-bar_h*12
  616. gr.bitmap.draw dbar13, bar13, left+bar_w*12 , top-bar_h*13
  617. gr.bitmap.draw dbar14, bar14, left+bar_w*13 , top-bar_h*14
  618. gr.bitmap.draw dbar15, bar15, left+bar_w*14 , top-bar_h*15
  619. gr.bitmap.draw dbar16, bar16, left+bar_w*15 , top-bar_h*16
  620. gr.bitmap.draw dbar17, bar17, left+bar_w*16 , top-bar_h*17
  621. gr.bitmap.draw dbar18, bar18, left+bar_w*17 , top-bar_h*18
  622. gr.bitmap.draw dbar19, bar19, left+bar_w*18 , top-bar_h*19
  623. gr.bitmap.draw dbar20, bar20, left+bar_w*19 , top-bar_h*20
  624. gr.render
  625. SW.BREAK
  627. SW.DEFAULT
  629. gr.cls
  630. gr.bitmap.draw dbg, bg, left, top-top
  631. gr.color , red, green, blue
  632. gr.text.size 40
  633. gr.text.setfont , "B"
  634. gps_speed$ = "Speed: "+STR$(gps_speed)+" km/h"
  635. gr.text.draw speed, left+10, top-top+80, gps_speed$
  636. gps_acc$ = "Accuracy: "+STR$(gps_acc)+"m"
  637. gr.text.draw status, left+10, top-top+130, gps_acc$
  638. gps_sat_info$ = "SAT: "+STR$(gps_sat_used)+"/"+STR$(gps_sat_det)
  639. gr.text.draw satellites, right-300, top-top+80, gps_sat_info$
  640. gr.render
  642. SW.END
  644. until 0
comments powered by Disqus