[occt.git] / src / DrawResources / SURFACES.tcl

# Copyright (c) 1999-2012 OPEN CASCADE SAS
#
# The content of this file is subject to the Open CASCADE Technology Public
# License Version 6.5 (the "License"). You may not use the content of this file
# except in compliance with the License. Please obtain a copy of the License
# at http://www.opencascade.org and read it completely before using this file.
#
# The Initial Developer of the Original Code is Open CASCADE S.A.S., having its
# main offices at: 1, place des Freres Montgolfier, 78280 Guyancourt, France.
#
# The Original Code and all software distributed under the License is
# distributed on an "AS IS" basis, without warranty of any kind, and the
# Initial Developer hereby disclaims all such warranties, including without
# limitation, any warranties of merchantability, fitness for a particular
# purpose or non-infringement. Please see the License for the specific terms
# and conditions governing the rights and limitations under the License.

if { [info commands addmenu] == "" } { return }

proc dialanasurf {command sname args} {
    set com "dialbox $command name $sname origin {0 0 0} normal {0 0 1} xdir {1 0 0} "
    foreach l $args {append com " $l"}
    eval $com
}

addmenu Surfaces "Plane"      {dialanasurf plane p {}}
addmenu Surfaces "Cylinder"   {dialanasurf cylinder c {radius 1}}
addmenu Surfaces "Cone"       {dialanasurf cone c {angle 30 radius 0}}
addmenu Surfaces "Sphere"     {dialanasurf sphere s {radius 1}}
addmenu Surfaces "Torus"      {dialanasurf torus t {radii {1 0.8}}}
addmenu Surfaces "Revolution" {dialbox revsur name r basis . origin {0 0 0} axis {0 0 1}}
addmenu Surfaces "Extrusion"  {dialbox extsurf name e basis . direction {0 0 1}}
Commit	Line	Data
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
8418c617	18	if { [info commands addmenu] == "" } { return }
8418c617	19
7fd59977	20	proc dialanasurf {command sname args} {
	21	set com "dialbox $command name $sname origin {0 0 0} normal {0 0 1} xdir {1 0 0} "
	22	foreach l $args {append com " $l"}
	23	eval $com
	24	}
	25
	26	addmenu Surfaces "Plane" {dialanasurf plane p {}}
	27	addmenu Surfaces "Cylinder" {dialanasurf cylinder c {radius 1}}
	28	addmenu Surfaces "Cone" {dialanasurf cone c {angle 30 radius 0}}
	29	addmenu Surfaces "Sphere" {dialanasurf sphere s {radius 1}}
	30	addmenu Surfaces "Torus" {dialanasurf torus t {radii {1 0.8}}}
	31	addmenu Surfaces "Revolution" {dialbox revsur name r basis . origin {0 0 0} axis {0 0 1}}
	32	addmenu Surfaces "Extrusion" {dialbox extsurf name e basis . direction {0 0 1}}