From 68f034ab8ab0c3b06c22b8576f72bdaf9e2c4adb Mon Sep 17 00:00:00 2001 From: Pilzinsel64 Date: Fri, 3 Jan 2020 15:09:55 +0100 Subject: [PATCH] e --- Pilz.Simple3DFileParser/FileParser/Obj.vb | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/Pilz.Simple3DFileParser/FileParser/Obj.vb b/Pilz.Simple3DFileParser/FileParser/Obj.vb index 7a14178..7b9de0e 100644 --- a/Pilz.Simple3DFileParser/FileParser/Obj.vb +++ b/Pilz.Simple3DFileParser/FileParser/Obj.vb @@ -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(CInt(splitColor(0)))), - Convert.ToSingle(Math.Round(CInt(splitColor(1)))), - Convert.ToSingle(Math.Round(CInt(splitColor(2))))) + Convert.ToSingle(Math.Round(255 * splitColor(0))), + Convert.ToSingle(Math.Round(255 * splitColor(1))), + Convert.ToSingle(Math.Round(255 * splitColor(2)))) curMat.Color = col Case line.ToLower.StartsWith("d ") @@ -365,7 +365,7 @@ Namespace ObjModule sw.WriteLine($"newmtl {name}") If mat.Color IsNot Nothing Then - sw.WriteLine($"kd {mat.Color.Value.R.ToString.Replace(",", ".")} {mat.Color.Value.G.ToString.Replace(",", ".")} {mat.Color.Value.B.ToString.Replace(",", ".")}") + sw.WriteLine($"kd {(mat.Color.Value.R / 255).ToString.Replace(",", ".")} {(mat.Color.Value.G / 255).ToString.Replace(",", ".")} {(mat.Color.Value.B / 255).ToString.Replace(",", ".")}") End If If mat.Opacity IsNot Nothing Then