Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Comment: | Did place holder work on the configuration panel. |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA3-256: |
4e4c79c176dbfdc60be62e65c0c316f1 |
User & Date: | gwlester 2018-02-06 04:58:42 |
2018-02-06
| ||
21:30 | Partial changes to GUI. check-in: cbfaf8f537 user: gwlester tags: trunk | |
04:58 | Did place holder work on the configuration panel. check-in: 4e4c79c176 user: gwlester tags: trunk | |
2018-02-02
| ||
01:58 | Corrected typos. check-in: 519803a9b5 user: gwlester tags: trunk | |
Changes to Multisensor_Example.tcl.
42 43 44 45 46 47 48 49 50 51 52 53 54 55 | gyro,y,axis 0x16 gyro,z,axis 0x18 rate 50 digits 5 decimals 1 minChange 0.1 } set i2cbus 1 set dIMUaddress 0x28 set range 2000dps foreach type {gyroscope accelerometer magnetometer gravity linearAcceleration quaternion prh} { | > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > | 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 | gyro,y,axis 0x16 gyro,z,axis 0x18 rate 50 digits 5 decimals 1 minChange 0.1 } array set AccelValues { 250dps 0x00 500dps 0x10 2000dps 0x30 250dps,divisor 128.0 500dps,divisor 64.0 2000dps,divisor 16.0 divisor 16.0 full_scale_range 0x30 gyro,x,axis 0x14 gyro,y,axis 0x16 gyro,z,axis 0x18 rate 50 digits 5 decimals 1 minChange 0.1 } array set MagValues { 250dps 0x00 500dps 0x10 2000dps 0x30 250dps,divisor 128.0 500dps,divisor 64.0 2000dps,divisor 16.0 divisor 16.0 full_scale_range 0x30 gyro,x,axis 0x14 gyro,y,axis 0x16 gyro,z,axis 0x18 rate 50 digits 5 decimals 1 minChange 0.1 } set i2cbus 1 set dIMUaddress 0x28 set range 2000dps foreach type {gyroscope accelerometer magnetometer gravity linearAcceleration quaternion prh} { |
251 252 253 254 255 256 257 | CreateGravityFrame .main.gravity CreateLinearAccelerationFrame .main.linearAcceleration CreateQuaternionFrame .main.quaternion CreatePitchRollHeadingFrame .main.prh } proc CreateConfigurationFrame {w} { | > > > > > > > > > > > > > > > > > > > > > > > > > > | | | | | < < < < < < | | > > | > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > | | > > > > | | | | | | | > > > > > | > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > | | | < < < < < < < < < | | 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311 312 313 314 315 316 317 318 319 320 321 322 323 324 325 326 327 328 329 330 331 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346 347 348 349 350 351 352 353 354 355 356 357 358 359 360 361 362 363 364 365 366 367 368 369 370 371 372 373 374 375 376 377 378 379 380 381 382 383 384 385 386 387 388 389 390 391 392 393 394 395 396 397 398 399 400 401 402 403 404 405 406 407 408 409 410 411 412 413 414 415 416 417 418 419 420 421 422 423 424 425 426 427 428 429 430 431 432 433 434 435 436 437 438 439 440 441 442 443 444 445 446 447 448 449 450 451 452 453 454 455 456 457 458 459 460 461 462 463 464 465 466 467 468 469 470 471 472 473 474 475 476 477 478 479 480 481 482 483 484 485 486 487 488 489 490 | CreateGravityFrame .main.gravity CreateLinearAccelerationFrame .main.linearAcceleration CreateQuaternionFrame .main.quaternion CreatePitchRollHeadingFrame .main.prh } proc CreateConfigurationFrame {w} { set general $w.gen set accel $w.acc set gyro $w.gyro set mag $w.mag set control $w.controls ttk::labelframe $general \ -text "General" ttk::labelframe $accel \ -text "Accelerometer" ttk::labelframe $gyro \ -text "Gyrometer" ttk::labelframe $mag \ -text "Magnetometer" ttk::frame $control grid configure $general -sticky nsew -pady 2 grid configure $accel -sticky nsew -pady 2 grid configure $gyro -sticky nsew -pady 2 grid configure $mag -sticky nsew -pady 2 grid configure $control -sticky nsew -pady 4 grid columnconfigure $w $mag -weight 1 grid rowconfigure $w 5 -weight 1 ## ## General Configuration group ## ttk::label $general.busLbl \ -text {I2C Bus:} ttk::combobox $general.busCMB \ -textvariable ::i2cbus \ -values [list 1] \ -state readonly ttk::label $general.addrLbl \ -text {iDMU Address:} ttk::entry $general.addrEnt \ -width 5 \ -textvariable ::dIMUaddress \ -state readonly ttk::label $general.rateLbl1 \ -text {Refresh Rate:} ttk::spinbox $general.rateEnt \ -from 50.0 \ -to 500.0 \ -increment 10.0 \ -format {%3.0f} \ -wrap no \ -command [format {set ::GyroValues(rate) [expr {entier([%1$s get])}]} $control.rateEnt] ttk::label $general.rateLbl2 \ -text { in microseconds} $general.rateEnt set 50.0 grid configure $general.busLbl $general.busCMB x x -padx 2 -sticky ew grid configure $general.addrLbl $general.addrEnt x x -padx 2 -sticky ew grid configure $general.rateLbl1 $general.rateEnt $general.rateLbl2 x -padx 2 -sticky ew grid columnconfigure $general $general.addrEnt -uniform entry grid columnconfigure $general 3 -weight 1 ## ## Accelerometer group ## ttk::label $accel.rangeLbl \ -text {Range:} ttk::combobox $accel.rangeCMB \ -textvariable ::range \ -values [list 250dps 500dps 2000dps] \ -state readonly ttk::label $accel.numDigitsLbl \ -text {Digits before decimal} ttk::combobox $accel.numDigitsCMB \ -textvariable ::AccelValues(digits) \ -values [list 3 4] \ -state readonly ttk::label $accel.numDecimalsLbl \ -text {Digits after decimal} ttk::combobox $accel.numDecimalsCMB \ -textvariable ::AccelValues(decimals) \ -values [list 1 2 3 4] \ -state readonly ttk::label $accel.minChangeLbl1 \ -text {Ignore less than} ttk::spinbox $accel.minChangeEnt \ -from 0.1 \ -to 200.0 \ -increment 0.1 \ -format {%5.1f} \ -wrap no \ -textvariable ::AccelValues(minChange) ttk::label $accel.minChangeLbl2 \ -text {dps change} grid configure $accel.rangeLbl $accel.rangeCMB x x -padx 2 -sticky ew grid configure $accel.numDigitsLbl $accel.numDigitsCMB x x -padx 2 -sticky ew grid configure $accel.numDecimalsLbl $accel.numDecimalsCMB x x -padx 2 -sticky ew grid configure $accel.minChangeLbl1 $accel.minChangeEnt $accel.minChangeLbl2 x -padx 2 -sticky ew grid columnconfigure $accel 3 -weight 1 $accel.minChangeEnt set $::AccelValues(minChange) ## ## Gyrometer ## ttk::label $gyro.rangeLbl \ -text {Range:} ttk::combobox $gyro.rangeCMB \ -textvariable ::range \ -values [list 250dps 500dps 2000dps] \ -state readonly ttk::label $gyro.numDigitsLbl \ -text {Digits before decimal} ttk::combobox $gyro.numDigitsCMB \ -textvariable ::GyroValues(digits) \ -values [list 3 4] \ -state readonly ttk::label $gyro.numDecimalsLbl \ -text {Digits after decimal} ttk::combobox $gyro.numDecimalsCMB \ -textvariable ::GyroValues(decimals) \ -values [list 1 2 3 4] \ -state readonly ttk::label $gyro.minChangeLbl1 \ -text {Ignore less than} ttk::spinbox $gyro.minChangeEnt \ -from 0.1 \ -to 200.0 \ -increment 0.1 \ -format {%5.1f} \ -wrap no \ -textvariable ::GyroValues(minChange) ttk::label $gyro.minChangeLbl2 \ -text {dps change} grid configure $gyro.rangeLbl $gyro.rangeCMB x x -padx 2 -sticky ew grid configure $gyro.numDigitsLbl $gyro.numDigitsCMB x x -padx 2 -sticky ew grid configure $gyro.numDecimalsLbl $gyro.numDecimalsCMB x x -padx 2 -sticky ew grid configure $gyro.minChangeLbl1 $gyro.minChangeEnt $gyro.minChangeLbl2 x -padx 2 -sticky ew grid columnconfigure $gyro 3 -weight 1 $gyro.minChangeEnt set $::GyroValues(minChange) ## ## Magnetometer group ## ttk::label $mag.rangeLbl \ -text {Range:} ttk::combobox $mag.rangeCMB \ -textvariable ::range \ -values [list 250dps 500dps 2000dps] \ -state readonly ttk::label $mag.numDigitsLbl \ -text {Digits before decimal} ttk::combobox $mag.numDigitsCMB \ -textvariable ::MagValues(digits) \ -values [list 3 4] \ -state readonly ttk::label $mag.numDecimalsLbl \ -text {Digits after decimal} ttk::combobox $mag.numDecimalsCMB \ -textvariable ::MagValues(decimals) \ -values [list 1 2 3 4] \ -state readonly ttk::label $mag.minChangeLbl1 \ -text {Ignore less than} ttk::spinbox $mag.minChangeEnt \ -from 0.1 \ -to 200.0 \ -increment 0.1 \ -format {%5.1f} \ -wrap no \ -textvariable ::MagValues(minChange) ttk::label $mag.minChangeLbl2 \ -text {dps change} grid configure $mag.rangeLbl $mag.rangeCMB x x -padx 2 -sticky ew grid configure $mag.numDigitsLbl $mag.numDigitsCMB x x -padx 2 -sticky ew grid configure $mag.numDecimalsLbl $mag.numDecimalsCMB x x -padx 2 -sticky ew grid configure $mag.minChangeLbl1 $mag.minChangeEnt $mag.minChangeLbl2 x -padx 2 -sticky ew grid columnconfigure $mag 3 -weight 1 $mag.minChangeEnt set $::MagValues(minChange) ## ## Buttons Group ## ttk::button $control.start \ -text {Start} \ -width 6 \ -command StartReading ttk::button $control.stop \ -state disabled \ -text {Stop} \ -width 6 \ -command StopReading grid configure x $control.start x $control.stop x -sticky ew grid columnconfigure $control {0 2 4} -weight 1 } proc CreateGyroFrame {w} { ttk::labelframe $w.readings \ -text {Current Readings} ttk::labelframe $w.history \ |