1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
| Quintiq file version 2.0
| #parent: #root
| Method ShowAtGridPoints (
| Units units
| )
| {
| Description: 'Show objects at respective grid point'
| TextBody:
| [*
| traverse( units, Elements.UnitNode, unitnode, unitnode.ViewBase() = this )
| {
| x := unitnode.X()
| y := unitnode.Y();
|
| gridx := 0;
| gridy := 0;
|
| if( not x.IsFinite() )
| {
| x := 0;
| }
| if( not y.IsFinite() )
| {
| y := 0;
| }
|
| Node::NearestGridPoint( x, y, gridx, gridy, this.GridPointDistance() );
|
| unitnode.MoveToGridPoint( gridx, gridy );
|
| unitnode.IsUserVisible( true );
|
| }
| *]
| }
|
|
