File: parameters.incl

package info (click to toggle)
raster3d 3.0-3-2
  • links: PTS, VCS
  • area: main
  • in suites: stretch
  • size: 4,916 kB
  • ctags: 1,557
  • sloc: fortran: 9,536; ansic: 1,060; makefile: 318; sh: 250; csh: 15
file content (78 lines) | stat: -rw-r--r-- 3,113 bytes parent folder | download | duplicates (4)
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
*     $$$$$$$$$$$$$   ARRAY SIZE LIMITS START HERE   $$$$$$$$$$$$$$
*
*     Maximum size for dynamic (allocatable) arrays.
*     The values MAXNTX * MAXNTY, MAXNPX * MAXNPY, MAXOBJ, MAXDET, 
*     MAXSDT, MAXSHR, MAXSSL, and MAXGLOWS below are initial sizes,
*     which can be expanded to this limit as needed.
      INTEGER MAXMEM
      PARAMETER (MAXMEM = 600000000)
*
*     Maximum number of tiles
      INTEGER    MAXNTX,       MAXNTY
      PARAMETER (MAXNTX = 256, MAXNTY = 256)
*
*     Number of shadow tiles
***   (One of these can fail to be enough when the aspect ratio is
***   extreme or when the model is far from being "centred" near z=0.
***   Keep them well ahead of MAXNTX, MAXNTY to be on the safe side)
***   EAM - Allow soft failure and monitor required values in NSXMAX,NSYMAX
      INTEGER    NSX,       NSY
      PARAMETER (NSX = 360, NSY = 360)
*
*     Maximum number of pixels per tile
      INTEGER    MAXNPX,      MAXNPY
      PARAMETER (MAXNPX = 32, MAXNPY = 32)
*
*     Maximum number of objects
      INTEGER    MAXOBJ
***   PARAMETER (MAXOBJ =   7500)
      PARAMETER (MAXOBJ = 200000)
*
*     Array elements available for object details 
*     Should be roughly 10*MAXOBJ
      INTEGER    MAXDET,             MAXSDT
***   PARAMETER (MAXDET =   150 000, MAXSDT =   150 000)
      PARAMETER (MAXDET = 2 000 000, MAXSDT = 2 000 000)
*
*     Array elements available for sorted lists ("short" lists)
*     Increased requirements as more objects are stacked behind each other
      INTEGER    MAXSHR,             MAXSSL
***   PARAMETER (MAXSHR =   150 000, MAXSSL =   150 000)
      PARAMETER (MAXSHR = 4 000 000, MAXSSL = 2 000 000)
*
*     Maximum number of MATERIAL definitions (object type 8)
      INTEGER    MAXMAT
      PARAMETER (MAXMAT = 250)
*
*     Maximum number of stacked transparent objects at any single pixel
*     (any further further stacking is ignored)
      INTEGER    MAXTRANSP
      PARAMETER (MAXTRANSP=25)
*
*     Maximum number of non-shadowing lights (object type 13)
      INTEGER    MAXGLOWS
      PARAMETER (MAXGLOWS = 10)
*
*     Maximum levels of file indirection in input stream
      INTEGER    MAXLEV
      PARAMETER (MAXLEV = 10)
*
*     $$$$$$$$$$$$$$$$$  END OF LIMITS  $$$$$$$$$$$$$$$$$$$$$$$
*
*     Other possibly platform-dependent stuff
      REAL  	HUGE
      PARAMETER (HUGE = 1.0e37)
*     Slop is related to the accuracy (in pixels) to which we must predict
*     shadow edges. Too low a value causes whole triangles to be spuriously
*     in shadow; too high a value may cause shadows to be missed altogether.
*     Perfect accuracy in floating point calculations would allow SLOP << 1.
      REAL       SLOP
      PARAMETER (SLOP= 0.35)
*     Edgeslop is similarly a kludge for dealing with triangles whose explicit
*     normals describe wrapping around from front-facing to back-facing.
      REAL       EDGESLOP
      PARAMETER (EDGESLOP = 0.25)
*     Ribbonslop is a kludge so that distortion due to perspective doesn't 
*     prevent us from identifying ribbon triangles
      REAL	 RIBBONSLOP
      PARAMETER (RIBBONSLOP = 0.001)