rayvertex/R/lights.R at main · tylermorganwall/rayvertex · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
#'@title Point light
#'
#'@description The falloff of the point light intensity is given by the following equation (referenc:
#'
#'Intensity = intensity / (constant + falloff * distance + falloff_quad * (distance * distance));
#'
#'@param position  A two-dimensional matrix, where each entry in the matrix is the elevation at that point. All points are assumed to be evenly spaced.
#'@param color Default `400`. Width of the rendered image.
#'@param intensity Default `1`. Intensity of the point light.
#'@param constant Default `1`. Constant term. See description for details.
#'@param falloff Default `1`. Linear falloff term. See description for details.
#'@param falloff_quad Default `1`. Quadratic falloff term. See description for details.

#'@return A matrix representing the light information.
#'@export
#'@examples
#'if(run_documentation()) {
#'#Add point lights and vary the intensity
#'lights_int = point_light(position=c(100,100,400), color="white", intensity=0.125,
#'                       falloff_quad = 0.0, constant = 0.0002, falloff = 0.005) |>
#'  add_light(point_light(position=c(100,455,400), color="white", intensity=0.25,
#'                        falloff_quad = 0.0, constant = 0.0002, falloff = 0.005)) |>
#'  add_light(point_light(position=c(455,100,400), color="white", intensity=0.5,
#'                        falloff_quad = 0.0, constant = 0.0002, falloff = 0.005)) |>
#'  add_light(point_light(position=c(455,455,400), color="white", intensity=1,
#'                        falloff_quad = 0.0, constant = 0.0002, falloff = 0.005))
#'
#'generate_cornell_mesh(light=FALSE) |>
#'  rasterize_scene(light_info = lights_int)
#'
#'#Add point lights and vary the color
#'lights_c = point_light(position=c(100,100,500), color="red",
#'                       falloff_quad = 0.0, constant = 0.0002, falloff = 0.005) |>
#'  add_light(point_light(position=c(100,455,500), color="blue",
#'                        falloff_quad = 0.0, constant = 0.0002, falloff = 0.005)) |>
#'  add_light(point_light(position=c(455,100,500), color="purple",
#'                        falloff_quad = 0.0, constant = 0.0002, falloff = 0.005)) |>
#'  add_light(point_light(position=c(455,455,500), color="yellow",
#'                        falloff_quad = 0.0, constant = 0.0002, falloff = 0.005))
#'
#'generate_cornell_mesh(light=FALSE) |>
#'  rasterize_scene(light_info = lights_c)
#'
#'#Add point lights and vary the falloff term
#'lights_fo = point_light(position=c(100,100,500), color="white",
#'                       falloff_quad = 0.0, constant = 0.0002, falloff = 0.005) |>
#'  add_light(point_light(position=c(100,455,500), color="white",
#'                        falloff_quad = 0.0, constant = 0.0002, falloff = 0.01)) |>
#'  add_light(point_light(position=c(455,100,500), color="white",
#'                        falloff_quad = 0.0, constant = 0.0002, falloff = 0.02)) |>
#'  add_light(point_light(position=c(455,455,500), color="white",
#'                        falloff_quad = 0.0, constant = 0.0002, falloff = 0.04))
#'
#'generate_cornell_mesh(light=FALSE) |>
#'  rasterize_scene(light_info = lights_fo)
#'
#'#Add point lights and vary the quadradic falloff term
#'lights_quad = point_light(position=c(100,100,500), color="white",
#'                       falloff_quad = 0.0001, constant = 0.0002, falloff = 0.005) |>
#'  add_light(point_light(position=c(100,455,500), color="white",
#'                        falloff_quad = 0.0002, constant = 0.0002, falloff = 0.005)) |>
#'  add_light(point_light(position=c(455,100,500), color="white",
#'                        falloff_quad = 0.0004, constant = 0.0002, falloff = 0.005)) |>
#'  add_light(point_light(position=c(455,455,500), color="white",
#'                        falloff_quad = 0.0008, constant = 0.0002, falloff = 0.005))
#'
#'generate_cornell_mesh(light=FALSE) |>
#'  rasterize_scene(light_info = lights_quad)
#'}
point_light = function(position = c(0,0,0), color = "white",  intensity=1,
                       constant = 1, falloff = 1, falloff_quad = 1) {
  color = convert_color(color)
  returnmat = matrix(c(position, color, constant, falloff,falloff_quad,intensity), nrow=1,ncol=10)
  colnames(returnmat) = c("x","y","z","r","g","b","constant","falloff","falloff_quad","intensity")
  returnmat
}

#'@title Generate Directional Lights
#'
#'@param direction Default `c(0,1,0)`. Direction of the light.
#'@param color Default `white`. COlor of the light.
#'@param intensity Default `1`. Intensity of the light.
#'
#'@return A matrix representing the light information.
#'@export
#'@examples
#'if(run_documentation()) {
#'#Add a light to scene (manually specify the light automatically added to the Cornell Box
#'lights = point_light(position=c(555/2,450,555/2),
#'                     falloff_quad = 0.0, constant = 0.0002, falloff = 0.005)
#'generate_cornell_mesh(light=FALSE) |>
#'  rasterize_scene(light_info = lights)
#'
#'#Add a directional light
#'lights_d = add_light(lights, directional_light(direction=c(1,1.5,-1)))
#'
#'generate_cornell_mesh(light=FALSE) |>
#'  rasterize_scene(light_info = lights_d)
#'
#'#Change the intensity and color
#'lights_d = add_light(lights,
#'                     directional_light(direction=c(1,1.5,-1),color="orange", intensity=0.5))
#'
#'generate_cornell_mesh(light=FALSE) |>
#'  rasterize_scene(light_info = lights_d)
#'}
directional_light = function(direction = c(0,1,0), color = "white", intensity=1) {
  color = convert_color(color)
  returnmat = matrix(c(direction, color, 0, 0, 0, intensity), nrow=1,ncol=10)
  colnames(returnmat) = c("x","y","z","r","g","b","constant","falloff","falloff_quad", "intensity")
  returnmat
}

#'@title Add light
#'
#'@param lights Current light scene.
#'@param light New light to add.
#'
#'@return A matrix representing the light information.
#'@export
#'@examples
#'if(run_documentation()) {
#'#Add a light to scene (manually specify the light automatically added to the Cornell Box
#'lights = point_light(position=c(555/2,450,555/2),
#'                     falloff_quad = 0.0, constant = 0.0002, falloff = 0.005)
#'generate_cornell_mesh(light=FALSE) |>
#'  rasterize_scene(light_info = lights)
#'
#'#Add directional lights and a point light
#'lights_d = add_light(lights, directional_light(direction=c(1,1.5,-1), intensity=0.2)) |>
#'  add_light(directional_light(direction=c(-1,1.5,-1),color="red", intensity=0.2)) |>
#'  add_light(point_light(position=c(555/2,50,555/2), color="blue", intensity=0.3,
#'                        falloff_quad = 0.0, constant = 0.0002, falloff = 0.005))
#'
#'generate_cornell_mesh(light=FALSE) |>
#'  rasterize_scene(light_info = lights_d)
#'}
add_light = function(lights, light) {
  rbind(lights,light)
}