GridToSource/GridToSource.glf at master · pointwise/GridToSource · GitHub

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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
#############################################################################
#
# (C) 2021 Cadence Design Systems, Inc. All rights reserved worldwide.
#
# This script is not supported by Cadence Design Systems, Inc.
# It is provided freely for demonstration purposes only.
# SEE THE WARRANTY DISCLAIMER AT THE BOTTOM OF THIS FILE.
#
#############################################################################

#######################################################################
##
## Construct a source point cloud for each selected grid entity.
##
## Allows you to choose a grid entity and construct a source point
## cloud using the grid point locations.
##
## 1. Optional: Select one or more domains or blocks (initialized or empty)
## 2. Initiate script
## 3. End result is a source point cloud for each selected domain or block
##    whose point locations correspond to the grid point locations.
##
#######################################################################

package require PWI_Glyph 3

# Global spacing and decay for all new source point clouds
set ::spacing 0.1
set ::decay   0.5

## Procedures
proc getOrSelectEntities { entsVar } {
  # reflection of caller array variable
  upvar ents $entsVar

  # Define the selection mask (any domain or block)
  set selectionMask [pw::Display createSelectionMask -requireBlock {} -requireDomain {}]

  # incoming selection
  pw::Display getSelectedEntities -selectionmask $selectionMask ents

  if { 0 == [llength $ents(Domains)] && 0 == [llength $ents(Blocks)] } {
    # interactive selection
    pw::Display selectEntities -selectionmask $selectionMask -description \
      "Select domains and/or blocks for source creation" ents
  }
}

# Create a source point cloud for each input grid entity
proc createSourcePointCloud { entsVar } {
  # reflection of caller array variable
  upvar ents $entsVar

  # for each grid entity type
  foreach n [array names ents] {
    set gridEnts $ents($n)
    set sourcePts [list]
    # for each grid entity
    foreach ent $ents($n) {
      # create the point cloud
      set cloud [pw::SourcePointCloud create]
      $cloud setName "[$ent getName]_pointCloud"
      # add the source points
      set srcPts [list]
      set numPts [$ent getPointCount]
      for {set i 1} {$i <= $numPts} {incr i} {
        lappend srcPts [list [$ent getXYZ $i] $::spacing $::decay]
      }
      $cloud addPoints $srcPts
    }
  }
}

## Main

# Select the domain(s) and/or block(s) and create source point cloud
array set ents [list Domains {} Blocks {}]
getOrSelectEntities ents

# Create source point cloud for each selected entity
createSourcePointCloud ents

#############################################################################
#
# This file is licensed under the Cadence Public License Version 1.0 (the
# "License"), a copy of which is found in the included file named "LICENSE",
# and is distributed "AS IS." TO THE MAXIMUM EXTENT PERMITTED BY APPLICABLE
# LAW, CADENCE DISCLAIMS ALL WARRANTIES AND IN NO EVENT SHALL BE LIABLE TO
# ANY PARTY FOR ANY DAMAGES ARISING OUT OF OR RELATING TO USE OF THIS FILE.
# Please see the License for the full text of applicable terms.
#
#############################################################################