From 1c2ddf56124b607d103600eac4b3f0127ccc96b5 Mon Sep 17 00:00:00 2001
From: ma haidong <13501108114@163.com>
Date: Tue, 10 Dec 2019 01:00:59 +0800
Subject: [PATCH] 0031231: Samples - the command "donl" in ModelingDemo.tcl
 should be "donly"

Fixed misprint in Tcl sample script.
---
 samples/tcl/ModelingDemo.tcl | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/samples/tcl/ModelingDemo.tcl b/samples/tcl/ModelingDemo.tcl
index 53f313bf52..92769ec407 100644
--- a/samples/tcl/ModelingDemo.tcl
+++ b/samples/tcl/ModelingDemo.tcl
@@ -86,7 +86,7 @@ sage " Fusion of this prism with the original part "
 sage "    fuse result rr result"
 sage " "
 fuse result rr result
-donl result
+donly result
 nexplode result f
 erase result
 fit
@@ -108,13 +108,13 @@ ttranslate cyl cyl 0 7.5 0
 sage " Display the Shape on Hidden Line Mode "
 sage "   hlr hid r"
 sage ""
-donl r
+donly r
 hlr hid r
 sage " Display the Shape on HLR Mode "
 sage "   hlr nohid r"
 sage "   hlr hlr r"
 sage ""
-donl r
+donly r
 hlr nohid r
 hlr hlr r
 sage "Demo completed"