GN star

@Kopernicus:FOR[SigmaWantsTestStars]
{
	Body
	{
		name = M7V
		Template
		{
			name = Sun
		}
		Orbit
		{
			referenceBody = Sun
			semiMajorAxis = 2e13
			meanAnomalyAtEpoch = 3
		}
		Properties
		{
			radius = 6.957e7
			@radius *= 0.12
			mass = 1.988435e28
			@mass *= 0.09
			SurfaceTemperatureK = 2900
		}
		!COLOR,* {}
		COLOR
		{
			Temperature = #$../Properties/SurfaceTemperatureK$
			RED = 0
			GREEN = 0
			BLUE = 0
		}
		@COLOR
		{
			// Set Temperature = Temperature \ 100
			@Temperature /= 100
			@Temperature = #$Temperature$.0
			@Temperature = #$Temperature[0,.]$
		}
		// Calculate Red:
		// If Temperature <= 66 Then
		@COLOR:HAS[~Temperature[>66]]
		{
			// Red = 255
			@RED = 1
		}
		// Else
		@COLOR:HAS[#Temperature[>66]]
		{
			// Red = Temperature - 60
			@RED = #$Temperature$
			@RED -= 60
			// Red = 329.698727446 * (Red ^ -0.1332047592)
			@RED != -0.1332047592
			@RED *= 329.698727446
			@RED /= 255
		}
		// If Red < 0 Then Red = 0
		@COLOR:HAS[#RED[<0]]
		{
			@RED = 0
		}
		// If Red > 255 Then Red = 255
		@COLOR:HAS[#RED[>1]]
		{
			@RED = 1
		}
		// Calculate Green:
		// If Temperature <= 66 Then
		@COLOR:HAS[~Temperature[>66]]
		{
			// Green = Temperature
			// Green = 99.4708025861 * Ln(Green) - 161.1195681661
			// APPROX TO Green = -0.0431*Temperature^2 + 6.9703*Temperature - 0.206
			// REWRITE AS Green = Temperature * (-0.0431*Temperature + 6.9703) - 0.206
			@GREEN = #$Temperature$
			@GREEN *= -0.0431
			@GREEN += 6.9703
			@GREEN *= #$Temperature$
			@GREEN -= 0.206
			@GREEN /= 255
		}
		// Else
		@COLOR:HAS[#Temperature[>66]]
		{
			// Green = Temperature - 60
			@GREEN = #$Temperature$
			@GREEN -= 60
			// Green = 288.1221695283 * (Green ^ -0.0755148492)
			@GREEN != -0.0755148492
			@GREEN *= 288.1221695283
			@GREEN /= 255
		}
		// If Green < 0 Then Green = 0
		@COLOR:HAS[#GREEN[<0]]
		{
			@GREEN = 0
		}
		// If Green > 255 Then Green = 255
		@COLOR:HAS[#GREEN[>1]]
		{
			@GREEN = 1
		}
		// Calculate Blue:
		// If Temperature >= 66 Then
		@COLOR:HAS[~Temperature[<66]]
		{
			// Blue = 255
			@BLUE = 1
		}
		// If Temperature <= 19 Then
		@COLOR:HAS[~Temperature[>19]]
		{
			// Blue = 0
			@BLUE = 0
		}
		@COLOR:HAS[#Temperature[<66],#Temperature[>19]]
		{
			// Blue = Temperature - 10
			@Temperature -=10
			// Blue = 138.5177312231 * Ln(Blue) - 305.0447927307
			// APPROX TO Blue = -0.0784*Temperature^2 + 10.274*Temperature - 73.434
			// REWRITE AS    Blue = Temperature*(-0.0784*Temperature+10.274)-73.434
			@BLUE = #$Temperature$
			@BLUE *= -0.0784
			@BLUE += 10.274
			@BLUE *= #$Temperature$
			@BLUE -= 73.434
			@BLUE /= 255
			// RESTORE Temperature
			@Temperature += 10
		}
		// If Blue < 0 Then Blue = 0
		@COLOR:HAS[#BLUE[<0]]
		{
			@BLUE = 0
		}
		// If Blue > 255 Then Blue = 255
		@COLOR:HAS[#BLUE[>1]]
		{
			@BLUE = 1
		}
		// APPLY CHANGES
		%Orbit
		{
			%color = #$../COLOR/RED$,$../COLOR/GREEN$,$../COLOR/BLUE$
		}
		%ScaledVersion
		{
			%Material
			{
				%emitColor0 = #$../../COLOR/RED$,$../../COLOR/GREEN$,$../../COLOR/BLUE$
				%emitColor1 = #$emitColor0$
				@emitColor1[*] *= 0.9
				%rimColor = #$../../COLOR/RED$,$../../COLOR/GREEN$,$../../COLOR/BLUE$
				@rimColor[*] *= 1.7
				rimBlend = 0.8
				rimPower = 1
				%sunspotColor = #$../../COLOR/RED$,$../../COLOR/GREEN$,$../../COLOR/BLUE$
				@sunspotColor[*] *= 0.01
			}
			Light
			{
				%IVASunColor = #$../../COLOR/RED$,$../../COLOR/GREEN$,$../../COLOR/BLUE$
				%scaledSunlightColor = #$../../COLOR/RED$,$../../COLOR/GREEN$,$../../COLOR/BLUE$
				%sunlightColor = #$../../COLOR/RED$,$../../COLOR/GREEN$,$../../COLOR/BLUE$
				%sunAU = #$../../Properties/radius$
				%sunLensFlareColor = #$../../COLOR/RED$,$../../COLOR/GREEN$,$../../COLOR/BLUE$
				%lensFlareColorMult = #$../../Properties/SurfaceTemperatureK$
				!brightnessCurve {}
				brightnessCurve
				{
					key = 0.0000005 0 0 0
					key = 0.00001 0.007 0 0
					key = 0.0001 0.1 0 0
					key = 0.001 0.3 0 0
					key = 0.01 0.4 0 0
					key = 0.1 4 0 0
					key = 0.2 6 0 0
					key = 0.3 10 0 0
				}
			}
			@Light:HAS[#lensFlareColorMult[<3717]]
			{
				@lensFlareColorMult = 0
			}
			@Light:HAS[#lensFlareColorMult[>3717],#lensFlareColorMult[<5772]]
			{
				@lensFlareColorMult *= 0.000243072435585805
				@lensFlareColorMult -= 0.403014098201264
			}
			@Light:HAS[#lensFlareColorMult[>5771]]
			{
				@lensFlareColorMult = 1
			}
			@Light
			{
				@sunLensFlareColor[*] = #$lensFlareColorMult$
			}
			%Coronas
			{
				%Corona
				{
					%Material
					{
						texture = Flares/NoCorona
					}
				}
				%Corona
				{
					%Material
					{
						texture = Flares/NoCorona
					}
				}
			}
		}
	}
}