[xcrysden] Bug report: Tcl/scriptingScalarField3D.tcl

[贾 亚磊]

I think the description in Tcl/scriptingScalarField3D.tcl is inconsistent with the coding(line 404 405 406 vs line 408):

402         "-basalplane" {
403             switch $option {
404             1 { set iplane 1 }
405             2 { set iplane 2 }
406             3 { set iplane 3 }
407             default {
408                 ErrorDialog "the value of -basalplane must be 0, 1, or 2, but got $option"
409                 continue
410             }
411             }
412             set scalarField3D(basalplane) $iplane
413             set t .iso
414             set ft  $t.ft
415             set fb1 $t.fb1
416             set fb2 $t.fb2
417             IsoControl_Show colorplane$iplane $fb1 $fb2 $ft.b1 $ft.b2 $ft.b3 $ft.b4
418         }

I think line 404 405 406 should be changed to:

404             0 { set iplane 1 }
405             1 { set iplane 2 }
406             2 { set iplane 3 }

Best regards!
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://www.democritos.it/pipermail/xcrysden/attachments/20170808/7e0bfe68/attachment.htm