mirror of
https://github.com/CHOMPStation2/CHOMPStation2.git
synced 2025-12-13 11:43:31 +00:00
9007aedf15
opened up at least 100 individual bugs where people kept setting loc and expecting light updates to catch it.
89 lines
2.6 KiB
Plaintext
89 lines
2.6 KiB
Plaintext
/*
|
|
|
|
Overview:
|
|
This object functions similarly to /tg/'s /light. It is responsible for calculating what turfs are lit by it.
|
|
|
|
Class Vars:
|
|
radius - Set by atom/SetLight(). This stores how far out turfs will be lit up.
|
|
intensity - Set by atom/SetLight(). Stores the amount of light generated at the center.
|
|
lit_turfs - A list of turfs being lit by this light.
|
|
atom - The atom this light is attached to.
|
|
|
|
Class Procs:
|
|
Reset()
|
|
This is called whenever the light changes, or the underlying atom changes position.
|
|
|
|
Off()
|
|
A quick way to turn off a light. Removes the light from all turfs in lit_turfs.
|
|
|
|
CalculateBrightness(turf/T)
|
|
Returns the brightness that should be displayed by this light on a specific turf.
|
|
|
|
*/
|
|
|
|
|
|
light/var/radius = 0
|
|
light/var/intensity = 0
|
|
light/var/ambient_extension = 3
|
|
light/var/list/lit_turfs = list()
|
|
light/var/atom/atom
|
|
|
|
light/New(atom/atom, radius, ambience=3)
|
|
ASSERT(atom)
|
|
|
|
if(istype(atom))
|
|
src.atom = atom
|
|
else
|
|
src.intensity = atom
|
|
src.radius = radius
|
|
src.ambient_extension = ambience
|
|
|
|
light/proc/Reset()
|
|
//if(atom.lights_verbose) world << "light.Reset()"
|
|
Off()
|
|
if(intensity > 0)
|
|
//if(atom.lights_verbose) world << "Restoring light."
|
|
var/turf/loc = atom
|
|
for(var/turf/T in view(loc,radius+ambient_extension))
|
|
if(!T.is_outside)
|
|
var/brightness = CalculateBrightness(T, loc)
|
|
T.AddLight(src, brightness)
|
|
lit_turfs.Add(T)
|
|
//if(atom.lights_verbose) world << "[lit_turfs.len] turfs added."
|
|
|
|
light/proc/Off()
|
|
//if(atom.lights_verbose) world << "light.Off()"
|
|
for(var/turf/T in lit_turfs)
|
|
T.RemoveLight(src)
|
|
lit_turfs.Cut()
|
|
|
|
light/proc/Flash(t)
|
|
Reset()
|
|
spawn(t)
|
|
Off()
|
|
|
|
light/proc/CalculateBrightness(turf/T, turf/loc)
|
|
ASSERT(T)
|
|
var/square = DISTSQ3(loc.x-T.x,loc.y-T.y,loc.z-T.z)
|
|
if(square > (radius+ambient_extension)*(radius+ambient_extension)) return 0
|
|
//+2 offset gives an ambient light effect.
|
|
|
|
var/value = ((radius)/(2*FSQRT(square) + 1)) * intensity - 0.48
|
|
/*
|
|
lightRadius
|
|
---------------- * lightValue - 0.48
|
|
2 * distance + 1
|
|
|
|
The light decreases by twice the distance, starting from the radius.
|
|
The + 1 causes the graph to shift to the left one unit so that division by zero is prevented on the source tile.
|
|
|
|
This is then multiplied by the light value to give the final result.
|
|
The -0.48 offset causes the value to be near zero at the radius.
|
|
|
|
This gives a result which is likely close to the inverse-square law in two dimensions instead of three.
|
|
*/
|
|
|
|
|
|
return max(min( value , intensity), 0) //Ensure the value never goes above the maximum light value or below zero.
|
|
|
|
//return cos(90 * sqrt(square) / max(1,lightRadius)) * lightValue |