0023776: Redesign of MFC samples after V2d viewer removing
[occt.git] / samples / tcl / DataExchangeDemo.tcl
CommitLineData
b311480e 1# Copyright (c) 1999-2012 OPEN CASCADE SAS
2#
3# The content of this file is subject to the Open CASCADE Technology Public
4# License Version 6.5 (the "License"). You may not use the content of this file
5# except in compliance with the License. Please obtain a copy of the License
6# at http://www.opencascade.org and read it completely before using this file.
7#
8# The Initial Developer of the Original Code is Open CASCADE S.A.S., having its
9# main offices at: 1, place des Freres Montgolfier, 78280 Guyancourt, France.
10#
11# The Original Code and all software distributed under the License is
12# distributed on an "AS IS" basis, without warranty of any kind, and the
13# Initial Developer hereby disclaims all such warranties, including without
14# limitation, any warranties of merchantability, fitness for a particular
15# purpose or non-infringement. Please see the License for the specific terms
16# and conditions governing the rights and limitations under the License.
17
03392dd2 18# Command to log a message to both command-line and dialog window
7fd59977 19proc sage { a} {
03392dd2 20 if { ![winfo exists .h ] } {
21 toplevel .h -bg azure3
22 wm title .h "INFO TEST HARNESS"
23 wm geometry .h +320+20
24 }
25 if { [winfo exists .h.m ] } {
26 set astring [.h.m cget -text]
27 set newstring "${astring} \n $a"
28 .h.m configure -text $newstring
29 puts $a
30 } else {
31 message .h.m -justify left -bg azure2 -width 13c -relief ridge -bd 4 -text $a
32 puts $a
33 }
34 pack .h.m
35 update
7fd59977 36}
37
03392dd2 38pload DATAEXCHANGE
7fd59977 39
40smallview
41if { [winfo exists .h ] } {
42 destroy .h
43}
44
03392dd2 45set ddir .
7fd59977 46if { [info exists env(CASROOT)] } {
03392dd2 47 set ddir [file join $env(CASROOT) data occ]
48}
49
50set tdir .
51if { [info exist env(TEMP)] } {
52 set tdir $env(TEMP)
7fd59977 53}
54
7fd59977 55sage " First, we retrieve a BREP File "
03392dd2 56sage " restore $ddir/wing.brep wing"
7fd59977 57sage " "
58datadir .
03392dd2 59restore $ddir/wing.brep wing
7fd59977 60disp wing
61fit
03392dd2 62
7fd59977 63sage "Generate the IGES File of this BREP"
03392dd2 64sage " brepiges wing $tdir/wing.igs"
7fd59977 65sage " "
03392dd2 66brepiges wing $tdir/wing.igs
7fd59977 67wait 3
03392dd2 68
69sage "we delete all DRAW data"
7fd59977 70sage ""
71dall
03392dd2 72fit
73wait 3
74
7fd59977 75sage "Restore this IGES File we have created "
03392dd2 76sage " igesbrep $tdir/wing.igs new *"
7fd59977 77sage ""
03392dd2 78igesbrep $tdir/wing.igs new *
7fd59977 79disp new
80fit
03392dd2 81
7fd59977 82puts "End IGES Elementary Test "
83sage " "
03392dd2 84file delete $tdir/wing.igs