"{ Package: 'stx:libwidg2' }"

"{ NameSpace: Smalltalk }"

GraphColumnView subclass:#GraphColumnView3D

	instanceVariableNames:'glxView showGraph rotateX rotateY rotateZ rotateXHolder

		rotateYHolder rotateZHolder zoomZ zoomZHolder showAxis'

	classVariableNames:''

	poolDictionaries:''

	category:'Views-Graphs'

!

GLXView subclass:#GLXGraph

	instanceVariableNames:'graph colorMap maxY minY loVCols loVRefs yValues glxObjFunc

		glxObjRefs glxObjGrid glxObjAxis removeFunc removeRefs removeGrid

		removeAxis isInvalid lockCriticalTask criticalTask'

	classVariableNames:''

	poolDictionaries:''

	privateIn:GraphColumnView3D

!

!GraphColumnView3D class methodsFor:'documentation'!

documentation

"

    The class provides all the functionality for showing, scrolling and manipulating graphs

    described through to a GraphColumn description. Each change in a graph description

    immediately take affect.

    [See also:]

	GraphColumn

	GraphColumnView

	GraphColumnView2D

    [Author:]

	Claus Atzkern

"

! !

!GraphColumnView3D class methodsFor:'menu'!

defaultMenu

    "this window spec was automatically generated by the ST/X MenuEditor"

    "do not manually edit this - the builder may not be able to

     handle the specification if its corrupted."

    "

     MenuEditor new openOnClass:GraphColumnView3D andSelector:#defaultMenu

     (Menu new fromLiteralArrayEncoding:(GraphColumnView3D defaultMenu)) startUp

    "

    <resource: #menu>

    ^

       #(#Menu

	   #(

	     #(#MenuItem

		#'label:' 'Show Columns'

		#'indication:' #'showGraph:'

	    )

	     #(#MenuItem

		#'label:' 'Show Grid'

		#'indication:' #'showGrid:'

	    )

	     #(#MenuItem

		#'label:' 'Show Axis'

		#'indication:' #'showAxis:'

	    )

	     #(#MenuItem

		#'label:' 'Show References'

		#'indication:' #'showReferences:'

	    )

	     #(#MenuItem

		#'label:' '-'

	    )

	     #(#MenuItem

		#'label:' 'Zoom Y'

		#'submenuChannel:' #subMenuZoomY

	    )

	  ) nil

	  nil

      )

! !

!GraphColumnView3D class methodsFor:'test'!

test

"

self test

"

    |top list view x|

    top  := StandardSystemView extent:800 @ 400.

    view := GraphColumnView3D origin:0@0 extent:1.0@1.0 in:top.

    list := OrderedCollection new.

    top label:'3D-View'.

    #(  red green yellow blue

     ) keysAndValuesDo:[:idx :aColor|

	|col|

	col := GraphColumn name:idx.

	col foregroundColor:(Color perform:aColor).

	col functionYblock:[:start :anArray|

	    x := (start - 1) * 0.2.

	    (idx == 1 or:[idx == 3]) ifTrue:[

		1 to:(anArray size) do:[:i| anArray at:i put:20 * (x sin). x := x + 0.2 ].

	    ] ifFalse:[

		1 to:(anArray size) do:[:i| anArray at:i put:20 * (x cos). x := x + 0.2 ].

	    ].

	    anArray

	].

	list add:col

    ].

    view showGrid:true.

    view columns:list.

    view showDefaultMenu:true.

    top openAndWait.

    [   |o i t c|

	i := 0.

	t := 0.

	c := 0.

	[top realized] whileTrue:[

	    t := t + (Time millisecondsToRun:[ view rotateY:i]).

	    i := i + 1.

	    c := c + 1.

	    c == 90 ifTrue:[

		Transcript showCR:'Time: ', t printString.

		t := 0.

		c := 0.

	    ].

	    Delay waitForSeconds:0.05.

	]

    ] forkAt:8.

!

