Revision: 06.08.2023, https://compute.toys/view/407
fn sdSphere(p: vec3f, r: f32) -> f32 {
  return length(p) - r;
}Revision: 06.08.2023, https://compute.toys/view/407
fn sdSphere(p: vec3f, r: f32) -> f32 {
  return length(p) - r;
}| # .External2 is needed because the 'op' and 'args' | |
| # SEXPs are what need to be passed to GErecordGraphicOperation() | |
| test_point <- function() { | |
| .External2(getNativeSymbolInfo("C_testPoint", "wk")) | |
| } | |
| # Needed for Rcpp to pick up on "C_testPoint" | |
| test_point2 <- function() { | |
| .Call("C_testPoint") | 
| // Copyright 2014 Olivier Gillet. | |
| // | |
| // Author: Olivier Gillet ([email protected]) | |
| // | |
| // Permission is hereby granted, free of charge, to any person obtaining a copy | |
| // of this software and associated documentation files (the "Software"), to deal | |
| // in the Software without restriction, including without limitation the rights | |
| // to use, copy, modify, merge, publish, distribute, sublicense, and/or sell | |
| // copies of the Software, and to permit persons to whom the Software is | |
| // furnished to do so, subject to the following conditions: |