vec3 <- new_vector3(
x = 1:9,
y = 9:1,
z = rep(c(1,2,3), 3)
)
vec3[]
# transform
m <- new_matrix4()
# rotation xy plane by 30 degrees
m$make_rotation_z(pi / 6)
vec3$apply_matrix4(m)
vec3[]
as_vector3(c(1,2,3))
Run the code above in your browser using DataLab