Random generator

Random generator code for Render\Texer II yang aku wat.particle ni akan chaos dan gabung jadi macam2 bentuk yg pelik.berubah dengan nilai "n"

Init=
//random
objs=3 ; szx=1.7 ; szy=1.7; r=1;
index=-1 ; loop(n,exec2(assign(index,index+1),assign(megabuf(index),rand(150)/50-1.5)));
t=gettime(0);

Frame=
/* Aspect Ratio & MISC */
asp=w/h ; index=0;
n=100+reg08; linesize=2

Point=
// Draw Object
xb=r*sin(4*i*100-reg07)*sin(n*i*$pi);
yb=sin((i-.5)*(i*r+2.5+reg08));
zb=r*cos(4*i*100)*sin(n*i*$pi-reg05);

/* Position Set */
x1=xb ; y1=yb ; z1=zb;

/* 3D Movements */
x2=x1*reg03-y1*reg06 ; y2=x1*reg06+y1*reg03;
z2=x2*reg05+z1*reg02 ; x3=x2*reg02-z1*reg05;
y3=y2*reg01-z2*reg04 ; z3=y2*reg04+z2 *reg01;

/* 2D Conversion */
iz=1/(z3+(objs+REG04));
x=x3*iz;y=y3*iz*asp;
sizex=iz*szx ; sizey=iz*szy;

// Skip Behind Camera
skip=below(iz,0);

cull=-2*z3+.5 ; red=cull ; green=cull ; blue=cull