From 3b7edb342ea896aee750370fb93ac10675dda154 Mon Sep 17 00:00:00 2001
From: Martin <mautner@vrvis.at>
Date: Mon, 17 Oct 2022 11:41:02 +0200
Subject: [PATCH] Fix issue with constant swizzles

Fixes: https://github.com/krauthaufen/FShade/issues/29
---
 src/Libs/FShade.Core/Shader.fs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Libs/FShade.Core/Shader.fs b/src/Libs/FShade.Core/Shader.fs
index 10d6b11..e9c0edf 100644
--- a/src/Libs/FShade.Core/Shader.fs
+++ b/src/Libs/FShade.Core/Shader.fs
@@ -946,7 +946,7 @@ module Preprocessor =
         | _ -> None
         
     let private zeroOneVecProperty =
-        System.Text.RegularExpressions.Regex @"([XYZW]*[ONIP])+"
+        System.Text.RegularExpressions.Regex @"^([XYZW]*[OINP]+[XYZW]*)+$"
 
     let rec preprocessNormalS (e : Expr) : Preprocess<Expr> =
         state {