Here's the text of the script.
But allow me to take one moment to speak on Firefox's behalf, if you don't mind. Given IE's developers' utter refusal to make it follow established standards of the web, and its resulting penchant for malfunction, it's worth having an alternate browser on hand that DOES follow the standards. Conversely, it's also worth hanging onto IE for those certain pages that "require" it.
Even if all you ever need a secondary browser for is this MEL script, it's still worth having. The script changes all the time, and you might not always be able to find someone willing to repost it for you. If for no other reason than to stay up to date with it, I suggest you get a browser that is capable of reading the wiki pages properly.
Okay, Firefox pitch over.
You might need to fix a few things after copying the script and pasting it from the forum. Forums have a tendency to break up lines of text where they shouldn't. It may work better to hit the quote button, and copy the text out of the editor window than to try to copy it straight from the post.
----------------------------------------------------------------------------------
// * Copyright (c) 2007-$CurrentYear$, Linden Research, Inc.
// * $License$
global proc string llFirst(string $list[])
{
return $list[0];
}
global proc llSculptExport(string $object, string $file_name, string $file_format,
int $resolution_x, int $resolution_y,
int $maximize_scale, int $fix_orientation, int $flip_horizontal)
{
// copy it, because we're going to mutilate it. MUHAHAHAAAaa...
string $object_copy = llFirst(duplicate($object));
// disentangle from groups
string $parents[] = listRelatives("-parent", $object_copy);
if (size($parents) != 0)
$object_copy = llFirst(parent("-world", $object_copy));
// scale it to unit cube
float $bounding_min[3];
float $bounding_max[3];
$bounding_min = getAttr($object_copy + ".boundingBoxMin"
;
$bounding_max = getAttr($object_copy + ".boundingBoxMax"
;
float $scale[3];
int $i;
for ($i = 0; $i < 3; $i++)
$scale[$i] = $bounding_max[$i] - $bounding_min[$i];
float $scale_max = 0;
for ($i = 0; $i < 3; $i++)
if ($scale[$i] > $scale_max)
$scale_max = $scale[$i];
if ($maximize_scale)
{
print($object + " scale normalized - scale by " +
$scale[0] + " " + $scale[1] + " " + $scale[2] + " inside SL to get original shape\n"
;
}
else
{
for ($i = 0; $i < 3; $i++)
$scale[$i] = $scale_max;
}
scale("-relative", 1/$scale[0], 1/$scale[1], 1/$scale[2], $object_copy);
// position it in unit cube
$bounding_min = getAttr($object_copy + ".boundingBoxMin"
;
$bounding_max = getAttr($object_copy + ".boundingBoxMax"
;
float $center[3];
for ($i = 0; $i < 3; $i++)
$center[$i] = ($bounding_min[$i] + $bounding_max[$i]) / 2.0;
move("-relative", 0.5 - $center[0], 0.5 - $center[1], 0.5 - $center[2], $object_copy);
//
// nurbs surfaces can be adjusted to ensure correct orientation
//
if ($fix_orientation)
{
string $shape = llFirst(listRelatives("-shapes", $object_copy));
if ((nodeType($object_copy) == "nurbsSurface"
||
(($shape != ""
&& (nodeType($shape) == "nurbsSurface"
))
{
// try to determine the "north pole";
float $pole[] = pointOnSurface("-turnOnPercentage", 1,
"-parameterU", 0.5,
"-parameterV", 0,
$object_copy);
float $total_distance = 0;
float $v;
for ($v = 0; $v <= 1; $v += 0.1)
{
float $point[] = pointOnSurface("-turnOnPercentage", 1,
"-parameterU", $v,
"-parameterV", 0,
$object_copy);
float $distance = 0;
int $i;
for ($i = 0; $i < 3; $i++)
$distance += pow($pole[$i] - $point[$i], 2);
$distance = sqrt($distance);
$total_distance += $distance;
}
if ($total_distance > 0.1) // the points don't converge on the pole - swap
{
print("swapping UVs to orient poles for " + $object + "\n"
;
reverseSurface("-direction", 3, $object_copy);
}
// now try to ensure the normal points "out"
// note: this could easily fail - but there's no better way (i think.)
float $total_orientation = 0;
float $u;
for ($u = 0; $u <= 1; $u += 0.1)
for ($v = 0; $v <= 1; $v += 0.1)
{
float $point[] = pointOnSurface("-turnOnPercentage", 1,
"-parameterU", $u,
"-parameterV", $v,
$object_copy);
float $normal[] = pointOnSurface("-normal",
"-turnOnPercentage", 1,
"-parameterU", $u,
"-parameterV", $v,
$object_copy);
// check the orientation of the normal w/r/t the direction from center
float $center_dir[];
for ($i = 0; $i < 3; $i++)
$center_dir[$i] = $point[$i] - 0.5;
float $orientation = 0; // dot product
for ($i = 0; $i < 3; $i++)
$orientation += $center_dir[$i] * $normal[$i];
$total_orientation += $orientation;
}
if ($total_orientation > 0) // need to invert
{
print("reversing V for " + $object + "\n"
;
reverseSurface("-direction", 1, $object_copy);
}
if ($flip_horizontal)
{
// reverse U, for compatibility with surface textures
print("reversing U for " + $object + "\n"
;
reverseSurface("-direction", 0, $object_copy);
}
}
else
{
warning("cannot fix orientation on non-nurbs object: " + $object);
}
}
// create temporary shading network
string $sampler_info = createNode("samplerInfo"
;
print("exporting sculpt map for " + $object + " into file " + $file_name + "\n"
;
// bake sculpt texture
string $fileNodes[] = convertSolidTx("-fileImageName", $file_name,
"-fileFormat", $file_format,
"-force", 1,
"-resolutionX", $resolution_x,
"-resolutionY", $resolution_y,
$sampler_info + ".pointWorld",
$object_copy);
delete($fileNodes); // we don't want 'em. why do you make 'em?
delete($sampler_info);
delete($object_copy);
}
global proc int llSculptEditorCallback()
{
string $objects[] = ls("-sl"
;
if (size($objects) == 0)
{
warning("please select objects to export"
;
return 0;
}
string $filename = textFieldButtonGrp("-query", "-fileName", "llSculptEditorFilename"
;
int $resolution_x = intSliderGrp("-query", "-value", "llSculptEditorResolutionX"
;
int $resolution_y = intSliderGrp("-query", "-value", "llSculptEditorResolutionY"
;
int $fix_orientation = checkBoxGrp("-query", "-value1", "llSculptEditorFixOrientation"
;
int $flip_horizontal = checkBoxGrp("-query", "-value1", "llSculptEditorFlipHorizontal"
;
int $maximize_scale = checkBoxGrp("-query", "-value1", "llSculptEditorMaximizeScale"
;
// get filetype
string $file_type;
string $file_base;
string $file_extension;
string $tokens[];
tokenize($filename, ".", $tokens);
if (size($tokens) == 1) // no extension, default to bmp
{
$file_base = $filename;
$file_type = "bmp";
$file_extension = "bmp";
}
else
{
$file_extension = $tokens[size($tokens) - 1];
int $i;
for ($i = 0; $i < size($tokens) - 1; $i++)
{
$file_base += $tokens[$i];
if ($i != size($tokens) - 2)
$file_base += ".";
}
if ($file_extension == "bmp"
$file_type = "bmp";
else if (($file_extension == "jpg"
|| ($file_extension == "jpeg"
)
$file_type = "jpg";
else if (($file_extension == "tif"
|| ($file_extension == "tiff"
)
$file_type = "tif";
else if ($file_extension == "tga"
$file_type = "tga";
else
{
warning("unknown image type (" + $file_extension + "
. switching to bmp"
;
$file_type = "bmp";
$file_extension = "bmp";
}
}
string $object;
for ($object in $objects)
{
string $this_filename = $file_base;
if (size($objects) > 1)
$this_filename += "-" + $object;
$this_filename += "." + $file_extension;
llSculptExport($object, $this_filename, $file_type, $resolution_x, $resolution_y,
$maximize_scale, $fix_orientation, $flip_horizontal);
}
select($objects);
return 1;
}
global proc llSculptEditorSetFilenameCallback(string $filename, string $filetype)
{
textFieldButtonGrp("-edit", "-fileName", $filename, "llSculptEditorFilename"
;
}
global proc llSculptEditorBrowseCallback()
{
fileBrowser("llSculptEditorSetFilenameCallback", "Export", "image", 1);
}
global proc llSculptEditor()
{
string $commandName = "llSculptExport";
string $layout = getOptionBox();
setParent $layout;
setOptionBoxCommandName($commandName);
setUITemplate -pushTemplate DefaultTemplate;
scrollLayout;
tabLayout -tabsVisible 0 -scrollable 0;
string $parent = `columnLayout -adjustableColumn 1`;
separator -height 10 -style "none";
textFieldButtonGrp
-label "Filename"
-fileName "sculpt.bmp"
-buttonLabel "Browse"
-buttonCommand "llSculptEditorBrowseCallback"
llSculptEditorFilename;
intSliderGrp
-field on
-label "X Resolution"
-minValue 1
-maxValue 512
-fieldMinValue 1
-fieldMaxValue 4096
-value 64
llSculptEditorResolutionX;
intSliderGrp
-field on
-label "Y Resolution"
-minValue 1
-maxValue 512
-fieldMinValue 1
-fieldMaxValue 4096
-value 64
llSculptEditorResolutionY;
checkBoxGrp
-label ""
-label1 "Maximize scale"
-numberOfCheckBoxes 1
-value1 off
llSculptEditorMaximizeScale;
checkBoxGrp
-label ""
-label1 "Flip Horizontal"
-numberOfCheckBoxes 1
-value1 on
llSculptEditorFlipHorizontal;
checkBoxGrp
-label ""
-label1 "Correct orientation"
-numberOfCheckBoxes 1
-value1 on
llSculptEditorFixOrientation;
setUITemplate -popTemplate;
string $applyBtn = getOptionBoxApplyBtn();
button -edit
-label "Export"
-command "llSculptEditorCallback"
$applyBtn;
string $applyAndCloseBtn = getOptionBoxApplyAndCloseBtn();
button -edit
-label "Export and Close"
-command "llSculptEditorCallback"
$applyAndCloseBtn;
setOptionBoxTitle("Export Sculpt Texture"
;
setOptionBoxHelpTag( "ConvertFileText" );
showOptionBox();
}
//
llSculptEditor;
