[occt.git] / tests / caf / presentation / A3

#INTERFACE CAF
# Presentation attributes
#
# Testing attribute: TPrsStd_AISViewer
# Testing attribute: TPrsStd_AISPresentation
#
# Testing command:   AISSet
# Testing command:   AISDisplay
# Testing command:   AISRepaint
#

puts "caf003-A3"

# Set NamedShape attribute
box aBox1 100 200 300
set aLabel 0:2
SetShape D ${aLabel} aBox1

# Initialize 3D viewer
AISInitViewer D

# Open transaction 
NewCommand D

# Add AISPresentation attribute with parameter NS
AISSet D ${aLabel} NS

# Close/Open transaction
NewCommand D

# Display presentation of NamedShape in the viewer
AISDisplay D ${aLabel}

# Close/Open transaction
NewCommand D

# Undo
Undo D

# Update the viewer (AISRepaint Doc)
AISRepaint D

# Redo
Redo D

# Update the viewer
AISRepaint D

puts "There is the box in the viewer"
Commit	Line	Data
40093367	1	#INTERFACE CAF
	2	# Presentation attributes
	3	#
	4	# Testing attribute: TPrsStd_AISViewer
	5	# Testing attribute: TPrsStd_AISPresentation
	6	#
	7	# Testing command: AISSet
	8	# Testing command: AISDisplay
	9	# Testing command: AISRepaint
	10	#
	11
	12	puts "caf003-A3"
	13
	14	# Set NamedShape attribute
	15	box aBox1 100 200 300
	16	set aLabel 0:2
	17	SetShape D ${aLabel} aBox1
	18
	19	# Initialize 3D viewer
	20	AISInitViewer D
	21
	22	# Open transaction
	23	NewCommand D
	24
	25	# Add AISPresentation attribute with parameter NS
	26	AISSet D ${aLabel} NS
	27
	28	# Close/Open transaction
	29	NewCommand D
	30
	31	# Display presentation of NamedShape in the viewer
	32	AISDisplay D ${aLabel}
	33
	34	# Close/Open transaction
	35	NewCommand D
	36
	37	# Undo
	38	Undo D
	39
	40	# Update the viewer (AISRepaint Doc)
	41	AISRepaint D
	42
	43	# Redo
	44	Redo D
	45
	46	# Update the viewer
	47	AISRepaint D
	48
	49	puts "There is the box in the viewer"