Pilz.NET/Pilz
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

d

Browse Source
This commit is contained in:
Pascal
2020-01-03 14:32:45 +01:00
parent f4bf6c4066
commit a60bb85aa7
2 changed files with 11 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
Pilz.Simple3DFileParser/FileParser/Obj.vb
View File

@@ -301,9 +301,9 @@ Namespace ObjModule
Case line.ToLower.StartsWith("kd ")
Dim splitColor() As String = line.Substring(3).Split(" "c)
Dim col As Color = Color.FromArgb(
Convert.ToSingle(Math.Round(255 * splitColor(0))),
Convert.ToSingle(Math.Round(255 * splitColor(1))),
Convert.ToSingle(Math.Round(255 * splitColor(2))))
Convert.ToSingle(Math.Round(CInt(splitColor(0)))),
Convert.ToSingle(Math.Round(CInt(splitColor(1)))),
Convert.ToSingle(Math.Round(CInt(splitColor(2)))))
curMat.Color = col
Case line.ToLower.StartsWith("d ")