testRun

    "running view

     start with:

	 self testRunX

    "

    |top list view step x offs time cbox halt xOrigin|

    halt := false.

    top  := StandardSystemView extent:800 @ 400.

    view := GraphColumnView3D origin:0@20 extent:1.0@1.0 in:top.

    cbox := CheckBox origin:0@0.0 corner:50@20 in:top.

    cbox label:'Stop'.

    cbox action:[:v| halt := v].

    xOrigin := 1 asValue.

    offs := 0.

    step := 2.

    list := OrderedCollection new.

    top label:'Testing 3D-View: Performance Test'.

    #( 0.25 0.5 0.75 ) do:[:xAxis||aCol|

	aCol := GraphColumn new.

	aCol relativeXaxis:xAxis.

	xAxis ~= 0.5 ifTrue:[

	    xAxis < 0.5 ifTrue:[aCol foregroundColor:(Color red)]

		       ifFalse:[aCol foregroundColor:(Color blue)]

	].

	aCol hLineStyle:#dashed.

	aCol hLineList:#( 0 ).

	aCol scaleY:40.

	aCol functionYblock:[:start :array|

	    x := start * 0.2.

	    1 to:(array size) do:[:i| array at:i put:10 * (x sin). x := x + 0.2 ].

	    array

	].

	list add:aCol.

    ].

    view windowSize:100.

    view showGrid:true.

    view columns:list.

    view scrollUpdatesOriginX:true.

    view graphOriginXHolder:xOrigin.

    top openAndWait.

    [   [top realized] whileTrue:[

	    halt ifFalse:[

		xOrigin value:(xOrigin value + step).

	   ].

	   Delay waitForSeconds:0.05.

	]

    ] forkAt:8.

! !

!GraphColumnView3D methodsFor:'accessing look'!

showAxis

    "show or hide the x/y/z axis

    "

    ^ showAxis

!

showAxis:aBool

    "show or hide the x/y/z axis

    "

    showAxis ~~ aBool ifTrue:[

	showAxis := aBool.

	glxView invalidate.

    ].

!

showGraph

    "show or hide columns; if the grid is enabled, only the grid will be

     shown

    "

    ^ showGraph

!

showGraph:aBool

    "show or hide columns; if the grid is enabled, only the grid will be

     shown

    "

    showGraph ~~ aBool ifTrue:[

	showGraph := aBool.

	glxView invalidate.

    ].

!

zoomZ

    "returns the current zoom Z factor

    "

    ^ zoomZ

!

zoomZ:aValue

    "set the zoom Z factor; if the argument is nil or not valid, the

     default zoom Z factor is set (1).

    "

    |zZ|

    (zZ := self floatFrom:aValue onError:[1]) <= 0 ifTrue:[

	zZ := 1

    ].

    zZ = zoomZ ifFalse:[

	zoomZ := zZ.

	glxView invalidate.

    ]

! !

!GraphColumnView3D methodsFor:'accessing mvc'!

rotateXHolder

    "returns the valueHolder, which holds the rotation X value

    "

    ^ rotateXHolder

!

rotateXHolder:aHolder

    "set the valueHolder, which holds the rotation X value

    "

    rotateXHolder == aHolder ifFalse:[

	rotateXHolder notNil ifTrue:[

	    rotateXHolder removeDependent:self

	].

	(rotateXHolder := aHolder) notNil ifTrue:[

	    rotateXHolder addDependent:self

	]

    ].

    self rotateX:(rotateXHolder value)

!

rotateYHolder

    "returns the valueHolder, which holds the rotation Y value

    "

    ^ rotateYHolder

!

rotateYHolder:aHolder

    "set the valueHolder, which holds the rotation Y value

    "

    rotateYHolder == aHolder ifFalse:[

	rotateYHolder notNil ifTrue:[

	    rotateYHolder removeDependent:self

	].

	(rotateYHolder := aHolder) notNil ifTrue:[

	    rotateYHolder addDependent:self

	]

    ].

    self rotateY:(rotateYHolder value)

!

rotateZHolder

    "returns the valueHolder, which holds the rotation Z value

    "

    ^ rotateZHolder

!

rotateZHolder:aHolder

    "set the valueHolder, which holds the rotation Z value

    "

    rotateZHolder == aHolder ifFalse:[

	rotateZHolder notNil ifTrue:[

	    rotateZHolder removeDependent:self

	].

	(rotateZHolder := aHolder) notNil ifTrue:[

	    rotateZHolder addDependent:self

	]

    ].

    self rotateZ:(rotateZHolder value)

