[PD-cvs] externals/markex hsv2rgb.c, NONE, 1.1 rgb2hsv.c, NONE, 1.1 vector+.c, NONE, 1.1 vector-.c, NONE, 1.1 vector0x2a.c, NONE, 1.1 vector0x2f.c, NONE, 1.1 vectorabs.c, NONE, 1.1 vectorpack.c, NONE, 1.1 GEM.LICENSE.TERMS, 1.1, 1.2 Makefile, 1.1, 1.2 abs~.c, 1.1, 1.2 reson~.c, 1.1, 1.2
IOhannes m zmölnig
zmoelnig at users.sourceforge.net
Mon Mar 13 16:59:42 CET 2006
- Previous message: [PD-cvs] externals/pidip Makefile,1.10,1.11
- Next message: [PD-cvs] externals/markex MarkEx.c, NONE, 1.1 Makefile, 1.2, 1.3 hsv2rgb.c, 1.1, 1.2 rgb2hsv.c, 1.1, 1.2
- Messages sorted by:
[ date ]
[ thread ]
[ subject ]
[ author ]
Update of /cvsroot/pure-data/externals/markex
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29126
Modified Files:
GEM.LICENSE.TERMS Makefile abs~.c reson~.c
Added Files:
hsv2rgb.c rgb2hsv.c vector+.c vector-.c vector0x2a.c
vector0x2f.c vectorabs.c vectorpack.c
Log Message:
added the missing files from Gem's MarkEx
--- NEW FILE: rgb2hsv.c ---
////////////////////////////////////////////////////////
//
// GEM - Graphics Environment for Multimedia
//
// mark at danks.org
//
// Copyright (c) 1997-1999 Mark Danks.
// For information on usage and redistribution, and for a DISCLAIMER OF ALL
// WARRANTIES, see the file, "GEM.LICENSE.TERMS" in this distribution.
//
/////////////////////////////////////////////////////////
#include "m_pd.h"
#include <math.h>
inline float FLOAT_CLAMP(float x) { return((x > 1.f) ? 1.f : ( (x < 0.f) ? 0.f : x)); }
static inline float TRI_MAX(float v1, float v2, float v3)
{ if (v1 > v2 && v1 > v3) return(v1);
if (v2 > v3) return(v2);
return(v3);
}
static inline float TRI_MIN(float v1, float v2, float v3)
{ if (v1 < v2 && v1 < v3) return(v1);
if (v2 < v3) return(v2);
return(v3);
}
/////////////////////////////////////////////////////////
//
// rgb2hsv
//
/////////////////////////////////////////////////////////
// instance structure
static t_class *rgb2hsv_class;
typedef struct _rgb2hsv
{
t_object x_obj; /* obligatory object header */
t_outlet *t_out1; /* the outlet */
}t_rgb2hsv;
static void rgb2hsv_float(t_rgb2hsv *x, t_floatarg r, t_floatarg g, t_floatarg b)
{
t_atom argv[3];
float h=0, s, v;
r = FLOAT_CLAMP(r);
g = FLOAT_CLAMP(g);
b = FLOAT_CLAMP(b);
float max = TRI_MAX(r, g, b);
float min = TRI_MIN(r, g, b);
v = max; // the value
// calculate saturation
if (max != 0.0f)
s = (max - min) / max;
else
s = 0.0f;
if (s == 0.0f)
{
h = 0.0f; // hue is undefined if no saturation
}
// chromatic case - calculate hue
else
{
float delta = max - min;
if (r == max) // between magenta and cyan
h = (g - b) / delta;
else if (g == max) // between yellow and magenta
h = 2.0f + (b - r) / delta;
else if (b == max) // between cyan and yellow
h = 4.0f + (r - g) / delta;
// convert hue to degrees
h *= 60.0f;
// make sure hue is nonnegative
if (h < 0.0)
h += 360.f;
// normalize hue
h /= 360.f;
}
SETFLOAT(&argv[0], h);
SETFLOAT(&argv[1], s);
SETFLOAT(&argv[2], v);
outlet_list(x->t_out1, &s_list, 3, argv);
}
static void rgb2hsv_list(t_rgb2hsv *x, t_symbol *s, int argc, t_atom *argv)
{
if (argc >= 3)
{
float r = atom_getfloat(&argv[0]);
float g = atom_getfloat(&argv[1]);
float b = atom_getfloat(&argv[2]);
rgb2hsv_float(x, r, g, b);
}
}
static void *rgb2hsv_new(void) // init vals in struct
{
t_rgb2hsv *x = (t_rgb2hsv *)pd_new(rgb2hsv_class);
x->t_out1 = outlet_new(&x->x_obj, 0);
return (x);
}
void rgb2hsv_setup(void)
{
rgb2hsv_class = class_new(gensym("rgb2hsv"), (t_newmethod)rgb2hsv_new, 0,
sizeof(t_rgb2hsv), CLASS_DEFAULT, A_NULL);
class_addlist(rgb2hsv_class, (t_method)rgb2hsv_list);
}
--- NEW FILE: vector-.c ---
/*
* Copyright (c) 1997-1999 Mark Danks.
* For information on usage and redistribution, and for a DISCLAIMER OF ALL
* WARRANTIES, see the file, "GEM.LICENSE.TERMS" in this distribution.
*/
#include "m_pd.h"
/* -------------------------- vector- ------------------------------ */
/* instance structure */
static t_class *vectorMinus_class;
typedef struct _vectorMinus
{
t_object x_obj;
t_float x_minus;
t_atom *m_list;
int m_num;
t_outlet *t_out1; /* the outlet */
} t_vectorMinus;
static void doVectorMinus(t_vectorMinus *x, t_symbol *s, int argc, t_atom *argv)
{
int i;
if (argc > x->m_num)
{
x->m_list = (t_atom *)resizebytes(x->m_list, sizeof(t_atom) * x->m_num, sizeof(t_atom) * argc);
x->m_num = argc;
}
for (i = 0; i < argc; i++)
{
float temp = atom_getfloat(&argv[i]);
temp -= x->x_minus;
SETFLOAT((&x->m_list[i]), temp);
}
outlet_list(x->t_out1, &s_list, argc, x->m_list);
}
static void *vectorMinus_new(t_floatarg n)
{
t_vectorMinus *x = (t_vectorMinus *)pd_new(vectorMinus_class);
x->x_minus = (float)n;
floatinlet_new(&x->x_obj, &x->x_minus);
x->t_out1 = outlet_new(&x->x_obj, 0);
x->m_num = 3;
x->m_list = (t_atom *)getbytes(sizeof(t_atom) * x->m_num);
return (x);
}
static void vectorMinus_setup(void)
{
vectorMinus_class = class_new(gensym("vector-"), (t_newmethod)vectorMinus_new, 0,
sizeof(t_vectorMinus), 0, A_DEFFLOAT, 0);
class_addcreator((t_newmethod)vectorMinus_new, gensym("v-"), A_DEFFLOAT, 0);
class_addmethod(vectorMinus_class, (t_method)doVectorMinus,
&s_list, A_GIMME, A_NULL);
}
void setup_vector0x2d(void){
vectorMinus_setup();
}
void setup_v0x2d(void){
vectorMinus_setup();
}
--- NEW FILE: vector0x2f.c ---
/*
* Copyright (c) 1997-1999 Mark Danks.
* For information on usage and redistribution, and for a DISCLAIMER OF ALL
* WARRANTIES, see the file, "GEM.LICENSE.TERMS" in this distribution.
*/
#include "m_pd.h"
/* -------------------------- vector/ ------------------------------ */
/* instance structure */
static t_class *vectorDiv_class;
typedef struct _vectorDiv
{
t_object x_obj;
t_float x_div;
t_atom *m_list;
int m_num;
t_outlet *t_out1; /* the outlet */
} t_vectorDiv;
static void doVectorDiv(t_vectorDiv *x, t_symbol *s, int argc, t_atom *argv)
{
int i;
if (argc > x->m_num)
{
x->m_list = (t_atom *)resizebytes(x->m_list, sizeof(t_atom) * x->m_num, sizeof(t_atom) * argc);
x->m_num = argc;
}
for (i = 0; i < argc; i++)
{
float temp = atom_getfloat(&argv[i]);
temp /= x->x_div;
SETFLOAT((&x->m_list[i]), temp);
}
outlet_list(x->t_out1, &s_list, argc, x->m_list);
}
static void *vectorDiv_new(t_floatarg n)
{
t_vectorDiv *x = (t_vectorDiv *)pd_new(vectorDiv_class);
x->x_div = (float)n;
floatinlet_new(&x->x_obj, &x->x_div);
x->t_out1 = outlet_new(&x->x_obj, 0);
x->m_num = 3;
x->m_list = (t_atom *)getbytes(sizeof(t_atom) * x->m_num);
return (x);
}
static void vectorDiv_setup(void)
{
vectorDiv_class = class_new(gensym("vector/"), (t_newmethod)vectorDiv_new, 0,
sizeof(t_vectorDiv), 0, A_DEFFLOAT, 0);
class_addcreator((t_newmethod)vectorDiv_new, gensym("v/"), A_DEFFLOAT, 0);
class_addmethod(vectorDiv_class, (t_method)doVectorDiv,
&s_list, A_GIMME, A_NULL);
}
void setup_vector0x2f(void){
vectorDiv_setup();
}
void setup_v0x2f(void){
vectorDiv_setup();
}
Index: abs~.c
===================================================================
RCS file: /cvsroot/pure-data/externals/markex/abs~.c,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** abs~.c 8 Dec 2005 05:24:58 -0000 1.1
--- abs~.c 13 Mar 2006 15:59:40 -0000 1.2
***************
*** 36,40 ****
}
! static void *abs_new()
{
t_abs *x = (t_abs *)pd_new(abs_class);
--- 36,40 ----
}
! static void *abs_new(void)
{
t_abs *x = (t_abs *)pd_new(abs_class);
--- NEW FILE: hsv2rgb.c ---
////////////////////////////////////////////////////////
//
// GEM - Graphics Environment for Multimedia
//
// mark at danks.org
//
// Copyright (c) 1997-1999 Mark Danks.
// For information on usage and redistribution, and for a DISCLAIMER OF ALL
// WARRANTIES, see the file, "GEM.LICENSE.TERMS" in this distribution.
//
/////////////////////////////////////////////////////////
#include "m_pd.h"
#include <math.h>
inline float FLOAT_CLAMP(float x) { return((x > 1.f) ? 1.f : ( (x < 0.f) ? 0.f : x)); }
/////////////////////////////////////////////////////////
//
// hsv2rgb
//
/////////////////////////////////////////////////////////
// instance structure
static t_class *hsv2rgb_class;
typedef struct _hsv2rgb
{
t_object x_obj; // obligatory object header
t_outlet *t_out1; // the outlet
}t_hsv2rgb;
static void hsv2rgb_float(t_hsv2rgb *x, t_floatarg h, t_floatarg s, t_floatarg v)
{
t_atom argv[3];
float r=0, g=0, b=0;
h = FLOAT_CLAMP(h);
s = FLOAT_CLAMP(s);
v = FLOAT_CLAMP(v);
// convert hue to degrees
h *= 360.f;
if (s == 0.0) // black and white
{
r = g = b = v;
}
else
{
if (h == 360.0) // 360 == 0 degrees
h = 0.0f;
h /= 60.0f; // hue is now [0, 6]
{
int i = (int)floor(h);
float f = h - i; // f is the fractional part of h
float p = v * (1 - s);
float q = v * (1 - s * f);
float t = v * (1 - s * (1 - f));
switch (i)
{
case 0:
r = v;
g = t;
b = p;
break;
case 1:
r = q;
g = v;
b = p;
break;
case 2:
r = p;
g = v;
b = t;
break;
case 3:
r = p;
g = q;
b = v;
break;
case 4:
r = t;
g = p;
b = v;
break;
case 5:
r = v;
g = p;
b = q;
break;
}
}
}
SETFLOAT(&argv[0], r);
SETFLOAT(&argv[1], g);
SETFLOAT(&argv[2], b);
outlet_list(x->t_out1, &s_list, 3, argv);
}
static void hsv2rgb_list(t_hsv2rgb *x, t_symbol *sym, int argc, t_atom *argv)
{
if (argc >= 3)
{
float h = atom_getfloat(&argv[0]);
float s = atom_getfloat(&argv[1]);
float v = atom_getfloat(&argv[2]);
hsv2rgb_float(x, h, s, v);
}
}
static void *hsv2rgb_new(void) // init vals in struct
{
t_hsv2rgb *x = (t_hsv2rgb *)pd_new(hsv2rgb_class);
x->t_out1 = outlet_new(&x->x_obj, 0);
return (x);
}
void hsv2rgb_setup(void)
{
hsv2rgb_class = class_new(gensym("hsv2rgb"), (t_newmethod)hsv2rgb_new, 0,
sizeof(t_hsv2rgb), CLASS_DEFAULT, A_NULL);
class_addlist(hsv2rgb_class, (t_method)hsv2rgb_list);
}
Index: Makefile
===================================================================
RCS file: /cvsroot/pure-data/externals/markex/Makefile,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** Makefile 30 Jul 2003 21:52:27 -0000 1.1
--- Makefile 13 Mar 2006 15:59:40 -0000 1.2
***************
*** 1,10 ****
! CC=gcc
! current: pd_darwin
# ----------------------- DARWIN -----------------------
! # replace this line with the one above, since this one has been hacked up
! pd_darwin: alternate.pd_darwin gem_average.pd_darwin gem_change.pd_darwin gem_counter.pd_darwin invert.pd_darwin multiselect.pd_darwin oneshot.pd_darwin randomF.pd_darwin strcat.pd_darwin tripleLine.pd_darwin tripleRand.pd_darwin
.SUFFIXES: .pd_darwin
--- 1,13 ----
! current:
! echo make pd_darwin, pd_linux
!
! SOURCES=$(sort $(filter %.c, $(wildcard *.c)))
!
! OTARGETS = $(SOURCES:.c=.o)
# ----------------------- DARWIN -----------------------
! TARGETS = $(SOURCES:.c=.pd_darwin)
.SUFFIXES: .pd_darwin
***************
*** 16,28 ****
DARWININCLUDE = -I/usr/local/lib/pd/include -I../../pd/src -I /usr/local/include
! .c.pd_darwin:
$(CC) $(DARWINCFLAGS) $(DARWININCLUDE) -o $*.o -c $*.c
$(CC) -bundle -undefined suppress -flat_namespace -o $*.pd_darwin $*.o -lc -lm
rm $*.o
# ----------------------- LINUX -----------------------
! pd_linux: alternate.pd_linux gem_average.pd_linux gem_change.pd_linux gem_counter.pd_linux invert.pd_linux multiselect.pd_linux oneshot.pd_linux randomF.pd_linux strcat.pd_linux tripleLine.pd_linux tripleRand.pd_linux
.SUFFIXES: .pd_linux
--- 19,33 ----
DARWININCLUDE = -I/usr/local/lib/pd/include -I../../pd/src -I /usr/local/include
! $(TARGETS): %.pd_darwin : %.c
$(CC) $(DARWINCFLAGS) $(DARWININCLUDE) -o $*.o -c $*.c
$(CC) -bundle -undefined suppress -flat_namespace -o $*.pd_darwin $*.o -lc -lm
rm $*.o
+ pd_darwin: $(TARGETS)
+
# ----------------------- LINUX -----------------------
! TARGETS = $(SOURCES:.c=.pd_linux)
.SUFFIXES: .pd_linux
***************
*** 34,43 ****
LINUXINCLUDE = -I/usr/local/lib/pd/include -I../../pd/src
! .c.pd_linux:
$(CC) $(LINUXCFLAGS) $(LINUXINCLUDE) -o $*.o -c $*.c
! ld -export_dynamic -shared -o $*.pd_linux $*.o -lc -lm
strip --strip-unneeded $*.pd_linux
rm $*.o
# ----------------------- CLEAN -----------------------
--- 39,50 ----
LINUXINCLUDE = -I/usr/local/lib/pd/include -I../../pd/src
! $(TARGETS): %.pd_linux : %.c
$(CC) $(LINUXCFLAGS) $(LINUXINCLUDE) -o $*.o -c $*.c
! $(LD) -export_dynamic -shared -o $*.pd_linux $*.o -lc -lm
strip --strip-unneeded $*.pd_linux
rm $*.o
+ pd_linux: $(TARGETS)
+
# ----------------------- CLEAN -----------------------
--- NEW FILE: vectorpack.c ---
/*
* Copyright (c) 1997-1999 Mark Danks.
* For information on usage and redistribution, and for a DISCLAIMER OF ALL
* WARRANTIES, see the file, "GEM.LICENSE.TERMS" in this distribution.
*/
#include "m_pd.h"
/* -------------------------- vectorpack ------------------------------ */
static t_class *vectorPack_class;
typedef struct _vectorPack
{
t_object x_obj;
t_float x_val;
t_atom *m_list;
int m_num;
t_outlet *t_out1; /* the outlet */
} t_vectorPack;
static void doVectorPack(t_vectorPack *x, t_symbol *s, int argc, t_atom *argv)
{
int i;
if ((argc + 1) > x->m_num)
{
x->m_list = (t_atom *)resizebytes(x->m_list, sizeof(t_atom) * x->m_num, sizeof(t_atom) * (argc + 1));
x->m_num = argc;
}
for (i = 0; i < argc; i++)
{
float temp = atom_getfloat(&argv[i]);
SETFLOAT((&x->m_list[i]), temp);
}
SETFLOAT((&x->m_list[argc]), x->x_val);
outlet_list(x->t_out1, &s_list, (argc + 1), x->m_list);
}
static void *vectorPack_new(t_floatarg n)
{
t_vectorPack *x = (t_vectorPack *)pd_new(vectorPack_class);
x->x_val = (float)n;
floatinlet_new(&x->x_obj, &x->x_val);
x->t_out1 = outlet_new(&x->x_obj, 0);
x->m_num = 4;
x->m_list = (t_atom *)getbytes(sizeof(t_atom) * x->m_num);
return (x);
}
void vectorpack_setup(void)
{
vectorPack_class = class_new(gensym("vectorpack"), (t_newmethod)vectorPack_new, 0,
sizeof(t_vectorPack), 0, A_DEFFLOAT, 0);
class_addcreator((t_newmethod)vectorPack_new, gensym("vpack"), A_DEFFLOAT, 0);
class_addmethod(vectorPack_class, (t_method)doVectorPack,
&s_list, A_GIMME, A_NULL);
}
void vpack_setup(void){
vectorpack_setup();
}
Index: reson~.c
===================================================================
RCS file: /cvsroot/pure-data/externals/markex/reson~.c,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** reson~.c 8 Dec 2005 05:24:58 -0000 1.1
--- reson~.c 13 Mar 2006 15:59:40 -0000 1.2
***************
*** 144,148 ****
}
! void reson_tilde_setup()
{
sigreson_class = class_new(gensym("reson~"), (t_newmethod)sigreson_new,
--- 144,148 ----
}
! void reson_tilde_setup(void)
{
sigreson_class = class_new(gensym("reson~"), (t_newmethod)sigreson_new,
--- NEW FILE: vectorabs.c ---
/*
* Copyright (c) 1997-1999 Mark Danks.
* For information on usage and redistribution, and for a DISCLAIMER OF ALL
* WARRANTIES, see the file, "GEM.LICENSE.TERMS" in this distribution.
*/
#include "m_pd.h"
/* -------------------------- vectorabs ------------------------------ */
/* instance structure */
static t_class *vectorAbs_class;
typedef struct _vectorAbs
{
t_object x_obj;
t_atom *m_list;
int m_num;
t_outlet *t_out1; /* the outlet */
} t_vectorAbs;
static void doVectorAbs(t_vectorAbs *x, t_symbol *s, int argc, t_atom *argv)
{
int i;
if (argc > x->m_num)
{
x->m_list = (t_atom *)resizebytes(x->m_list, sizeof(t_atom) * x->m_num, sizeof(t_atom) * argc);
x->m_num = argc;
}
for (i = 0; i < argc; i++)
{
float temp = atom_getfloat(&argv[i]);
if (temp < 0.f)
temp = temp * -1.f;
SETFLOAT((&x->m_list[i]), temp);
}
outlet_list(x->t_out1, &s_list, argc, x->m_list);
}
static void *vectorAbs_new(void)
{
t_vectorAbs *x = (t_vectorAbs *)pd_new(vectorAbs_class);
x->t_out1 = outlet_new(&x->x_obj, 0);
x->m_num = 3;
x->m_list = (t_atom *)getbytes(sizeof(t_atom) * x->m_num);
return (x);
}
void vectorabs_setup(void)
{
vectorAbs_class = class_new(gensym("vectorabs"), (t_newmethod)vectorAbs_new, 0,
sizeof(t_vectorAbs), 0, A_NULL);
class_addcreator((t_newmethod)vectorAbs_new, gensym("vabs"), A_NULL);
class_addmethod(vectorAbs_class, (t_method)doVectorAbs,
&s_list, A_GIMME, A_NULL);
}
void vabs_setup(void){
vectorabs_setup();
}
Index: GEM.LICENSE.TERMS
===================================================================
RCS file: /cvsroot/pure-data/externals/markex/GEM.LICENSE.TERMS,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** GEM.LICENSE.TERMS 30 Jul 2003 21:52:27 -0000 1.1
--- GEM.LICENSE.TERMS 13 Mar 2006 15:59:38 -0000 1.2
***************
*** 1,204 ****
! GEM - Graphics Environment for Multimedia
! Copyright (C) 1997-2000 Mark Danks
! Copyright (C) Günter Geiger
! Copyright (C) 2001-2002 IOhannes m zmölnig
!
! This program is free software; you can redistribute it and/or
! modify it under the terms of the GNU General Public License
! as published by the Free Software Foundation; either version 2
! of the License, or (at your option) any later version.
!
! This program is distributed in the hope that it will be useful,
! but WITHOUT ANY WARRANTY; without even the implied warranty of
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
! GNU General Public License for more details.
!
! You should have received a copy of the GNU General Public License
! along with this program; if not, write to the Free Software
! Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
!
! In the official GEM distribution, the GNU General Public License is
! in the file GnuGPL.LICENSE
!
! ---------------------------------------------------------
!
! ACKNOWLEDGMENTS
!
! ---------------------------------------------------------
! Not all of the source code provided here has entirely been written by me.
! I would like to point at the great openGL-tutorials at http://nehe.gamedev.net
! Since these are tutorials, there is no copyright notice here.
! Some of the pix_fx code is borrowed from effecTV by Kentarou Fukuchi et al.
! at http://effectv.sourceforge.net released under the Gnu GPL.
! Future releases might also incorporate the FreeJ-tool by Jaromil
! at http://freej.dyne.org/ released under the Gnu GPL.
!
!
! ---------------------------------------------------------
!
! OTHER COPYRIGHT NOTICES
!
! ---------------------------------------------------------
!
!
! This file contains all of the licenses from the various libraries which
! are included in GEM. If there is no license associated with a
! library, then the author has not included one or not required that the
! full license be included.
!
! All of the files and documentation for the various libraries in the
! "Gemlibs" portion of GEM are copyrighted by their respective authors
! and not by Mark Danks/Guenter Geiger/IOhannes m zmoelnig. All copyright notices are included in the
! respective library directories, GemLibs/*, and this file.
! The "GemLibs" portion of GEM consists of
!
! libTiff:
! Author: Sam Leffner
! sam at engr.sgi.com
! ftp://ftp.sgi.com/graphics/tiff/
! Copyright (c) 1988-1996 Sam Leffler
! Copyright (c) 1991-1996 Silicon Graphics, Inc.
! see license below
!
! fstimage:
! Masayuki Matsumoto
! sgi image loader.
! matumot at dst.nk-exa.co.jp
! Copyright (C) 1995 Masayuki Mastumoto
! Modified so that it doesn't exit on error.
! Added support for reading grayscale, rgb, and rgba images
! Mark Danks - 1998
!
! libjpeg:
! Author: Independent JPEG Group
! jpeg-info at uunet.uu.net
! ftp://ftp.simtel.net/pub/simtelnet/msdos/graphics/
! Copyright (C) 1991-1996, Thomas G. Lane.
!
! Glut:
! Author: Mark Kilgard
! http://reality.sgi.com/mjk_asd/
! Copyright 1996 by Evans & Sutherland Computer Corporation.
!
! GLTT:
! Author: Stephane Rehel
! rehel at worldnet.fr
! http://home.worldnet.fr/~rehel/gltt/gltt.html
! Copyright (C) 1991 Stephane Rehel
! This is covered under the GNU Library General Public License,
! Version 2 or greater.
!
! Freetype:
! Authors: David Turner, Robert Wilhelm, and Werner Lemberg
! turner at enst.fr
! robert at physiol.med.tu-muenchen.de
! a7971428 at unet.univie.ac.at
! http://www.physiol.med.tu-muenchen.de/~robert/freetype.html
! Copyright 1996,1997 by David Turner, Robert Wilhelm, and Werner Lemberg
!
! libmpeg:
! Authors: MPEG Software Simulation Group
! mssg at mpeg.org
! http://www.mpeg.org/MSSG/
! Copyright (c) 1996 MPEG Software Simulation Group
!
! Wintab:
! Author: Rick Poyner, LCS/Telegraphics
! wintab at pointing.com
! Copyright 1991-1995 by LCS/Telegraphics.
! see license below
!
! libOrb:
! Author: John Stone
! j.stone at acm.org
! http://www.umr.edu/~johns/projects/liborb/
! Copyright (c) 1997-1998 John E. Stone
! see license below
!
! particle:
! Author: David McAllister
! davemc at cs.unc.edu
! http://www.cs.unc.edu/~davemc/Particle/
! Copyright (c) 1998 David K. McAllister
!
! ----------------------------------------------------------------------------
! libTiff:
! Author: Sam Leffner
! sam at engr.sgi.com
! ftp://ftp.sgi.com/graphics/tiff/
! Copyright (c) 1988-1996 Sam Leffler
! Copyright (c) 1991-1996 Silicon Graphics, Inc.
!
! Copyright (c) 1988-1996 Sam Leffler
! Copyright (c) 1991-1996 Silicon Graphics, Inc.
!
! Permission to use, copy, modify, distribute, and sell this software and
! its documentation for any purpose is hereby granted without fee, provided
! that (i) the above copyright notices and this permission notice appear in
! all copies of the software and related documentation, and (ii) the names of
! Sam Leffler and Silicon Graphics may not be used in any advertising or
! publicity relating to the software without the specific, prior written
! permission of Sam Leffler and Silicon Graphics.
!
! THE SOFTWARE IS PROVIDED "AS-IS" AND WITHOUT WARRANTY OF ANY KIND,
! EXPRESS, IMPLIED OR OTHERWISE, INCLUDING WITHOUT LIMITATION, ANY
! WARRANTY OF MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE.
!
! IN NO EVENT SHALL SAM LEFFLER OR SILICON GRAPHICS BE LIABLE FOR
! ANY SPECIAL, INCIDENTAL, INDIRECT OR CONSEQUENTIAL DAMAGES OF ANY KIND,
! OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,
! WHETHER OR NOT ADVISED OF THE POSSIBILITY OF DAMAGE, AND ON ANY THEORY OF
! LIABILITY, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE
! OF THIS SOFTWARE.
!
!
! ----------------------------------------------------------------------------
! Wintab:
! Author: Rick Poyner, LCS/Telegraphics
! wintab at pointing.com
!
! The Wintab specification is intended to be an open standard. The
! Wintab Programmer's Kit is an aid to understanding the Wintab
! standard and implementing Wintab-compliant applications. As such,
! the text and information contained herein may be freely used, copied,
! or distributed without compensation or licensing restrictions.
!
! The Wintab Programmer's Kit is copyright 1991-1995 by
! LCS/Telegraphics.
!
! LCS/Telegraphics does not assume any liability for damages resulting
! from the use of the information contained herein.
!
! ----------------------------------------------------------------------------
! libOrb:
!
! /*
! * Copyright (c) 1997, 1998 John E. Stone (j.stone at acm.org)
! * All rights reserved.
! *
! * Redistribution and use in source and binary forms, with or without
! * modification, are permitted provided that the following conditions
! * are met:
! * 1. Redistributions of source code must retain the above copyright
! * notice, this list of conditions and the following disclaimer.
! * 2. Redistributions in binary form must reproduce the above copyright
! * notice, this list of conditions and the following disclaimer in the
! * documentation and/or other materials provided with the distribution.
! * 3. All advertising materials mentioning features or use of this software
! * must display the following acknowledgement:
! * This product includes software developed by John E. Stone
! * 4. The name of the author may not be used to endorse or promote products
! * derived from this software without specific prior written permission.
! *
! * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS
! * OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
! * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
! * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY
! * DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
! * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
! * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
! * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
! * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
! * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
! * SUCH DAMAGE.
! */
--- 1,22 ----
! GEM - Graphics Environment for Multimedia
! Copyright (C) 1997-2000 Mark Danks
! Copyright (C) Günter Geiger
! Copyright (C) 2001-2002 IOhannes m zmölnig
!
! This program is free software; you can redistribute it and/or
! modify it under the terms of the GNU General Public License
! as published by the Free Software Foundation; either version 2
! of the License, or (at your option) any later version.
!
! This program is distributed in the hope that it will be useful,
! but WITHOUT ANY WARRANTY; without even the implied warranty of
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
! GNU General Public License for more details.
!
! You should have received a copy of the GNU General Public License
! along with this program; if not, write to the Free Software
! Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
!
! In the official GEM distribution, the GNU General Public License is
! in the file GnuGPL.LICENSE
!
--- NEW FILE: vector0x2a.c ---
/*
* Copyright (c) 1997-1999 Mark Danks.
* For information on usage and redistribution, and for a DISCLAIMER OF ALL
* WARRANTIES, see the file, "GEM.LICENSE.TERMS" in this distribution.
*/
#include "m_pd.h"
/* -------------------------- vector* ------------------------------ */
/* instance structure */
static t_class *vectorMult_class;
typedef struct _vectorMult
{
t_object x_obj;
t_float x_mult;
t_atom *m_list;
int m_num;
t_outlet *t_out1; /* the outlet */
} t_vectorMult;
static void doVectorMult(t_vectorMult *x, t_symbol *s, int argc, t_atom *argv)
{
int i;
if (argc > x->m_num)
{
x->m_list = (t_atom *)resizebytes(x->m_list, sizeof(t_atom) * x->m_num, sizeof(t_atom) * argc);
x->m_num = argc;
}
for (i = 0; i < argc; i++)
{
float temp = atom_getfloat(&argv[i]);
temp *= x->x_mult;
SETFLOAT((&x->m_list[i]), temp);
}
outlet_list(x->t_out1, &s_list, argc, x->m_list);
}
static void *vectorMult_new(t_floatarg n)
{
t_vectorMult *x = (t_vectorMult *)pd_new(vectorMult_class);
x->x_mult = (float)n;
floatinlet_new(&x->x_obj, &x->x_mult);
x->t_out1 = outlet_new(&x->x_obj, 0);
x->m_num = 3;
x->m_list = (t_atom *)getbytes(sizeof(t_atom) * x->m_num);
return (x);
}
static void vectorMult_setup(void)
{
vectorMult_class = class_new(gensym("vector*"), (t_newmethod)vectorMult_new, 0,
sizeof(t_vectorMult), 0, A_DEFFLOAT, 0);
class_addcreator((t_newmethod)vectorMult_new, gensym("v*"), A_DEFFLOAT, 0);
class_addmethod(vectorMult_class, (t_method)doVectorMult,
&s_list, A_GIMME, A_NULL);
}
void setup_vector0x2a(void){
vectorMult_setup();
}
void vector0x2a_setup(void){
vectorMult_setup();
}
void setup_v0x2a(void){
vectorMult_setup();
}
void v0x2a_setup(void){
vectorMult_setup();
}
--- NEW FILE: vector+.c ---
/*
* Copyright (c) 1997-1999 Mark Danks.
* For information on usage and redistribution, and for a DISCLAIMER OF ALL
* WARRANTIES, see the file, "GEM.LICENSE.TERMS" in this distribution.
*/
#include "m_pd.h"
// -------------------------- vector+ ------------------------------
// instance structure
static t_class *vectorPlus_class;
typedef struct _vectorPlus
{
t_object x_obj;
t_float x_add;
t_atom *m_list;
int m_num;
t_outlet *t_out1; // the outlet
} t_vectorPlus;
static void doVectorPlus(t_vectorPlus *x, t_symbol *s, int argc, t_atom *argv)
{
int i;
if (argc > x->m_num)
{
x->m_list = (t_atom *)resizebytes(x->m_list, sizeof(t_atom) * x->m_num, sizeof(t_atom) * argc);
x->m_num = argc;
}
for (i = 0; i < argc; i++)
{
float temp = atom_getfloat(&argv[i]);
temp += x->x_add;
SETFLOAT((&x->m_list[i]), temp);
}
outlet_list(x->t_out1, &s_list, argc, x->m_list);
}
static void *vectorPlus_new(t_floatarg n)
{
t_vectorPlus *x = (t_vectorPlus *)pd_new(vectorPlus_class);
x->x_add = (float)n;
floatinlet_new(&x->x_obj, &x->x_add);
x->t_out1 = outlet_new(&x->x_obj, 0);
x->m_num = 3;
x->m_list = (t_atom *)getbytes(sizeof(t_atom) * x->m_num);
return (x);
}
static void vectorPlus_setup(void)
{
vectorPlus_class = class_new(gensym("vector+"), (t_newmethod)vectorPlus_new, 0,
sizeof(t_vectorPlus), 0, A_DEFFLOAT, 0);
class_addcreator((t_newmethod)vectorPlus_new, gensym("v+"), A_DEFFLOAT, 0);
class_addmethod(vectorPlus_class, (t_method)doVectorPlus,
&s_list, A_GIMME, A_NULL);
}
void setup_vector0x2b(void){
vectorPlus_setup();
}
void setup_v0x2b(void){
vectorPlus_setup();
}
- Previous message: [PD-cvs] externals/pidip Makefile,1.10,1.11
- Next message: [PD-cvs] externals/markex MarkEx.c, NONE, 1.1 Makefile, 1.2, 1.3 hsv2rgb.c, 1.1, 1.2 rgb2hsv.c, 1.1, 1.2
- Messages sorted by:
[ date ]
[ thread ]
[ subject ]
[ author ]
More information about the Pd-cvs
mailing list