Skip to content

Instantly share code, notes, and snippets.

View abuiles's full-sized avatar

Adolfo Builes abuiles

293 followers · 40 following
View GitHub Profile
@abuiles
abuiles / gist:201717
Created October 5, 2009 00:21
BoundingSphere bounds = new BoundingSphere(new Point3d(), Math.MAX_DOUBLE) //
Background backg = new Background (c)
backg.setApplicationBounds (bounds)
scene.addChild (backg)
@abuiles
abuiles / gist:201780
Created October 5, 2009 02:20
TextumlParser.start_return r = parser.start();
if (!parser.messages.isEmpty ())
@abuiles
abuiles / gist:201807
Created October 5, 2009 02:31
@header {
import java.util.Vector;
}
@members {
private Vector <Configuracion> configuraciones = new Vector ();
private Vector <Geometria> geometrias = new Vector ();
//Aqui tambien puedes declarar funciones
@abuiles
abuiles / gist:206079
Created October 9, 2009 15:01
<div class='rtMatcher'><a href='http://www.ringtonematcher.com/co/ringtonematcher/02/noc.asp?sid=WILWros&amp;artist=MGMT&amp;song=Kids' target='_blank'><img src='http://images.wikia.com/lyricwiki/images/phone_left.gif' alt='phone' width='16' height='17'/></a> <a href='http://www.ringtonematcher.com/co/ringtonematcher/02/noc.asp?sid=WILWros&amp;artist=MGMT&amp;song=Kids' target='_blank'>Send "Kids" Ringtone to your Cell</a> <a href='http://www.ringtonematcher.com/co/ringtonematcher/02/noc.asp?sid=WILWros&amp;artist=MGMT&amp;song=Kids' target='_blank'><img src='http://images.wikia.com/lyricwiki/images/phone_right.gif' alt='phone' width='16' height='17'/></a></div>You were a child
Crawling on your knees toward it
Making Mama so proud
But your voice was too loud
We liked to watch you laughing
You picked the insects off plants
No time to think of consequences
Control yourself
Take only what you need from it
@abuiles
abuiles / gist:206134
Created October 9, 2009 16:03
case class Ray( origin:Point3d, direction:Vector3d )
@abuiles
abuiles / gist:206234
Created October 9, 2009 18:34
public class Image {
int width;
int height;
Point3i [][] image = null;
public Image(int width, int height) {
this.width = width;
this.height = height;
image = new Point3i[width][height];
for (int i = 0; i < width; i++) {
@abuiles
abuiles / gist:206235
Created October 9, 2009 18:35
public class Image {
int width;
int height;
Point3i [][] image = null;
public Image(int width, int height) {
this.width = width;
this.height = height;
image = new Point3i[width][height];
for (int i = 0; i < width; i++) {
@abuiles
abuiles / gist:210319
Created October 14, 2009 19:02
sealed case class Sphere (center:Vector3d , radius: Double) extends Geometry
{
def intersect (r:Ray, h:Hit, range:Range,material:Color3f): Option [(Hit,Range)]=
{
var v = new Vector3d ( r.origin.x - center.x , r.origin.y - center.y,r.origin.z - center.z);
var discriminant = pow (v.dot (r.direction),2.0) - (pow (v.dot(v),2) - pow (radius,2));
if (discriminant >= 0 )
{
//var t1 = -(v.dot(r.direction)) + sqrt (discriminant);
@abuiles
abuiles / gist:212558
Created October 18, 2009 05:29
qs (x:xs) = filter (\x -> x < xs) xs ++ x ++ (filter (\x -> x > xs))
Point Free
qs = ap (liftM2 (++) (filter =<< flip (<)) . (. (filter . flip (>))) . (++) . head) tail
@abuiles
abuiles / lazynodet.hs
Created October 19, 2009 18:39
perm :: MonadPlus m => [a] -> m [a]
perm [] = return []
perm (x:xs) = do ys <- perm xs
zs <- insert x ys
return zs
insert :: MonadPlus m => a -> [a] -> m [a]
insert x xs = (return (x:xs))
`mplus` case xs of
[] -> mzero