NET Infor
Texto 3D
Copie o código fonte do script abaixo:
<SCRIPT LANGUAGE="VBScript"> <!-- ' Sets initial variables and letter starting positions Sub Window_OnLoad() call SG1.Scale(0.50, 0.50, 0.50) call SG2.Scale(0.50, 0.50, 0.50) call SG3.Scale(0.50, 0.50, 0.50) call SG4.Scale(0.50, 0.50, 0.50) call SG1.Rotate(0, 0, 0) call SG2.Rotate(90, 0, 0) call SG3.Rotate(0, 90, 0) RotateAll end sub ' sets rotation speed and behavior as well as creating loop Sub RotateAll Call SG1.Rotate(4,6,2) Call SG2.Rotate(4,6,2) Call SG3.Rotate(4,6,2) Call SG4.Rotate(4,6,2) FILK = Window.SetTimeOut("Call RotateAll", 10, "VBSCript") End Sub --> </SCRIPT> <!--Object creates solid light blue E, structured graphic using text set to fill --> <OBJECT id=SG4 STYLE="POSITION:ABSOLUTE; HEIGHT:400; LEFT: 5%; TOP: 0%; WIDTH: 500; ZINDEX: 0" CLASSID = "CLSID:369303C2-D7AC-11D0-89D5-00A0C90833E6"> <PARAM NAME="Line0001" VALUE="SetLineStyle(0)"> <PARAM NAME="Line0002" VALUE="SetFillColor(64, 64, 255)"> <PARAM NAME="Line0003" VALUE="SetFillStyle(1)"> <PARAM NAME="Line0004" VALUE="SetFont('Mistral', 150, 200, 0, 0, 0)"> <PARAM NAME="Line0005" VALUE="Text('ScriptBrasil', -95, 87)"> </OBJECT> <!--Object creates green outline around solid E, structured graphic using text set to no fill --> <OBJECT id=SG1 STYLE="POSITION:ABSOLUTE; HEIGHT: 400; LEFT: 5%; TOP: 0%; WIDTH: 500; ZINDEX: 0" CLASSID = "CLSID:369303C2-D7AC-11D0-89D5-00A0C90833E6"> <PARAM NAME="Line0001" VALUE="SetLineStyle(1)"> <PARAM NAME="Line0002" VALUE="SetLineColor(0, 255, 255)"> <PARAM NAME="Line0003" VALUE="SetFillStyle(0)"> <PARAM NAME="Line0004" VALUE="SetFont('Mistral', 150, 200, 0, 0, 0)"> <PARAM NAME="Line0005" VALUE="Text('ScriptBrasil', -95, 87)"> </OBJECT> <!-- Object creates pink E that loops around --> <OBJECT id=SG3 STYLE="POSITION:ABSOLUTE; HEIGHT: 400; LEFT: 5%; TOP: 0%; WIDTH: 500; ZINDEX: 1" CLASSID = "CLSID:369303C2-D7AC-11D0-89D5-00A0C90833E6"> <PARAM NAME="Line0001" VALUE="SetLineStyle(1)"> <PARAM NAME="Line0002" VALUE="SetLineColor(255, 0, 255)"> <PARAM NAME="Line0003" VALUE="SetFillStyle(0)"> <PARAM NAME="Line0004" VALUE="SetFont('Mistral', 150, 200, 0, 0, 0)"> <PARAM NAME="Line0005" VALUE="Text('ScriptBrasil', -95, 87)"> </OBJECT> <!--Creates yellow "E" at 90 degrees to others.--> <OBJECT id=SG2 STYLE="POSITION:ABSOLUTE; HEIGHT: 400; LEFT: 5%; TOP: 0%; WIDTH: 500; ZINDEX: 2" CLASSID ="CLSID:369303C2-D7AC-11D0-89D5-00A0C90833E6"> <PARAM NAME="Line0001" VALUE="SetLineStyle(1)"> <PARAM NAME="Line0002" VALUE="SetLineColor(255, 255, 0)"> <PARAM NAME="Line0003" VALUE="SetFillStyle(0)"> <PARAM NAME="Line0004" VALUE="SetFont('Mistral', 150, 200, 0, 0, 0)"> <PARAM NAME="Line0005" VALUE="Text('ScriptBrasil', -95, 0)"> </OBJECT>