VuoPoint4d.c

Go to the documentation of this file.

 
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include "type.h"
 
#ifdef VUO_COMPILER
VuoModuleMetadata({
    "title": "4D Point",
    "description": "A floating-point 4-dimensional Cartesian spatial location.",
    "keywords": [ "coordinate" ],
    "version": "1.0.0",
    "dependencies": [
        "VuoList_VuoPoint4d",
        "VuoReal",
        "VuoText",
    ],
});
#endif
 
VuoPoint4d VuoPoint4d_makeFromJson(json_object * js)
{
    VuoPoint4d point = {0,0,0,0};
 
    json_type t = json_object_get_type(js);
    if (t == json_type_string)
    {
        const char *s = json_object_get_string(js);
        float x, y, z, w;
        sscanf(s, "%20g, %20g, %20g, %20g", &x, &y, &z, &w);
        return (VuoPoint4d){x, y, z, w};
    }
    else if (t == json_type_array)
    {
        int len = json_object_array_length(js);
        if (len >= 1)
            point.x = json_object_get_double(json_object_array_get_idx(js, 0));
        if (len >= 2)
            point.y = json_object_get_double(json_object_array_get_idx(js, 1));
        if (len >= 3)
            point.z = json_object_get_double(json_object_array_get_idx(js, 2));
        if (len >= 4)
            point.w = json_object_get_double(json_object_array_get_idx(js, 3));
        return point;
    }
 
    json_object *o = NULL;
 
    if (json_object_object_get_ex(js, "x", &o))
        point.x = VuoReal_makeFromJson(o);
    else if (json_object_object_get_ex(js, "X", &o))
        point.x = VuoReal_makeFromJson(o);
 
    if (json_object_object_get_ex(js, "y", &o))
        point.y = VuoReal_makeFromJson(o);
    else if (json_object_object_get_ex(js, "Y", &o))
        point.y = VuoReal_makeFromJson(o);
 
    if (json_object_object_get_ex(js, "z", &o))
        point.z = VuoReal_makeFromJson(o);
    else if (json_object_object_get_ex(js, "Z", &o))
        point.z = VuoReal_makeFromJson(o);
 
    if (json_object_object_get_ex(js, "w", &o))
        point.w = VuoReal_makeFromJson(o);
    else if (json_object_object_get_ex(js, "W", &o))
        point.w = VuoReal_makeFromJson(o);
 
    return point;
}
 
json_object * VuoPoint4d_getJson(const VuoPoint4d value)
{
    json_object *js = json_object_new_object();
 
    json_object *xObject = VuoReal_getJson(value.x);
    json_object_object_add(js, "x", xObject);
 
    json_object *yObject = VuoReal_getJson(value.y);
    json_object_object_add(js, "y", yObject);
 
    json_object *zObject = VuoReal_getJson(value.z);
    json_object_object_add(js, "z", zObject);
 
    json_object *wObject = VuoReal_getJson(value.w);
    json_object_object_add(js, "w", wObject);
 
    return js;
}
 
char * VuoPoint4d_getSummary(const VuoPoint4d value)
{
    return VuoText_format("%g, %g, %g, %g", value.x, value.y, value.z, value.w);
}
 
bool VuoPoint4d_areEqual(const VuoPoint4d value1, const VuoPoint4d value2)
{
    return VuoReal_areEqual(value1.x, value2.x)
        && VuoReal_areEqual(value1.y, value2.y)
        && VuoReal_areEqual(value1.z, value2.z)
        && VuoReal_areEqual(value1.w, value2.w);
}
 
bool VuoPoint4d_areEqualListWithinTolerance(VuoList_VuoPoint4d values, VuoPoint4d tolerance)
{
    unsigned long count = VuoListGetCount_VuoPoint4d(values);
    if (count <= 1)
        return true;
 
    VuoPoint4d *points = VuoListGetData_VuoPoint4d(values);
    VuoPoint4d min, max;
    min = max = points[0];
    for (unsigned long i = 1; i < count; ++i)
    {
        min = VuoPoint4d_min(min, points[i]);
        max = VuoPoint4d_max(max, points[i]);
    }
    VuoPoint4d diff = max - min;
    return diff.x <= tolerance.x
        && diff.y <= tolerance.y
        && diff.z <= tolerance.z
        && diff.w <= tolerance.w;
}
 
bool VuoPoint4d_isLessThan(const VuoPoint4d a, const VuoPoint4d b)
{
    VuoType_returnInequality(VuoReal, a.x, b.x);
    VuoType_returnInequality(VuoReal, a.y, b.y);
    VuoType_returnInequality(VuoReal, a.z, b.z);
    VuoType_returnInequality(VuoReal, a.w, b.w);
    return false;
}
 
bool VuoPoint4d_isWithinRange(VuoPoint4d value, VuoPoint4d minimum, VuoPoint4d maximum)
{
    return minimum.x <= value.x && value.x <= maximum.x
        && minimum.y <= value.y && value.y <= maximum.y
        && minimum.z <= value.z && value.z <= maximum.z
        && minimum.w <= value.w && value.w <= maximum.w;
}
 
VuoPoint4d VuoPoint4d_minList(VuoList_VuoPoint4d values, VuoInteger *outputPosition)
{
    unsigned long count = VuoListGetCount_VuoPoint4d(values);
    if (count == 0)
    {
        *outputPosition = 0;
        return 0;
    }
 
    VuoPoint4d *points = VuoListGetData_VuoPoint4d(values);
    VuoPoint4d min = FLT_MAX;
    for (unsigned long i = 0; i < count; ++i)
        if (VuoPoint4d_isLessThan(points[i], min))
        {
            min = points[i];
            *outputPosition = i + 1;
        }
 
    return min;
}
 
VuoPoint4d VuoPoint4d_maxList(VuoList_VuoPoint4d values, VuoInteger *outputPosition)
{
    unsigned long count = VuoListGetCount_VuoPoint4d(values);
    if (count == 0)
    {
        *outputPosition = 0;
        return 0;
    }
 
    VuoPoint4d *points = VuoListGetData_VuoPoint4d(values);
    VuoPoint4d max = -FLT_MAX;
    for (unsigned long i = 0; i < count; ++i)
        if (VuoPoint4d_isLessThan(max, points[i]))
        {
            max = points[i];
            *outputPosition = i + 1;
        }
 
    return max;
}
 
VuoPoint4d VuoPoint4d_average(VuoList_VuoPoint4d values)
{
    VuoInteger count = VuoListGetCount_VuoPoint4d(values);
    if (count == 0)
        return 0;
 
    VuoPoint4d sum = 0;
    for (VuoInteger i = 1; i <= count; ++i)
        sum += VuoListGetValue_VuoPoint4d(values, i);
 
    VuoPoint4d divisor = count;
    return sum / divisor;
}
 
VuoPoint4d VuoPoint4d_random(const VuoPoint4d minimum, const VuoPoint4d maximum)
{
    return VuoPoint4d_make(
                VuoReal_random(minimum.x, maximum.x),
                VuoReal_random(minimum.y, maximum.y),
                VuoReal_random(minimum.z, maximum.z),
                VuoReal_random(minimum.w, maximum.w));
}
 
VuoPoint4d VuoPoint4d_randomWithState(unsigned short state[3], const VuoPoint4d minimum, const VuoPoint4d maximum)
{
    return VuoPoint4d_make(
                VuoReal_randomWithState(state, minimum.x, maximum.x),
                VuoReal_randomWithState(state, minimum.y, maximum.y),
                VuoReal_randomWithState(state, minimum.z, maximum.z),
                VuoReal_randomWithState(state, minimum.w, maximum.w));
}