80 lines
2.4 KiB
Plaintext
80 lines
2.4 KiB
Plaintext
<%@language = "javascript" %>
|
|
<% /*
|
|
$Revision$
|
|
$Id$
|
|
|
|
File: dwf_verify_proc.asp
|
|
Description: Generate an PNG image
|
|
Parameters: dwf: bestandsnaam van de dwf
|
|
Context:
|
|
Note:
|
|
*/
|
|
DOCTYPE_Disable = 1;
|
|
%>
|
|
|
|
<!--#include file='../Shared/common.inc'-->
|
|
<!--#include file="../SlnkDWF/Slnk2IMG.inc" -->
|
|
<%
|
|
user.checkAutorisation("WEB_PRSSYS");
|
|
if (Server.ScriptTimeout<600) Server.ScriptTimeout=600;
|
|
|
|
dwfPath = getQParam("dwf");
|
|
|
|
function myContourProcessor(cHandle)
|
|
{
|
|
for (var i2=0; i2 < cHandle.ContourCount; i2++)
|
|
{
|
|
var c = cHandle.ContourItem(i2);
|
|
if (c.Key)
|
|
{
|
|
c.Label = "[u][i]" + c.Key;
|
|
c.SetColor(0x00FF00, 32);
|
|
if (c.Area)
|
|
c.SetUrl("", (c.Area / 1e6).toFixed(1) + "m²"); // Tooltip
|
|
}
|
|
else
|
|
{
|
|
c.SetUrl("", "Wel contour maar geen label gevonden");
|
|
c.SetColor(0xFF0000);
|
|
|
|
}
|
|
//if (oLabel && oOpp)
|
|
}
|
|
|
|
// cHandle.SetLabel("", "[u][i]"); // initieel originele ruimtenummer onderstreept
|
|
cHandle.SetLabelFont("Arial", 600);
|
|
|
|
ll = getQParamArray("layers", [".*"]);
|
|
for (l in ll)
|
|
ll[l] = ll[l].replace(/\|/g,"\\|");
|
|
var llt = "{"+ll.join("}|{") +"}";
|
|
cHandle.SetFilterLayers("{SLNK Labels}|{SLNK Contours}|" + llt);
|
|
//cHandle.SetFilterLayers("{A--LSE--_ruimte element}");
|
|
|
|
// Response.AddHeader("jgl", llt);
|
|
|
|
//cHandle.SetColor("", S("fg_contourColor"), S("S("fg_contourAlpha")")); // Alle herkende ruimtes initieel transparant
|
|
//cHandle.SetColor("", 0x00FF00, 32); // Alle herkende ruimtes initieel transparant
|
|
//cHandle.HighlightUnrecognized(); // Deze worden rood
|
|
//
|
|
}
|
|
function myImageProcessor(cHandle)
|
|
{
|
|
cHandle.PaperColor = 0xE0E0FF;
|
|
}
|
|
|
|
|
|
if (dwfPath)
|
|
{
|
|
var mySLNKDWF = new SLNKDWF({ dwfFile : dwfPath,
|
|
dwfProcessor : myContourProcessor,
|
|
imgProcessor : myImageProcessor,
|
|
contourLayers: getQParam("contLayer", "NOTEXIST"),
|
|
labelLayers : getQParam("labelLayer", "NOTEXIST"),
|
|
tempFolder : Server.MapPath("../../Temp"),
|
|
keepTemp: (Session("logging") & 8) == 8
|
|
});
|
|
mySLNKDWF.Process();
|
|
};
|
|
%>
|