File: C:/xampp/htdocs/PBN/deltaE/renderp.php
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Displayer Check</title>
</head>
<body class="oneColElsCtr">
<?php
$myFile = "RF39W.wrl";
//$icclab="upload/".$filename."T.ti1";
$fh = fopen($myFile, 'w') or die("can't open file");
//fwrite($fh, $p);
$viHead='#VRML V2.0 utf8
# Created by the Argyll CMS
Transform {
children [
NavigationInfo {
type "EXAMINE" # an object we examine
} # add our own light
DirectionalLight {
intensity 0.1
ambientIntensity 0.1
direction -1 -1 -1
}
DirectionalLight {
intensity 0.3
ambientIntensity 0.2
direction 1 1 1
}
Viewpoint {
position 0 0 250 # Position we view from
}
# Lab axes as boxes:
Transform { translation -0.000000 -0.000000 0.000000
children [
Shape {
geometry Box { size 2.000000 2.000000 100.000000 }
appearance Appearance { material Material { diffuseColor 0.700000 0.700000 0.700000} }
}
]
}
Transform { translation 50.000000 -0.000000 -50.000000
children [
Shape {
geometry Box { size 100.000000 2.000000 2.000000 }
appearance Appearance { material Material { diffuseColor 1.000000 0.000000 0.000000} }
}
]
}
Transform { translation -0.000000 -50.000000 -50.000000
children [
Shape {
geometry Box { size 2.000000 100.000000 2.000000 }
appearance Appearance { material Material { diffuseColor 0.000000 0.000000 1.000000} }
}
]
}
Transform { translation -50.000000 -0.000000 -50.000000
children [
Shape {
geometry Box { size 100.000000 2.000000 2.000000 }
appearance Appearance { material Material { diffuseColor 0.000000 1.000000 0.000000} }
}
]
}
Transform { translation -0.000000 50.000000 -50.000000
children [
Shape {
geometry Box { size 2.000000 100.000000 2.000000 }
appearance Appearance { material Material { diffuseColor 1.000000 1.000000 0.000000} }
}
]
}
# Axes identification:
Transform { translation -2.000000 2.000000 60.000000
children [
Shape {
geometry Text { string ["+L*"]
fontStyle FontStyle { family "SANS" style "BOLD" size 10.000000 }
}
appearance Appearance { material Material { diffuseColor 0.700000 0.700000 0.700000} }
}
]
}
Transform { translation -2.000000 2.000000 -60.000000
children [
Shape {
geometry Text { string ["0"]
fontStyle FontStyle { family "SANS" style "BOLD" size 10.000000 }
}
appearance Appearance { material Material { diffuseColor 0.700000 0.700000 0.700000} }
}
]
}
Transform { translation 105.000000 -3.000000 -50.000000
children [
Shape {
geometry Text { string ["+a*"]
fontStyle FontStyle { family "SANS" style "BOLD" size 10.000000 }
}
appearance Appearance { material Material { diffuseColor 1.000000 0.000000 0.000000} }
}
]
}
Transform { translation -5.000000 -110.000000 -50.000000
children [
Shape {
geometry Text { string ["-b*"]
fontStyle FontStyle { family "SANS" style "BOLD" size 10.000000 }
}
appearance Appearance { material Material { diffuseColor 0.000000 0.000000 1.000000} }
}
]
}
Transform { translation -115.000000 -3.000000 -50.000000
children [
Shape {
geometry Text { string ["-a*"]
fontStyle FontStyle { family "SANS" style "BOLD" size 10.000000 }
}
appearance Appearance { material Material { diffuseColor 0.000000 0.000000 1.000000} }
}
]
}
Transform { translation -5.000000 105.000000 -50.000000
children [
Shape {
geometry Text { string ["+b*"]
fontStyle FontStyle { family "SANS" style "BOLD" size 10.000000 }
}
appearance Appearance { material Material { diffuseColor 1.000000 1.000000 0.000000} }
}
]
}
Transform {
translation 0 0 0
children [
Shape {
geometry IndexedLineSet {
coord Coordinate {
point [
68 48 -3,#0R
22 -46 -26,#1B
-5 93 39,#2Y
-65 27 0,#3G
74 -3 -2,#4M
-37 -50 5,#5C
0.01 -2 45.000000,#6W
-0.01 -0.01 -34.000000,#7K
]
}
color Color {
color [
1.0 0.0 0.0, #0red
0.0 0.0 1.0, #4blue
1.0 1.0 0.0, #1Y
0.0 1.0 0.0, #2green
1.0 0.0 1.0, #5m
0.0 1.0 1.0, #3C
1.0 1.0 1.0, #6w
0.0 0.0 0.0, #7k
]
}
coordIndex [
6, 0, -1,#r
6, 1, -1,#
6, 2, -1,#
6, 3, -1,#
6, 4, -1,#
6, 5, -1,#
7, 0, -1,
7, 1, -1,
7, 2, -1,
7, 3, -1,
7, 4, -1,
7, 5, -1,
0, 2, -1,
2, 3, -1,
3, 5, -1,
5, 1, -1,
1, 4, -1,
4, 0, -1
]
}
}
]
}
Transform {
translation -0.246465 -0.201660 -50.000000
children [
Shape {
geometry Sphere { radius 2.0 }
appearance Appearance { material Material { diffuseColor 0.9 0.9 0.9 } }
}
]
}
Transform { #r
translation 68 48 -3
children [
Shape {
geometry Sphere { radius 2.0 }
appearance Appearance { material Material { diffuseColor 0.9 0.0 0.0 } }
}
]
}
Transform { #b
translation 22 -46 -26
children [
Shape {
geometry Sphere { radius 2.0 }
appearance Appearance { material Material { diffuseColor 0.0 0.0 1.0} }
}
]
}
Transform { #y
translation -5 93 39
children [
Shape {
geometry Sphere { radius 2.0 }
appearance Appearance { material Material { diffuseColor 1.0 1.0 0.0} }
}
]
}
Transform { #y
translation -65 27 0
children [
Shape {
geometry Sphere { radius 2.0 }
appearance Appearance { material Material { diffuseColor 0.0 1.0 0.0} }
}
]
}
Transform { #m
translation 74 -3 -2
children [
Shape {
geometry Sphere { radius 2.0 }
appearance Appearance { material Material { diffuseColor 1.0 0.0 1.0} }
}
]
}
Transform { #c
translation -37 -50 5
children [
Shape {
geometry Sphere { radius 2.0 }
appearance Appearance { material Material { diffuseColor 0.0 1.0 1.0} }
}
]
}
Transform { #k
translation 0 0 -34
children [
Shape {
geometry Sphere { radius 2.0 }
appearance Appearance { material Material { diffuseColor 0.0 0.0 0.0} }
}
]
}
Transform { #w
translation 0 -2 45
children [
Shape {
geometry Sphere { radius 2.0 }
appearance Appearance { material Material { diffuseColor 1.0 1.0 1.0} }
}
]
}
';
fwrite($fh, $viHead);
$deltaHead='
Transform { #delta c
translation ';
fwrite($fh, $deltaHead);
$L1=$L-50;
if ($a<0 and $b<0) {
$lab=$a." ".$b." ".$L1;
fwrite($fh, $lab);
$newP='
children [
Shape {
geometry Sphere { radius 1.0 }
appearance Appearance { material Material { diffuseColor 0.0 1.0 1.0} }
}
]
}
';
}
elseif ($a>40) {
$lab=$a." ".$b." ".$L1;
fwrite($fh, $lab);
$newP='
children [
Shape {
geometry Sphere { radius 1.0 }
appearance Appearance { material Material { diffuseColor 1.0 0.0 1.0} }
}
]
}
';
}
elseif ($a<-25 and $b>25) {
$lab=$a." ".$b." ".$L1;
fwrite($fh, $lab);
//$def76=de76(16,0.1,0.1,$L,$a,$b);
$newP='
children [
Shape {
geometry Sphere { radius 1.0 }
appearance Appearance { material Material { diffuseColor 0.0 1.0 0.0} }
}
]
}
';
}
elseif ($b>40) {
$lab=$a." ".$b." ".$L1;
fwrite($fh, $lab);
$newP='
children [
Shape {
geometry Sphere { radius 1.0 }
appearance Appearance { material Material { diffuseColor 1.0 1.0 0.0} }
}
]
}
';
}
elseif ($L<25) {
$lab=$a." ".$b." ".$L1;
fwrite($fh, $lab);
$newP='
children [
Shape {
geometry Sphere { radius 1.0 }
appearance Appearance { material Material { diffuseColor 0.0 0.0 0.0} }
}
]
}
';
}
fwrite($fh, $newP);
////////////////////////2nd point
$deltaHead2='
Transform { #delta c
translation ';
fwrite($fh, $deltaHead2);
$L2x=$L2-50;
if ($a2<0 and $b2<0) {
$lab2=$a2." ".$b2." ".$L2x;
fwrite($fh, $lab2);
$newP2='
children [
Shape {
geometry Sphere { radius 1.0 }
appearance Appearance { material Material { diffuseColor 0.0 1.0 1.0} }
}
]
}
';
}
elseif ($a2>40) {
$lab2=$a2." ".$b2." ".$L2x;
fwrite($fh, $lab2);
$newP2='
children [
Shape {
geometry Sphere { radius 1.0 }
appearance Appearance { material Material { diffuseColor 1.0 0.0 1.0} }
}
]
}
';
}
elseif ($a2<-25 and $b2>25) {
$lab2=$a2." ".$b2." ".$L2x;
fwrite($fh, $lab2);
//$def76=de76(16,0.1,0.1,$L,$a,$b);
$newP2='
children [
Shape {
geometry Sphere { radius 1.0 }
appearance Appearance { material Material { diffuseColor 0.0 1.0 0.0} }
}
]
}
';
}
elseif ($b2>40) {
$lab2=$a2." ".$b2." ".$L2x;
fwrite($fh, $lab2);
$newP2='
children [
Shape {
geometry Sphere { radius 1.0 }
appearance Appearance { material Material { diffuseColor 1.0 1.0 0.0} }
}
]
}
';
}
elseif ($L2<25) {
$lab2=$a2." ".$b2." ".$L2x;
fwrite($fh, $lab2);
//$def76=de76(16,0.1,0.1,$L,$a,$b);
$newP2='
children [
Shape {
geometry Sphere { radius 1.0 }
appearance Appearance { material Material { diffuseColor 0.0 0.0 0.0} }
}
]
}
';
}
/////////////////////////////////////////
fwrite($fh, $newP2);
///icclu -ff -ip profile.icm < inputvalues.txt > outputvalues.txt
/////////////////////////////////////////////////////////////////////////////point #1
$tFile = "TT.ti1";
$fT = fopen($tFile, 'w') or die("can't open file");
fwrite($fT, $L." ".$a." ".$b);
fclose($fT);
/////////////////////////////////////////////////////////////////////////////perceptual
exec("echo . | icclu -fb -ip -pl -s 100 Fogra39.icc <TT.ti1> pCMYK.txt");
$contents = file("pCMYK.txt");
$string = implode($contents);
//echo $contents[20];
//echo $string;
$p = ereg_replace("clip", "", $string);
$p = ereg_replace("Lut", "", $p);
$p = preg_replace(" "."/\(/", "", $p);
$p = preg_replace("/\)/", " ", $p);
$p = preg_replace(" "."/\[/", "", $p);
$p = preg_replace("/\]/", " ", $p);
$p = ereg_replace("[Lab]", "", $p);
$p = ereg_replace("->", "", $p);
$p = ereg_replace("[CMYK]", "", $p);
$p = ereg_replace(" ", " ", $p);
$p = ereg_replace(" ", " ", $p);
$p = ereg_replace(" ", " ", $p);
$p = ereg_replace("\r\n?", "\n", $p);
$p = str_replace("\n", ' ', $p);
$p = ereg_replace(" ", " ", $p);
echo $p;
sleep(1);
$dot = explode(" ", $p);
$tFile2 = "TT.ti2";
$fT2 = fopen($tFile2, 'w') or die("can't open file");
fwrite($fT2, $dot[3]. " " .$dot[4]. " " .$dot[5]. " " .$dot[6]);
fclose($fT2);
exec("echo . | icclu -ff -ia -pl -s 100 Fogra39.icc <TT.ti2> pLab.txt");
$contentP = file("pLab.txt");
$stringP = implode($contentP);
//echo $contents[20];
//echo $string;
$pp = ereg_replace("clip", "", $stringP);
$pp = ereg_replace("Lut", "", $pp);
$pp = preg_replace(" "."/\(/", "", $pp);
$pp = preg_replace("/\)/", " ", $pp);
$pp = preg_replace(" "."/\[/", "", $pp);
$pp = preg_replace("/\]/", " ", $pp);
$pp = ereg_replace("[Lab]", "", $pp);
$pp = ereg_replace("->", "", $pp);
$pp = ereg_replace("[CMYK]", "", $pp);
$pp = ereg_replace(" ", " ", $pp);
$pp = ereg_replace(" ", " ", $pp);
$pp = ereg_replace(" ", " ", $pp);
$pp = ereg_replace("\r\n?", "\n", $pp);
$pp = str_replace("\n", ' ', $pp);
$pp = ereg_replace(" ", " ", $pp);
echo $pp;
sleep(1);
$dot = explode(" ", $pp);
$tFile3 = "TT.ti3";
$fT3 = fopen($tFile3, 'w') or die("can't open file");
fwrite($fT3, $dot[4]. " " .$dot[5]. " " .$dot[6]);
fclose($fT3);
////////////////////////////////////////////vr part
$point1P='
Transform {
translation ';
fwrite($fh, $point1P);
$L1x=($dot[4])-50;
$lab=$dot[5]." ".$dot[6]." ".$L1x;
fwrite($fh, $lab);
$newP2='
children [
Shape {
geometry Sphere { radius 1.0 }
appearance Appearance { material Material { diffuseColor 1.0 1.0 1.0} }
}
]
}
';
fwrite($fh, $newP2);
////////////////////////////////////////////////////////////////////////////////absolut
exec("echo . | icclu -fb -ia -pl -s 100 Fogra39.icc <TT.ti1> aCMYK.txt");
$contents = file("aCMYK.txt");
$string = implode($contents);
//echo $contents[20];
//echo $string;
$p = ereg_replace("clip", "", $string);
$p = ereg_replace("Lut", "", $p);
$p = preg_replace(" "."/\(/", "", $p);
$p = preg_replace("/\)/", " ", $p);
$p = preg_replace(" "."/\[/", "", $p);
$p = preg_replace("/\]/", " ", $p);
$p = ereg_replace("[Lab]", "", $p);
$p = ereg_replace("->", "", $p);
$p = ereg_replace("[CMYK]", "", $p);
$p = ereg_replace(" ", " ", $p);
$p = ereg_replace(" ", " ", $p);
$p = ereg_replace(" ", " ", $p);
$p = ereg_replace("\r\n?", "\n", $p);
$p = str_replace("\n", ' ', $p);
$p = ereg_replace(" ", " ", $p);
echo $p;
sleep(1);
$dota = explode(" ", $p);
$tFile2a = "TTa.ti2";
$fT2a = fopen($tFile2a, 'w') or die("can't open file");
fwrite($fT2a, $dota[3]. " " .$dota[4]. " " .$dota[5]. " " .$dota[6]);
fclose($fT2a);
exec("echo . | icclu -ff -ia -pl -s 100 Fogra39.icc <TTa.ti2> aLab.txt");
$contenta = file("aLab.txt");
$stringa = implode($contenta);
//echo $contents[20];
//echo $string;
$pp = ereg_replace("clip", "", $stringa);
$pp = ereg_replace("Lut", "", $pp);
$pp = preg_replace(" "."/\(/", "", $pp);
$pp = preg_replace("/\)/", " ", $pp);
$pp = preg_replace(" "."/\[/", "", $pp);
$pp = preg_replace("/\]/", " ", $pp);
$pp = ereg_replace("[Lab]", "", $pp);
$pp = ereg_replace("->", "", $pp);
$pp = ereg_replace("[CMYK]", "", $pp);
$pp = ereg_replace(" ", " ", $pp);
$pp = ereg_replace(" ", " ", $pp);
$pp = ereg_replace(" ", " ", $pp);
$pp = ereg_replace("\r\n?", "\n", $pp);
$pp = str_replace("\n", ' ', $pp);
$pp = ereg_replace(" ", " ", $pp);
echo $pp;
sleep(1);
$dota = explode(" ", $pp);
$tFile3a = "TTa.ti3";
$fT3a = fopen($tFile3a, 'w') or die("can't open file");
fwrite($fT3a, $dota[4]. " " .$dota[5]. " " .$dota[6]);
fclose($fT3a);
////////////////////////////////////////////vr part
$point1P='
Transform {
translation ';
fwrite($fh, $point1P);
$L1xa=($dota[4])-50;
$laba=$dota[5]." ".$dota[6]." ".$L1xa;
fwrite($fh, $laba);
$newP2a='
children [
Shape {
geometry Sphere { radius 1.0 }
appearance Appearance { material Material { diffuseColor 1.0 1.0 1.0} }
}
]
}
';
fwrite($fh, $newP2a);
/////////////////////////////////////////////////////////end of abs
/////////////////////////////////////////////////////////////////////////////point #2
$tFile = "TTp2.ti1";
$fT = fopen($tFile, 'w') or die("can't open file");
fwrite($fT, $L2." ".$a2." ".$b2);
fclose($fT);
/////////////////////////////////////////////////////////////////////////////perceptual
exec("echo . | icclu -fb -ip -pl -s 100 Fogra39.icc <TTp2.ti1> p2CMYK.txt");
$contents = file("p2CMYK.txt");
$string = implode($contents);
//echo $contents[20];
//echo $string;
$p = ereg_replace("clip", "", $string);
$p = ereg_replace("Lut", "", $p);
$p = preg_replace(" "."/\(/", "", $p);
$p = preg_replace("/\)/", " ", $p);
$p = preg_replace(" "."/\[/", "", $p);
$p = preg_replace("/\]/", " ", $p);
$p = ereg_replace("[Lab]", "", $p);
$p = ereg_replace("->", "", $p);
$p = ereg_replace("[CMYK]", "", $p);
$p = ereg_replace(" ", " ", $p);
$p = ereg_replace(" ", " ", $p);
$p = ereg_replace(" ", " ", $p);
$p = ereg_replace("\r\n?", "\n", $p);
$p = str_replace("\n", ' ', $p);
$p = ereg_replace(" ", " ", $p);
echo $p;
//sleep(1);
$dotp2 = explode(" ", $p);
$tFile2 = "TTp2.ti2";
$fT2 = fopen($tFile2, 'w') or die("can't open file");
fwrite($fT2, $dotp2[3]. " " .$dotp2[4]. " " .$dotp2[5]. " " .$dotp2[6]);
fclose($fT2);
exec("echo . | icclu -ff -ia -pl -s 100 Fogra39.icc <TTp2.ti2> p2Lab.txt");
$contentP = file("p2Lab.txt");
$stringP = implode($contentP);
//echo $contents[20];
//echo $string;
$pp = ereg_replace("clip", "", $stringP);
$pp = ereg_replace("Lut", "", $pp);
$pp = preg_replace(" "."/\(/", "", $pp);
$pp = preg_replace("/\)/", " ", $pp);
$pp = preg_replace(" "."/\[/", "", $pp);
$pp = preg_replace("/\]/", " ", $pp);
$pp = ereg_replace("[Lab]", "", $pp);
$pp = ereg_replace("->", "", $pp);
$pp = ereg_replace("[CMYK]", "", $pp);
$pp = ereg_replace(" ", " ", $pp);
$pp = ereg_replace(" ", " ", $pp);
$pp = ereg_replace(" ", " ", $pp);
$pp = ereg_replace("\r\n?", "\n", $pp);
$pp = str_replace("\n", ' ', $pp);
$pp = ereg_replace(" ", " ", $pp);
echo $pp;
//sleep(1);
$dotp22 = explode(" ", $pp);
$tFile3 = "TTp2.ti3";
$fT3 = fopen($tFile3, 'w') or die("can't open file");
fwrite($fT3, $dotp22[4]. " " .$dotp22[5]. " " .$dotp22[6]);
fclose($fT3);
////////////////////////////////////////////vr part
$point1P='
Transform {
translation ';
fwrite($fh, $point1P);
$L1xp2=($dotp22[4])-50;
$lab=$dotp22[5]." ".$dotp22[6]." ".$L1xp2;
fwrite($fh, $lab);
$newP2='
children [
Shape {
geometry Sphere { radius 1.0 }
appearance Appearance { material Material { diffuseColor 1.0 1.0 1.0} }
}
]
}
';
fwrite($fh, $newP2);
////////////////////////////////////////////////////////////////////////////////absolut
exec("echo . | icclu -fb -ia -pl -s 100 Fogra39.icc <TTp2.ti1> a2CMYK.txt");
$contents = file("a2CMYK.txt");
$string = implode($contents);
//echo $contents[20];
//echo $string;
$p = ereg_replace("clip", "", $string);
$p = ereg_replace("Lut", "", $p);
$p = preg_replace(" "."/\(/", "", $p);
$p = preg_replace("/\)/", " ", $p);
$p = preg_replace(" "."/\[/", "", $p);
$p = preg_replace("/\]/", " ", $p);
$p = ereg_replace("[Lab]", "", $p);
$p = ereg_replace("->", "", $p);
$p = ereg_replace("[CMYK]", "", $p);
$p = ereg_replace(" ", " ", $p);
$p = ereg_replace(" ", " ", $p);
$p = ereg_replace(" ", " ", $p);
$p = ereg_replace("\r\n?", "\n", $p);
$p = str_replace("\n", ' ', $p);
$p = ereg_replace(" ", " ", $p);
echo $p;
//sleep(1);
$dota2 = explode(" ", $p);
$tFile2a = "TTa2.ti2";
$fT2a = fopen($tFile2a, 'w') or die("can't open file");
fwrite($fT2a, $dota2[3]. " " .$dota2[4]. " " .$dota2[5]. " " .$dota2[6]);
fclose($fT2a);
exec("echo . | icclu -ff -ia -pl -s 100 Fogra39.icc <TTa2.ti2> a2Lab.txt");
$contenta = file("a2Lab.txt");
$stringa = implode($contenta);
//echo $contents[20];
//echo $string;
$pp = ereg_replace("clip", "", $stringa);
$pp = ereg_replace("Lut", "", $pp);
$pp = preg_replace(" "."/\(/", "", $pp);
$pp = preg_replace("/\)/", " ", $pp);
$pp = preg_replace(" "."/\[/", "", $pp);
$pp = preg_replace("/\]/", " ", $pp);
$pp = ereg_replace("[Lab]", "", $pp);
$pp = ereg_replace("->", "", $pp);
$pp = ereg_replace("[CMYK]", "", $pp);
$pp = ereg_replace(" ", " ", $pp);
$pp = ereg_replace(" ", " ", $pp);
$pp = ereg_replace(" ", " ", $pp);
$pp = ereg_replace("\r\n?", "\n", $pp);
$pp = str_replace("\n", ' ', $pp);
$pp = ereg_replace(" ", " ", $pp);
echo $pp;
sleep(1);
$dota22 = explode(" ", $pp);
$tFile3a = "TTa2.ti3";
$fT3a = fopen($tFile3a, 'w') or die("can't open file");
fwrite($fT3a, $dota22[4]. " " .$dota22[5]. " " .$dota22[6]);
fclose($fT3a);
////////////////////////////////////////////vr part
$point1P='
Transform {
translation ';
fwrite($fh, $point1P);
$L1xa22=($dota22[4])-50;
$laba=$dota22[5]." ".$dota22[6]." ".$L1xa22;
fwrite($fh, $laba);
$newP2a='
children [
Shape {
geometry Sphere { radius 1.0 }
appearance Appearance { material Material { diffuseColor 1.0 1.0 1.0} }
}
]
}
';
fwrite($fh, $newP2a);
/////////////////////////////////////////////////////////end of abs point2
////////////////point 2 end
$lineset1=' Transform {
translation 0 0 0
children [
Shape {
geometry IndexedLineSet {
coord Coordinate {
point [
'.$a.' '.$b.' '.$L1.',#0R
'.$dot[5].' '.$dot[6].' '.$L1x.',#1B
'.$dota[5].' '.$dota[6].' '.$L1xa.',#1B
]
}
color Color {
color [
1.0 0.0 0.0, #red
0.0 1.0 0.0, #green
0.0 0.0 1.0, #blue
]
}
coordIndex [
0, 1, -1,
0, 2, -1,
]
}
}
]
}';
fwrite($fh, $lineset1);
$lineset2=' Transform {
translation 0 0 0
children [
Shape {
geometry IndexedLineSet {
coord Coordinate {
point [
'.$a2.' '.$b2.' '.$L2x.',#0R
'.$dotp22[5].' '.$dotp22[6].' '.$L1xp2.',#1B
'.$dota22[5].' '.$dota22[6].' '.$L1xa22.',#1B
]
}
color Color {
color [
1.0 0.0 0.0, #red
0.0 1.0 0.0, #green
0.0 0.0 1.0, #blue
]
}
coordIndex [
0, 1, -1,
0, 2, -1,
]
}
}
]
}';
fwrite($fh, $lineset2);
$deltaEnd='
] # end of children for world
}
';
fwrite($fh, $deltaEnd);
//fwrite($fh, $deltaEnd);
// fwrite($fh, $de76);
fclose($fh);
//sleep(2);
//////////////////////////////
function de76($l1,$a1,$b1,$l2,$a2,$b2) {
$d76=sqrt(pow(($l1-$l2),2)+ pow(($a1-$a2),2)+pow(($b1-$b2),2));
return round($d76,2);
}
?>
<SCRIPT LANGUAGE="JavaScript">
<!-- http://www.culturemark.com/redirectURL/
window.location="http://127.0.0.1/deltaE/RF39W.wrl";
// -->
</script>
</table>
<tr>
<br />
<td align="center"><font size="-2"> © <a href="mailto:[email protected]">Fred Kuo</a>, 2010. All rights reserved.<br><a href="http://www.fredkuo.idv.tw/wordpress/?p=1025">Read more.</a><br>
</td>
</tr>
</body>
</html>