!

zoomZHolder

    "returns the valueHolder, which holds the zoom Z factor

    "

    ^ zoomZHolder

!

zoomZHolder:aHolder

    "set the valueHolder, which holds the zoom Z factor

    "

    zoomZHolder == aHolder ifFalse:[

	zoomZHolder notNil ifTrue:[

	    zoomZHolder removeDependent:self

	].

	(zoomZHolder := aHolder) notNil ifTrue:[

	    zoomZHolder addDependent:self

	]

    ].

    self zoomZ:(zoomZHolder value)

! !

!GraphColumnView3D methodsFor:'change & update'!

update:what with:aPara from:chgObj

    "catch and handle a change notification of any object

    "

    chgObj == rotateXHolder ifTrue:[ ^ self rotateX:(rotateXHolder value) ].

    chgObj == rotateYHolder ifTrue:[ ^ self rotateY:(rotateYHolder value) ].

    chgObj == rotateZHolder ifTrue:[ ^ self rotateZ:(rotateZHolder value) ].

    chgObj == zoomZHolder   ifTrue:[ ^ self   zoomZ:(zoomZHolder value)   ].

    super update:what with:aPara from:chgObj

! !

!GraphColumnView3D methodsFor:'converting'!

rotateValueFrom:aNumber

    "converts a value to a valid rotation value

    "

    |r|

    r := self unsignedIntegerFrom:aNumber onError:[0].

  ^ r < 360 ifTrue:[r] ifFalse:[r \\ 360]

! !

!GraphColumnView3D methodsFor:'initialization'!

destroy

    "remove dependencies

    "

    super destroy.

    rotateXHolder removeDependent:self.

    rotateYHolder removeDependent:self.

    rotateZHolder removeDependent:self.

    zoomZHolder   removeDependent:self.

!

initialize

    "setup default values

    "

    super initialize.

    rotateX  := 45.

    rotateY  := 45.

    rotateZ  := 0.

    zoomZ    := 1.

    showGraph := true.

    showAxis  := false.

    glxView   := GLXGraph extent:(1.0 @ 1.0) in:self.

    glxView for:self.

! !

!GraphColumnView3D methodsFor:'protocol'!

doInvalidateGraph

    "set graph to invalidate

    "

    glxView invalidate

!

doRecomputeGraph

    "called to recompute drawable objects and to set the

     graph to invalidate

    "

    glxView deleteAllObjects.

!

updateColumns:what with:oldValue from:aColumn

    "called if the list of columns changed

	 #size      the size of the columns

	 #color:    color changed

     or a specific column:( aColumn notNil )

	 #insert:   insert a new column

	 #remove:   remove a column

	or a specific attribute derived from the

	changed column.

    "

    (what == #color or:[what == #foregroundColor]) ifTrue:[

	glxView deleteColumns.

      ^ glxView invalidate.

    ].

    (   aColumn isNil

      or:[what == #shown

      or:[what == #insert:

      or:[what == #remove:]]]

    ) ifTrue:[

	^ self doRecomputeGraph

    ].

!

updateGrid:what

    "called if the grid changed

     #color     the color of the grid changed

     #state     the visibility state of the grid changed

    "

    what == #color ifTrue:[

	glxView deleteGrid

    ].

    glxView invalidate.

!

updateReferences:what atRelX:aPhysX

    "called when the list of references changed.

	#remove:        the reference at the relative X index is removed

	#insert:        a reference is inserted at the relative X index

	#size           the list of references changed

	#state          visibility state changed

	#color          the foreground color changed

    "

    what == #state ifFalse:[

	glxView deleteReferences

    ].

    glxView invalidate.

! !

!GraphColumnView3D methodsFor:'rotation'!

rotateX

    "returns the rotation X value; range: 0 .. 360

    "

    ^ rotateX

!

rotateX:aValue

    "set the rotation X value; range: 0 .. 360

    "

    |r|

    (r := self rotateValueFrom:aValue) ~~ rotateX ifTrue:[

	rotateX := r.

	glxView invalidate.

    ]

!

rotateY

    "returns the rotation Y value; range: 0 .. 360

    "

    ^ rotateY