Add zone snapshot script example

code/nel/tools/3d/plugin_max/scripts/nel_zone_snapshot.ms

@@ -0,0 +1,162 @@
+-- Use to take the snapshots of a large manually created zone
+
+from_x = 160
+size_x = 7680-320
+from_y = -25600+160
+size_y = 5120-320
+
+targetdir = "W:/database/landscape/ligo/asteroids/max"
+snapshotdir = "W:/database/landscape/ligo/asteroids/zonebitmaps"
+zonename = "anne"
+resumeonly = true
+
+cell_size = 160.0
+
+alphabet = "ABCDEFGHIJKLMNOPQRSTUVWXYZ" 
+
+fn lowercase instring =                -- beginning of function definition 
+(
+	local upper, lower, outstring       -- declare variables as local 
+	upper="ABCDEFGHIJKLMNOPQRSTUVWXYZ"  -- set variables to literals 
+	lower="abcdefghijklmnopqrstuvwxyz" 
+	outstring=copy instring
+	for i=1 to outstring.count do 
+	(  
+		j=findString upper outstring[i] 
+		if (j != undefined) do outstring[i]=lower[j] 
+	) 
+	return outstring     -- value of outstring will be returned as function result 
+)
+
+fn existFile fname = (getfiles fname).count != 0
+	
+-- Convert a coordinate in a name
+-- name = coordToName #(x, y)
+fn coordToName coord =
+(
+	up = floor(coord[1] / 26) + 1
+	down = floor(coord[1] - ((up-1) * 26)) + 1
+	return (((-coord[2] + 1) as integer) as string) + "_" + alphabet[up] + alphabet[down]
+)
+
+fn roundedCoord coord =
+(
+	return #(ceil(coord[1] / cell_size) * cell_size - (cell_size / 2), ceil(coord[2] / cell_size) * cell_size - (cell_size / 2))
+)
+
+fn coordId coord =
+(
+	coordr = (roundedCoord coord)
+	return #(((coordr[1]) / cell_size) + 0.5, ((coordr[2]) / cell_size) + 0.5)
+)
+
+from_coord = (coordId #(from_x, from_y))
+to_coord = (coordId #(from_x + size_x, from_y + size_y))
+
+print from_coord
+print to_coord
+
+print (coordToName from_coord)
+
+undo off
+(
+	for x=from_coord[1] to to_coord[1] do
+	(
+		for y=from_coord[2] to to_coord[2] do
+		(
+			ny=y+1
+			sy=y-1
+			ex=x+1
+			wx=x-1
+			zc = coordToName #(x, y)
+			zn = coordToName #(x, ny)
+			zne = coordToName #(ex, ny)
+			ze = coordToName #(ex, y)
+			zse = coordToName #(ex, sy)
+			zs = coordToName #(x, sy)
+			zsw = coordToName #(wx, sy)
+			zw = coordToName #(wx, y)
+			znw = coordToName #(wx, ny)
+			maxc = targetdir + "/zonematerial-" + zonename + "-" + (lowercase zc) + ".max"
+			csnapfile = snapshotdir + "/" + zonename + "-" + (lowercase zc) + ".tga"
+			if existFile maxc and (not resumeonly or not (existFile csnapfile)) then
+			(
+				print zc
+				resetMAXFile #noprompt
+				gc()
+				mergeMAXFile maxc #(zc)
+				ccenter = getnodebyname zc
+				maxn = targetdir + "/zonematerial-" + zonename + "-" + (lowercase zn) + ".max"
+				if existFile maxn then
+				(
+					mergeMAXFile maxn #(zn)
+					cnode = getnodebyname zn
+					cnode.position.y = cnode.position.y + 160
+					NeLAttachPatchMesh cnode ccenter
+				)
+				maxne = targetdir + "/zonematerial-" + zonename + "-" + (lowercase zne) + ".max"
+				if existFile maxne then
+				(
+					mergeMAXFile maxne #(zne)
+					cnode = getnodebyname zne
+					cnode.position.x = cnode.position.x + 160
+					cnode.position.y = cnode.position.y + 160
+					NeLAttachPatchMesh cnode ccenter
+				)
+				maxe = targetdir + "/zonematerial-" + zonename + "-" + (lowercase ze) + ".max"
+				if existFile maxe then
+				(
+					mergeMAXFile maxe #(ze)
+					cnode = getnodebyname ze
+					cnode.position.x = cnode.position.x + 160
+					NeLAttachPatchMesh cnode ccenter
+				)
+				maxse = targetdir + "/zonematerial-" + zonename + "-" + (lowercase zse) + ".max"
+				if existFile maxse then
+				(
+					mergeMAXFile maxse #(zse)
+					cnode = getnodebyname zse
+					cnode.position.x = cnode.position.x + 160
+					cnode.position.y = cnode.position.y - 160
+					NeLAttachPatchMesh cnode ccenter
+				)
+				maxs = targetdir + "/zonematerial-" + zonename + "-" + (lowercase zs) + ".max"
+				if existFile maxs then
+				(
+					mergeMAXFile maxs #(zs)
+					cnode = getnodebyname zs
+					cnode.position.y = cnode.position.y - 160
+					NeLAttachPatchMesh cnode ccenter
+				)
+				maxsw = targetdir + "/zonematerial-" + zonename + "-" + (lowercase zsw) + ".max"
+				if existFile maxsw then
+				(
+					mergeMAXFile maxsw #(zsw)
+					cnode = getnodebyname zsw
+					cnode.position.x = cnode.position.x - 160
+					cnode.position.y = cnode.position.y - 160
+					--NeLAttachPatchMesh cnode ccenter
+				)
+				maxw = targetdir + "/zonematerial-" + zonename + "-" + (lowercase zw) + ".max"
+				if existFile maxw then
+				(
+					mergeMAXFile maxw #(zw)
+					cnode = getnodebyname zw
+					cnode.position.x = cnode.position.x - 160
+					NeLAttachPatchMesh cnode ccenter
+				)
+				maxnw = targetdir + "/zonematerial-" + zonename + "-" + (lowercase znw) + ".max"
+				if existFile maxnw then
+				(
+					mergeMAXFile maxnw #(znw)
+					cnode = getnodebyname znw
+					cnode.position.x = cnode.position.x - 160
+					cnode.position.y = cnode.position.y + 160
+					NeLAttachPatchMesh cnode ccenter
+				)
+				NeLWeldPatchMesh ccenter 1.0
+				NeLLigoMakeSnapShot ccenter csnapfile 0 1 0 1 false
+			)
+		)
+	)
+)