The last of the blenkernel files with translated comments

9 files changed, 155 insertions, 181 deletions

diff --git a/source/blender/blenkernel/intern/mball.c b/source/blender/blenkernel/intern/mball.c
index ce9e5f409a1..6d299091e50 100644
--- a/source/blender/blenkernel/intern/mball.c
+++ b/source/blender/blenkernel/intern/mball.c
@@ -1,13 +1,11 @@
-/*  mball.c      MIXED MODEL
- * 
- *  mei 95
- *  
+/*  mball.c
  *  
  *  
- *  METABALLS ontstaan vanuit een Object (naam zonder nr), hier zit de DispList en boundbox, 
- *  alle objecten met zelfde naam (en een nr) worden hieraan toegevoegd.
+ *  MetaBalls are created from a single Object (with a name without number in it),
+ *  here the DispList and BoundBox also is located.
+ *  All objects with the same name (but with a number in it) are added to this.
  *  
- *  De texture coordinaten zitten als loos element in de displist.
+ *  texture coordinates are patched within the displist
  * 
  * $Id$
  *
@@ -90,7 +88,7 @@ void unlink_mball(MetaBall *mb)
 }
 
 
-/* niet mball zelf vrijgeven */
+/* do not free mball itself */
 void free_mball(MetaBall *mb)
 {
 	
@@ -141,10 +139,10 @@ void make_local_mball(MetaBall *mb)
 	Object *ob;
 	MetaBall *mbn;
 	int local=0, lib=0;
-	
-	/* - zijn er alleen lib users: niet doen
-	 * - zijn er alleen locale users: flag zetten
-	 * - mixed: copy
+
+	/* - only lib users: do nothing
+	 * - only local users: set flag
+	 * - mixed: make copy
 	 */
 	
 	if(mb->id.lib==0) return;
@@ -248,7 +246,7 @@ void make_orco_mball(Object *ob)
 	float loc[3], size[3];
 	int a;
 	
-	/* size en loc restoren */
+	/* restore size and loc */
 	bb= ob->bb;
 	loc[0]= (bb->vec[0][0]+bb->vec[4][0])/2.0f;
 	size[0]= bb->vec[4][0]-loc[0];
@@ -300,7 +298,7 @@ Object *find_basis_mball(Object *basis)
 
 /* ******************** ARITH ************************* */
 
-/* DANKBAAR GEBRUIK GEMAAKT VAN (EN COMPLEET VERANDERD) :
+/* BASED AT CODE (but mostly rewritten) :
  * C code from the article
  * "An Implicit Surface Polygonizer"
  * by Jules Bloomenthal, jbloom@beauty.gmu.edu
@@ -551,7 +549,7 @@ void accum_mballfaces(int i1, int i2, int i3, int i4)
 	
 	cur= indices+4*curindex;
 
-	/* voorkomen dat nulcodes voorkomen */
+	/* prevent zero codes for faces indices */
 	if(i3==0) {
 		if(i4) {
 			i3= i4;
@@ -585,18 +583,17 @@ struct pgn_elements {
 
 void *new_pgn_element(int size)
 {
-	/* gedurende het polygonizeren worden duizenden elementen aangemaakt en
-	 * nooit (tussendoor) vrijgegeven. Alleen op eind is vrijgeven nodig.
+	/* during polygonize 1000s of elements are allocated
+	 * and never freed inbetween. Freeing only done at the end.
 	 */
 	int blocksize= 16384;
-	static int offs= 0;		/* het huidige vrije adres */
+	static int offs= 0;		/* the current free address */
 	static struct pgn_elements *cur= 0;
 	static ListBase lb= {0, 0};
 	void *adr;
 	
 	if(size>10000 || size==0) {
 		printf("incorrect use of new_pgn_element\n");
-		/* exit(0); */
 	}
 	else if(size== -1) {
 		cur= lb.first;
@@ -740,9 +737,6 @@ void docube(CUBE *cube, PROCESS *p)
  * and add new cube to cube stack */
 
 void testface(int i, int j, int k, CUBE* old, int bit, int c1, int c2, int c3, int c4, PROCESS *p)
-/*  CUBE *old; */
-/*  PROCESS *p; */
-/*  int i, j, k, bit, c1, c2, c3, c4; */
 {
 	CUBE newc;
 	CUBES *oldcubes = p->cubes;
@@ -794,14 +788,12 @@ void testface(int i, int j, int k, CUBE* old, int bit, int c1, int c2, int c3, i
    set (and cache) its function value */
 
 CORNER *setcorner (PROCESS* p, int i, int j, int k)
-/*  int i, j, k; */
-/*  PROCESS *p; */
 {
 	/* for speed, do corner value caching here */
 	CORNER *c;
 	int index;
 
-	/* bestaat corner al? */
+	/* does corner exist? */
 	index = HASH(i, j, k);
 	c = p->corners[index];
 	
@@ -865,7 +857,6 @@ int nextcwedge (int edge, int face)
 /* otherface: return face adjoining edge that is not the given face */
 
 int otherface (int edge, int face)
-/*  int edge, face; */
 {
 	int other = leftface[edge];
 	return face == other? rightface[edge] : other;
@@ -946,8 +937,6 @@ void BKE_freecubetable(void)
  * return 1 if already set; otherwise, set and return 0 */
 
 int setcenter(CENTERLIST *table[], int i, int j, int k)
-/*  CENTERLIST *table[]; */
-/*  int i, j, k; */
 {
 	int index;
 	CENTERLIST *newc, *l, *q;
@@ -977,8 +966,6 @@ void setedge (EDGELIST *table[],
 			  int k1, int i2,
 			  int j2, int k2,
 			  int vid)
-/*  EDGELIST *table[]; */
-/*  int i1, j1, k1, i2, j2, k2, vid; */
 {
 	unsigned int index;
 	EDGELIST *newe;
@@ -1013,8 +1000,6 @@ void setedge (EDGELIST *table[],
 int getedge (EDGELIST *table[],
 			 int i1, int j1, int k1,
 			 int i2, int j2, int k2)
-/*  EDGELIST *table[]; */
-/*  int i1, j1, k1, i2, j2, k2; */
 {
 	EDGELIST *q;
 	
@@ -1051,8 +1036,6 @@ int getedge (EDGELIST *table[],
 /* addtovertices: add v to sequence of vertices */
 
 void addtovertices (VERTICES *vertices, VERTEX v)
-/*  VERTICES *vertices; */
-/*  VERTEX v; */
 {
 	if (vertices->count == vertices->max) {
 		int i;
@@ -1071,8 +1054,6 @@ void addtovertices (VERTICES *vertices, VERTEX v)
 /* vnormal: compute unit length surface normal at point */
 
 void vnormal (MB_POINT *point, PROCESS *p, MB_POINT *v)
-/*  MB_POINT *point, *v; */
-/*  PROCESS *p; */
 {
 	float delta= 0.2f*p->delta;
 	float f = p->function(point->x, point->y, point->z);
@@ -1124,8 +1105,6 @@ void vnormal (MB_POINT *point, PROCESS *p, MB_POINT *v)
 
 
 int vertid (CORNER *c1, CORNER *c2, PROCESS *p)
-/*  CORNER *c1, *c2; */
-/*  PROCESS *p; */
 {
 	VERTEX v;
 	MB_POINT a, b;
@@ -1226,14 +1205,14 @@ void polygonize(PROCESS *mbproc)
 		
 		converge(&in, &out, -1.0, mbproc->function, &mbproc->start);
 	
-		/* NEW1: zorg voor correcte uitgangspositie */
+		/* NEW1: make sure correct starting position */
 		i= (int)floor(mbproc->start.x/mbproc->size );
 		j= (int)floor(mbproc->start.y/mbproc->size );
 		k= (int)floor(mbproc->start.z/mbproc->size );
 		
 		mbproc->start.x= mbproc->start.y= mbproc->start.z= 0.0;
 
-/* dit gaat niet altijd goed: soms wordt een bal niet gevonden. waarom? */
+/* but it doesn't always work, sometimes it doesn't see a ball, but why? (ton) */
 		
 		/* test if cube has been found before */
 		if( setcenter(mbproc->centers, i, j, k)==0 ) {
@@ -1368,7 +1347,7 @@ float init_meta(Object *ob)	/* return totsize */
 	
 	splitIDname(ob->id.name+2, obname, &obnr);
 	
-	/* hoofdarray maken */
+	/* make main array */
 	
 	next_object(0, 0, 0);
 	while(next_object(1, &base, &bob)) {
@@ -1395,7 +1374,7 @@ float init_meta(Object *ob)	/* return totsize */
 						ml= editelems.first;
 					else ml= mb->elems.first;
 
-					/* mat is de matrix om van deze mball in de basis-mbal te komen */
+					/* mat is the matrix to transform from mball into the basis-mbal */
 					mat= new_pgn_element(4*4*sizeof(float));
 					Mat4MulMat4(mat, bob->obmat, obinv);
 					
@@ -1407,7 +1386,7 @@ float init_meta(Object *ob)	/* return totsize */
 			while(ml && totelem<MB_MAXELEM) {
 				a= totelem;
 				
-				/* kopie maken i.v.m. duplicates */
+				/* make a copy because of duplicates */
 				mainb[a]= new_pgn_element(sizeof(MetaElem));
 				*(mainb[a])= *ml;
 				
@@ -1424,7 +1403,7 @@ float init_meta(Object *ob)	/* return totsize */
 		}
 	}
 	
-	/* totsize (= 'manhattan' straal) berekenen */
+	/* totsize (= 'manhattan' radius) */
 	totsize= 0.0;
 	for(a=0; a<totelem; a++) {
 		
@@ -1491,13 +1470,13 @@ void metaball_polygonize(Object *ob)
 		return;
 	}
 
-	/* width is afmeting per polygoniseerkubus */
+	/* width is size per polygonize cube */
 	if(R.flag & R_RENDERING) width= mb->rendersize;
 	else {
 		width= mb->wiresize;
 		if(G.moving && mb->flag==MB_UPDATE_HALFRES) width*= 2;
 	}
-	/* nr_cubes is voor de veiligheid, minmaal de totsize */
+	/* nr_cubes is just for safety, minimum is totsize */
 	nr_cubes= (int)(0.5+totsize/width);
 
 	/* init process */
diff --git a/source/blender/blenkernel/intern/mesh.c b/source/blender/blenkernel/intern/mesh.c
index 6354af7987f..52568ddea1e 100644
--- a/source/blender/blenkernel/intern/mesh.c
+++ b/source/blender/blenkernel/intern/mesh.c
@@ -1,7 +1,6 @@
 
-/*  mesh.c      MIXED MODEL
- * 
- *  jan/maart 95
+/*  mesh.c
+ *
  *  
  * 
  * $Id$
@@ -100,7 +99,7 @@ int update_realtime_texture(TFace *tface, double time)
 	if(ima->tpageflag & IMA_TWINANIM) {
 		if(ima->twend >= ima->xrep*ima->yrep) ima->twend= ima->xrep*ima->yrep-1;
 		
-		/* check: zit de bindcode niet het array? Vrijgeven. (nog doen) */
+		/* check: is the bindcode not in the array? Then free. (still to do) */
 		
 		diff = (float)(time-ima->lastupdate);
 
@@ -156,7 +155,7 @@ void unlink_mesh(Mesh *me)
 }
 
 
-/* niet mesh zelf vrijgeven */
+/* do not free mesh itself */
 void free_mesh(Mesh *me)
 {
 
@@ -276,7 +275,7 @@ void make_local_tface(Mesh *me)
 	tface= me->tface;
 	while(a--) {
 		
-		/* speciaal geval: ima altijd meteen lokaal */
+		/* special case: ima always local immediately */
 		if(tface->tpage) {
 			ima= tface->tpage;
 			if(ima->id.lib) {
@@ -295,11 +294,11 @@ void make_local_mesh(Mesh *me)
 	Object *ob;
 	Mesh *men;
 	int local=0, lib=0;
-	
-	/* - zijn er alleen lib users: niet doen
-	 * - zijn er alleen locale users: flag zetten
-	 * - mixed: copy
-	 */
+
+	/* - only lib users: do nothing
+	    * - only local users: set flag
+	    * - mixed: make copy
+	    */
 	
 	if(me->id.lib==0) return;
 	if(me->id.us==1) {
@@ -501,7 +500,7 @@ void make_orco_mesh(Mesh *me)
 				orco[1]= (fp[1]-me->loc[1])/me->size[1];
 				orco[2]= (fp[2]-me->loc[2])/me->size[2];
 				
-				/* mvert alleen ophogen als totvert <= kb->totelem */
+				/* only increase mvert when totvert <= kb->totelem */
 				if(a<kb->totelem) fp+=3;
 			}
 		}
@@ -517,7 +516,7 @@ void make_orco_mesh(Mesh *me)
 			orco[1]= (mvert->co[1]-me->loc[1])/me->size[1];
 			orco[2]= (mvert->co[2]-me->loc[2])/me->size[2];
 			
-			/* mvert alleen ophogen als totvert <= me->totvert */
+			/* only increase mvert when totvert <= me->totvert */
 			if(a<me->totvert) mvert++;
 		}
 	}
@@ -560,7 +559,7 @@ void test_index_mface(MFace *mface, int nr)
 		nr--;
 	}
 
-	/* voorkom dat een nul op de verkeerde plek staat */
+	/* prevent a zero at wrong index location */
 	if(nr==2) {
 		if(mface->v2==0) SWAP(int, mface->v1, mface->v2);
 	}
@@ -608,7 +607,7 @@ void test_index_mface(MFace *mface, int nr)
 
 		void test_index_mface()
 
-	but it fixes texture coordinates as well.
+	but it fixes texture coordinates as well. 
 */
 
 #define UVCOPY(t, s) memcpy(t, s, 2 * sizeof(float));
@@ -637,7 +636,7 @@ void test_index_face(MFace *mface, TFace *tface, int nr)
 		nr--;
 	}
 
-	/* voorkom dat een nul op de verkeerde plek staat */
+	/* prevent a zero at wrong index location */
 	if(nr==2) {
 		if(mface->v2==0) SWAP(int, mface->v1, mface->v2);
 	}
@@ -854,14 +853,14 @@ void nurbs_to_mesh(Object *ob)
 	cu= ob->data;
 
 	if(ob->type==OB_CURVE) {
-		/* regel: dl->type INDEX3 altijd vooraan in lijst */
+		/* rule: dl->type INDEX3 always as first in list */
 		dl= cu->disp.first;
 		if(dl->type!=DL_INDEX3) {
 			curve_to_filledpoly(ob->data, &cu->disp);
 		}
 	}
 
-	/* tellen */
+	/* count */
 	dl= cu->disp.first;
 	while(dl) {
 		if(dl->type==DL_SEGM) {
@@ -890,7 +889,7 @@ void nurbs_to_mesh(Object *ob)
 		return;
 	}
 
-	/* mesh maken */
+	/* make mesh */
 	me= add_mesh();
 	me->totvert= totvert;
 	me->totface= totvlak;
@@ -903,7 +902,7 @@ void nurbs_to_mesh(Object *ob)
 	mvert=me->mvert= MEM_callocN(me->totvert*sizeof(MVert), "cumesh1");
 	mface=me->mface= MEM_callocN(me->totface*sizeof(MFace), "cumesh2");
 
-	/* verts en vlakken */
+	/* verts and faces */
 	vertcount= 0;
 
 	dl= cu->disp.first;
@@ -1000,9 +999,9 @@ void nurbs_to_mesh(Object *ob)
 
 				if( (dl->flag & 2)==0 && a==dl->parts-1) break;
 
-				if(dl->flag & 1) {				/* p2 -> p1 -> */
+				if(dl->flag & 1) {			/* p2 -> p1 -> */
 					p1= startvert+ dl->nr*a;	/* p4 -> p3 -> */
-					p2= p1+ dl->nr-1;			/* -----> volgende rij */
+					p2= p1+ dl->nr-1;		/* -----> next row */
 					p3= p1+ dl->nr;
 					p4= p2+ dl->nr;
 					b= 0;
@@ -1049,7 +1048,7 @@ void nurbs_to_mesh(Object *ob)
 	
 	tex_space_mesh(me);
 	
-	/* andere users */
+	/* other users */
 	ob1= G.main->object.first;
 	while(ob1) {
 		if(ob1->data==cu) {
diff --git a/source/blender/blenkernel/intern/object.c b/source/blender/blenkernel/intern/object.c
index 04b6ccede4d..13c3b921dee 100644
--- a/source/blender/blenkernel/intern/object.c
+++ b/source/blender/blenkernel/intern/object.c
@@ -1,6 +1,5 @@
-/* object.c  		MIXED MODEL
- * 
- * jan 95
+/* object.c
+ *
  * 
  * $Id$
  *
@@ -105,7 +104,7 @@
 /* Local function protos */
 static void solve_parenting (Object *ob, Object *par, float slowmat[][4], int simul);
 
-float originmat[3][3];	/* na where_is_object(), kan her en der gebruikt worden */
+float originmat[3][3];	/* after where_is_object(), can be used in other functions (bad!) */
 Object workob;
 
 void clear_workob(void)
@@ -146,12 +145,12 @@ void update_base_layer(Object *ob)
 	}
 }
 
-/* niet object zelf vrijgeven */
+/* do not free object itself */
 void free_object(Object *ob)
 {
 	int a;
 	
-	/* specifieke data loskoppelen */
+	/* disconnect specific data */
 	if(ob->data) {
 		ID *id= ob->data;
 		id->us--;
@@ -212,7 +211,7 @@ void unlink_object(Object *ob)
 	unlink_controllers(&ob->controllers);
 	unlink_actuators(&ob->actuators);
 	
-	/* alle objecten aflopen: parents en bevels */
+	/* check all objects: parents en bevels */
 	obt= G.main->object.first;
 	while(obt) {
 		if(obt->id.lib==0) {
@@ -247,13 +246,13 @@ void unlink_object(Object *ob)
 		obt= obt->id.next;
 	}
 	
-	/* materialen */
+	/* materials */
 	mat= G.main->mat.first;
 	while(mat) {
 	
 		for(a=0; a<8; a++) {
 			if(mat->mtex[a] && ob==mat->mtex[a]->object) {
-				/* eigenlijk testen op lib */
+				/* actually, test for lib here... to do */
 				mat->mtex[a]->object= 0;
 			}
 		}
@@ -289,7 +288,7 @@ void unlink_object(Object *ob)
 		wrld= wrld->id.next;
 	}
 		
-	/* scene's */
+	/* scenes */
 	sce= G.main->scene.first;
 	while(sce) {
 		if(sce->id.lib==0) {
@@ -382,11 +381,11 @@ void make_local_camera(Camera *cam)
 	Object *ob;
 	Camera *camn;
 	int local=0, lib=0;
-	
-	/* - zijn er alleen lib users: niet doen
-	 * - zijn er alleen locale users: flag zetten
-	 * - mixed: copy
-	 */
+
+	/* - only lib users: do nothing
+	    * - only local users: set flag
+	    * - mixed: make copy
+	    */
 	
 	if(cam->id.lib==0) return;
 	if(cam->id.us==1) {
@@ -482,11 +481,11 @@ void make_local_lamp(Lamp *la)
 	Object *ob;
 	Lamp *lan;
 	int local=0, lib=0;
-	
-	/* - zijn er alleen lib users: niet doen
-	 * - zijn er alleen locale users: flag zetten
-	 * - mixed: copy
-	 */
+
+	/* - only lib users: do nothing
+	    * - only local users: set flag
+	    * - mixed: make copy
+	    */
 	
 	if(la->id.lib==0) return;
 	if(la->id.us==1) {
@@ -601,8 +600,8 @@ static char *get_obdata_defname(int type)
 	}
 }
 
-/* algemene add: in G.scene, met layer uit area en default naam */
-/* maakt alle minimaal nodige datablokken aan, zonder vertices etc. */
+/* general add: to G.scene, with layer from area and default name */
+/* creates minimum required data, but without vertices etc. */
 Object *add_object(int type)
 {
 	Object *ob;
@@ -649,7 +648,7 @@ Object *add_object(int type)
 	ob->dupon= 1; ob->dupoff= 0;
 	ob->dupsta= 1; ob->dupend= 100;
 
-	/* Gameengine defaults*/
+	/* Game engine defaults*/
 	ob->mass= ob->inertia= 1.0f;
 	ob->formfactor= 0.4f;
 	ob->damping= 0.04f;
@@ -727,7 +726,7 @@ Object *copy_object(Object *ob)
 	if (actcon)
 		obn->activecon = actcon;
 
-	/* usernummers ophogen */
+	/* increase user numbers */
 	id_us_plus((ID *)obn->data);
 	id_us_plus((ID *)obn->ipo);
 	id_us_plus((ID *)obn->action);
@@ -757,11 +756,11 @@ void make_local_object(Object *ob)
 	Scene *sce;
 	Base *base;
 	int local=0, lib=0;
-	
-	/* - zijn er alleen lib users: niet doen
-	 * - zijn er alleen locale users: flag zetten
-	 * - mixed: copy
-	 */
+
+	/* - only lib users: do nothing
+	    * - only local users: set flag
+	    * - mixed: make copy
+	    */
 	
 	if(ob->id.lib==0) return;
 	if(ob->id.us==1) {
@@ -817,7 +816,7 @@ void make_local_object(Object *ob)
 
 /* *************** CALC ****************** */
 
-/* er zit ook een tijdberekening in de drawobject() */
+/* there is also a timing calculation in drawobject() */
 
 float bluroffs= 0.0;
 int no_speed_curve= 0;
@@ -835,11 +834,11 @@ void disable_speed_curve(int val)
 
 float bsystem_time(Object *ob, Object *par, float cfra, float ofs)
 {
-	/* geeft float terug ( zie ook frame_to_float in ipo.c) */
+	/* returns float ( see frame_to_float in ipo.c) */
 
 	if(no_speed_curve==0) if(ob && ob->ipo) cfra= calc_ipo_time(ob->ipo, cfra);
 	
-	/* tweede field */
+	/* 2nd field */
 	if(R.flag & R_SEC_FIELD) {
 		if(R.r.mode & R_FIELDSTILL); else cfra+= .5;
 	}
@@ -930,7 +929,7 @@ void ob_parcurve(Object *ob, Object *par, float mat[][4])
 	if(cu->path==0 || cu->path->data==0) calc_curvepath(par);
 	if(cu->path==0) return;
 	
-	/* uitzondering afvangen: curve paden die als duplicator worden gebruikt */
+	/* catch exceptions: curve paths used as a duplicator */
 	if(enable_cu_speed) {
 		ctime= bsystem_time(ob, par, (float)G.scene->r.cfra, 0.0);
 		
@@ -999,7 +998,7 @@ void ob_parlimb(Object *ob, Object *par, float mat[][4])
 	float ang=0.0;
 	int cur=0;
 	
-	/* in lokale ob space */
+	/* in local ob space */
 	Mat4One(mat);
 	
 	ika= par->data;
@@ -1058,7 +1057,7 @@ void give_parvert(Object *par, int nr, float *vec)
 			if(me->totvert) {
 				if(nr >= me->totvert) nr= 0;
 				
-				/* is er deform */
+				/* is there a deform */
 				dl= find_displist(&par->disp, DL_VERTS);
 				if(dl) {
 					fp= dl->verts+3*nr;
@@ -1128,7 +1127,7 @@ void ob_parvert3(Object *ob, Object *par, float mat[][4])
 {
 	float cmat[3][3], v1[3], v2[3], v3[3], q[4];
 
-	/* in lokale ob space */
+	/* in local ob space */
 	Mat4One(mat);
 	
 	if ELEM3(par->type, OB_MESH, OB_SURF, OB_CURVE) {
@@ -1182,8 +1181,8 @@ void where_is_object_time(Object *ob, float ctime)
 	int a;
 	int pop; 
 	
-	/* nieuwe versie: correcte parent+vertexparent en track+parent */
-	/* deze berekent alleen de directe relatie met de parent en track */
+	/* new version: correct parent+vertexparent and track+parent */
+	/* this one only calculates direct attached parent and track */
 	/* hij is sneller, maar moet wel de timeoffs in de gaten houden */
 	
 	if(ob==0) return;
@@ -1364,7 +1363,7 @@ void solve_tracking (Object *ob, float targetmat[][4])
 	QuatToMat3(quat, totmat);
 	
 	if(ob->parent && (ob->transflag & OB_POWERTRACK)) {
-		/* 'tijdelijk' : parent info wissen */
+		/* 'temporal' : clear parent info */
 		object_to_mat4(ob, tmat);
 		tmat[0][3]= ob->obmat[0][3];
 		tmat[1][3]= ob->obmat[1][3];
@@ -1383,7 +1382,7 @@ void solve_tracking (Object *ob, float targetmat[][4])
 void where_is_object(Object *ob)
 {
 	
-	/* deze zijn gememcopied */
+	/* these have been mem copied */
 	if(ob->flag & OB_FROMDUPLI) return;
 	
 	where_is_object_time(ob, (float)G.scene->r.cfra);
@@ -1391,6 +1390,7 @@ void where_is_object(Object *ob)
 
 
 void where_is_object_simul(Object *ob)
+/* was written for the old game engine (until 2.04) */
 /* It seems that this function is only called
 for a lamp that is the child of another object */
 {
@@ -1401,11 +1401,9 @@ for a lamp that is the child of another object */
 	float fac1, fac2;
 	int a;
 	
-	/* nieuwe versie: correcte parent+vertexparent en track+parent */
-	/* deze berekent alleen de directe relatie met de parent en track */
-	/* GEEN TIMEOFFS */
+	/* NO TIMEOFFS */
 	
-	/* geen ipo! (ivm dloc en realtime-ipos) */
+	/* no ipo! (because of dloc and realtime-ipos) */
 	ipo= ob->ipo;
 	ob->ipo= NULL;
 
@@ -1435,7 +1433,7 @@ for a lamp that is the child of another object */
 
 	solve_constraints(ob, TARGET_OBJECT, NULL, G.scene->r.cfra);
 	
-	/*  LET OP!!! */
+	/*  WATCH IT!!! */
 	ob->ipo= ipo;
 	
 }
@@ -1569,7 +1567,7 @@ void what_does_parent1(Object *par, int partype, int par1, int par2, int par3)
 	Mat4One(workob.parentinv);
 	workob.parent= par;
 	if(par) 
-		workob.track= par->track;	/* LET OP: NIET ECHT NETJES */
+		workob.track= par->track;	/* WATCH IT: THATS NOT NICE CODE */
 	workob.partype= partype;
 	workob.par1= par1;
 	workob.par2= par2;
diff --git a/source/blender/blenkernel/intern/scene.c b/source/blender/blenkernel/intern/scene.c
index 1bc467e2fd3..c18dadcbd0f 100644
--- a/source/blender/blenkernel/intern/scene.c
+++ b/source/blender/blenkernel/intern/scene.c
@@ -1,7 +1,5 @@
 
-/*  scene.c      MIXED MODEL
- * 
- *  jan 95
+/*  scene.c
  *  
  * 
  * $Id$
@@ -103,7 +101,7 @@ void free_avicodecdata(AviCodecData *acd)
 	}
 }
 
-/* niet scene zelf vrijgeven */
+/* do not free scene itself */
 void free_scene(Scene *sce)
 {
 	Base *base;
@@ -113,7 +111,7 @@ void free_scene(Scene *sce)
 		base->object->id.us--;
 		base= base->next;
 	}
-	/* pas op: niet objects vrijgeven! */
+	/* do not free objects! */
 
 	BLI_freelistN(&sce->base);
 	free_editing(sce->ed);
@@ -185,15 +183,14 @@ int object_in_scene(Object *ob, Scene *sce)
 
 void sort_baselist(Scene *sce)
 {
-	/* alles in volgorde van parent en track */
+	/* in order of parent and track */
 	ListBase tempbase, noparentbase, notyetbase;
 	Base *base, *test=NULL;
 	Object *par;
 	int doit, domore= 0, lastdomore=1;
 	
 	
-	/* volgorde gelijk houden als er niets veranderd is! */
-	/* hier waren problemen met campos array's: volgorde camera's is van belang */
+	/* keep same order when nothing has changed! */
 	
 	while(domore!=lastdomore) {
 
@@ -347,7 +344,7 @@ void set_scene_bg(Scene *sce)
 	
 	G.scene= sce;
 	
-	/* objecten deselecteren (voor dataselect) */
+	/* deselect objects (for dataselect) */
 	ob= G.main->object.first;
 	while(ob) {
 		ob->flag &= ~(SELECT|OB_FROMGROUP);
@@ -365,10 +362,10 @@ void set_scene_bg(Scene *sce)
 		group= group->id.next;
 	}
 
-	/* baselijst sorteren */
+	/* sort baselist */
 	sort_baselist(sce);
 
-	/* layers en flags uit bases naar objecten kopieeren */
+	/* copy layers and flags from bases to objects */
 	base= G.scene->base.first;
 	while(base) {
 		
@@ -378,7 +375,7 @@ void set_scene_bg(Scene *sce)
 		flag= base->object->flag & OB_FROMGROUP;
 		base->flag |= flag;
 		
-		base->object->ctime= -1234567.0;	/* forceer ipo */
+		base->object->ctime= -1234567.0;	/* force ipo to be calculated later */
 		base= base->next;
 	}
 
@@ -431,7 +428,7 @@ int next_object(int val, Base **base, Object **ob)
 			
 				
 				
-			/* de eerste base */
+			/* the first base */
 			if(fase==F_START) {
 				*base= G.scene->base.first;
 				if(*base) {
@@ -439,7 +436,7 @@ int next_object(int val, Base **base, Object **ob)
 					fase= F_SCENE;
 				}
 				else {
-					/* uitzondering: een lege scene */
+				    /* exception: empty scene */
 					if(G.scene->set && G.scene->set->base.first) {
 						*base= G.scene->set->base.first;
 						*ob= (*base)->object;
@@ -453,7 +450,7 @@ int next_object(int val, Base **base, Object **ob)
 					if(*base) *ob= (*base)->object;
 					else {
 						if(fase==F_SCENE) {
-							/* de scene is klaar, we gaan door met de set */
+							/* scene is finished, now do the set */
 							if(G.scene->set && G.scene->set->base.first) {
 								*base= G.scene->set->base.first;
 								*ob= (*base)->object;
@@ -474,7 +471,7 @@ int next_object(int val, Base **base, Object **ob)
 						
 					}
 				}
-				/* dupli's afhandelen */
+				/* handle dupli's */
 				if(dupob) {
 					
 					*ob= dupob;
diff --git a/source/blender/blenkernel/intern/screen.c b/source/blender/blenkernel/intern/screen.c
index c009a6be945..e20ec017729 100644
--- a/source/blender/blenkernel/intern/screen.c
+++ b/source/blender/blenkernel/intern/screen.c
@@ -1,5 +1,5 @@
 
-/* screen.c  dec/jan 93/94		GRAPHICS
+/* screen.c
  * 
  * $Id$
  *
diff --git a/source/blender/blenkernel/intern/subsurf.c b/source/blender/blenkernel/intern/subsurf.c
index dd7bfc3dafd..57582364751 100644
--- a/source/blender/blenkernel/intern/subsurf.c
+++ b/source/blender/blenkernel/intern/subsurf.c
@@ -1,5 +1,5 @@
 
-/*  subsurf.c      MIXED MODEL
+/*  subsurf.c
  * 
  *  jun 2001
  *  
diff --git a/source/blender/blenkernel/intern/text.c b/source/blender/blenkernel/intern/text.c
index 462b989a081..9a71e6ac4be 100644
--- a/source/blender/blenkernel/intern/text.c
+++ b/source/blender/blenkernel/intern/text.c
@@ -1,4 +1,6 @@
-/**
+/* text.c
+ *
+ *
  * $Id$
  *
  * ***** BEGIN GPL/BL DUAL LICENSE BLOCK *****
diff --git a/source/blender/blenkernel/intern/texture.c b/source/blender/blenkernel/intern/texture.c
index c4ed7865e4c..7bb863d8c37 100644
--- a/source/blender/blenkernel/intern/texture.c
+++ b/source/blender/blenkernel/intern/texture.c
@@ -1,4 +1,6 @@
-/**
+/* texture.c
+ *
+ *
  * $Id$
  *
  * ***** BEGIN GPL/BL DUAL LICENSE BLOCK *****
@@ -87,7 +89,7 @@ extern int Talpha;
 
 /* ------------------------------------------------------------------------- */
 
-/* Alle support voor plugin textures: */
+/* All support for plugin textures: */
 int test_dlerr(const char *name,  const char *symbol)
 {
 	char *err;
@@ -200,7 +202,7 @@ void free_plugin_tex(PluginTex *pit)
 {
 	if(pit==0) return;
 		
-	/* geen PIL_dynlib_close: dezelfde plugin kan meerdere keren geopend zijn: 1 handle */
+	/* no PIL_dynlib_close: same plugin can be opened multiple times, 1 handle */
 	MEM_freeN(pit);	
 }
 
@@ -251,18 +253,18 @@ int do_colorband(ColorBand *coba)
 	
 	cbd1= coba->data;
 	
-	if(Tin <= cbd1->pos) {	/* helemaal links */
+	if(Tin <= cbd1->pos) {	/* ultimate left */
 		Tr= cbd1->r;
 		Tg= cbd1->g;
 		Tb= cbd1->b;
 		Ta= cbd1->a;
 	}
 	else {
-		/* we zoeken de eerste pos > Tin */
+		/* we're looking for first pos > Tin */
 	
 		for(a=0; a<coba->tot; a++, cbd1++) if(cbd1->pos >= Tin) break;
 			
-		if(a==coba->tot) {	/* helemaal rechts */
+		if(a==coba->tot) {	/* ultimate right */
 			cbd1--;
 			Tr= cbd1->r;
 			Tg= cbd1->g;
@@ -274,7 +276,7 @@ int do_colorband(ColorBand *coba)
 			fac= (Tin-cbd1->pos)/(cbd2->pos-cbd1->pos);
 			
 			if(coba->ipotype==2) {
-				/* ipo van r naar l: 3 2 1 0 */
+				/* ipo from right to left: 3 2 1 0 */
 				
 				if(a>=coba->tot-1) cbd0= cbd1;
 				else cbd0= cbd1+1;
@@ -432,15 +434,15 @@ void make_local_texture(Tex *tex)
 	World *wrld;
 	Lamp *la;
 	int a, local=0, lib=0;
-	
-	/* - zijn er alleen lib users: niet doen
-	 * - zijn er alleen locale users: flag zetten
-	 * - mixed: copy
-	 */
+
+	/* - only lib users: do nothing
+	    * - only local users: set flag
+	    * - mixed: make copy
+	    */
 	
 	if(tex->id.lib==0) return;
 
-	/* speciaal geval: ima altijd meteen lokaal */
+	/* special case: ima always local immediately */
 	if(tex->ima) {
 		tex->ima->id.lib= 0;
 		tex->ima->id.flag= LIB_LOCAL;
@@ -575,7 +577,7 @@ void init_render_texture(Tex *tex)
 	/* is also used as signal */
 	tex->nor= 0;
 
-	/* imap testen */
+	/* imap test */
 	if(tex->frames && tex->ima && tex->ima->name) {	/* frames */
 		strcpy(name, tex->ima->name);
 		
@@ -589,7 +591,7 @@ void init_render_texture(Tex *tex)
 			}
 		}
 		else {
-				/* voor patch field-ima rendering */
+				/* for patch field-ima rendering */
 			tex->ima->lastframe= imanr;
 			
 			BLI_stringdec(name, head, tail, &numlen);
@@ -989,7 +991,7 @@ int plugintex(Tex *tex, float *texvec, float *dxt, float *dyt)
 	return rgbnor;
 }
 
-/* *************** PROJEKTIES ******************* */
+/* *************** PROJECTIONS ******************* */
 
 void tubemap(float x, float y, float z, float *adr1, float *adr2)
 {
@@ -1012,7 +1014,7 @@ void spheremap(float x, float y, float z, float *adr1, float *adr2)
 	len= sqrt(x*x+y*y+z*z);
 	if(len>0.0) {
 		
-		if(x==0.0 && y==0.0) *adr1= 0.0;	/* anders domain error */
+		if(x==0.0 && y==0.0) *adr1= 0.0;	/* othwise domain error */
 		else *adr1 = (1.0 - atan2(x,y)/M_PI )/2.0;
 		
 		z/=len;
@@ -1184,7 +1186,7 @@ void do_2d_mapping(MTex *mtex, float *t, float *dxt, float *dyt)
 			dyt[1]/= 2.0;
 		}
 		else if ELEM(wrap, MTEX_TUBE, MTEX_SPHERE) {
-			/* uitzondering: de naad achter (y<0.0) */
+			/* exception: the seam behind (y<0.0) */
 			ok= 1;
 			if(t[1]<=0.0) {
 				fx= t[0]+dxt[0];
@@ -1237,7 +1239,7 @@ void do_2d_mapping(MTex *mtex, float *t, float *dxt, float *dyt)
 			dyt[1]/= 2.0;
 		}
 		
-		/* als area dan dxt[] en dyt[] opnieuw berekenen */
+		/* if area, then reacalculate dxt[] and dyt[] */
 		if(areaflag) {
 			fx= area[0]; 
 			fy= area[1];
@@ -1337,8 +1339,8 @@ void do_material_tex()
 		facm, factt, facmm, facmul = 0.0, stencilTin=1.0;
 	float texvec[3], dxt[3], dyt[3], tempvec[3], norvec[3];
 	int tex_nr, rgbnor= 0;
-	
-	/* hier flag testen of er wel tex is */
+
+	/* here: test flag if there's a tex (todo) */
 	
 	mat_col=mat_colspec=mat_colmir=mat_ref=mat_spec=mat_har=mat_emit=mat_alpha= R.mat;
 	
@@ -1352,7 +1354,7 @@ void do_material_tex()
 			tex= mtex->tex;
 			if(tex==0) continue;
 			
-			/* welke coords */
+			/* which coords */
 			if(mtex->texco==TEXCO_ORCO) {
 				co= R.lo; dx= O.dxlo; dy= O.dylo;
 			}
@@ -1375,7 +1377,7 @@ void do_material_tex()
 					}
 				}
 				else {
-					/* als object niet bestaat geen orco's gebruiken (zijn niet geinitialiseerd */
+					/* if object doesn't exist, do not use orcos (not initialized) */
 					co= R.co;
 					dx= O.dxco; dy= O.dyco;
 				}
@@ -1405,7 +1407,7 @@ void do_material_tex()
 			
 			if(tex->type==TEX_IMAGE) {
 				
-				/* nieuw: eerst coords verwisselen, dan map, dan trans/scale */
+				/* new: first swap coords, then map, then trans/scale */
 				
 				/* placement */
 				if(mtex->projx) texvec[0]= co[mtex->projx-1];
@@ -1436,7 +1438,7 @@ void do_material_tex()
 
 				do_2d_mapping(mtex, texvec, dxt, dyt);
 				
-				/* translate en scale */
+				/* translate and scale */
 				texvec[0]= mtex->size[0]*(texvec[0]-0.5) +mtex->ofs[0]+0.5;
 				texvec[1]= mtex->size[1]*(texvec[1]-0.5) +mtex->ofs[1]+0.5;
 				if(R.osatex) {
@@ -1622,7 +1624,7 @@ void do_material_tex()
 					
 					Normalise(R.vn);
 					
-					/* hierdoor wordt de bump aan de volgende texture doorgegeven */
+					/* this makes sure the bump is passed on to the next texture */
 					R.orn[0]= R.vn[0];
 					R.orn[1]= -R.vn[1];
 					R.orn[2]= R.vn[2];
@@ -1777,7 +1779,7 @@ void do_halo_tex(HaloRen *har, float xn, float yn, float *colf)
 	
 	rgb= multitex(mtex->tex, texvec, dxt, dyt);
 
-	/* texture uitgang */
+	/* texture output */
 	if(rgb && (mtex->texflag & MTEX_RGBTOINT)) {
 		Tin= (0.35*Tr+0.45*Tg+0.2*Tb);
 		rgb= 0;
@@ -1857,12 +1859,12 @@ void do_sky_tex()
 	float tempvec[3], texvec[3], dxt[3], dyt[3];
 	int tex_nr, rgb= 0, ok;
 	
-	
-	/* hier flag testen of er wel tex is */
+
+	/* todo: add flag to test if there's a tex */
 	
 	wrld_hor= wrld_zen= G.scene->world;
 
-	/* The 6 here is rather arbitrary, it seems. */
+	/* The 6 here is the max amount of channels for a world */
 	for(tex_nr=0; tex_nr<6; tex_nr++) {
 		if(R.wrld.mtex[tex_nr]) {
 			mtex= R.wrld.mtex[tex_nr];
@@ -1870,7 +1872,7 @@ void do_sky_tex()
 			if(mtex->tex==0) continue;
 			/* if(mtex->mapto==0) continue; */
 			
-			/* welke coords */
+			/* which coords */
 			co= R.lo;
 			
 			/* Grab the mapping settings for this texture */
@@ -1898,7 +1900,7 @@ void do_sky_tex()
 			
 			rgb= multitex(mtex->tex, texvec, dxt, dyt);
 			
-			/* texture uitgang */
+			/* texture output */
 			if(rgb && (mtex->texflag & MTEX_RGBTOINT)) {
 				Tin= (0.35*Tr+0.45*Tg+0.2*Tb);
 				rgb= 0;
@@ -1989,7 +1991,7 @@ void do_sky_tex()
 						wrld_zen= &R.wrld;
 					}
 					else {
-						/* anders blijft zenRGB hangen */
+						/* otherwise zenRGB undefined */
 						R.wrld.zenr= wrld_zen->zenr;
 						R.wrld.zeng= wrld_zen->zeng;
 						R.wrld.zenb= wrld_zen->zenb;
@@ -2031,8 +2033,6 @@ void do_lamp_tex(LampRen *la, float *lavec)
 	float texvec[3], dxt[3], dyt[3], tempvec[3];
 	int tex_nr, rgb= 0;
 	
-	/* hier flag testen of er wel tex is */
-	
 	la_col= la->org;
 	
 	tex_nr= 0;
@@ -2045,7 +2045,7 @@ void do_lamp_tex(LampRen *la, float *lavec)
 			tex= mtex->tex;
 			if(tex==0) continue;
 			
-			/* welke coords */
+			/* which coords */
 			if(mtex->texco==TEXCO_OBJECT) {
 				ob= mtex->object;
 				if(ob) {
@@ -2127,7 +2127,7 @@ void do_lamp_tex(LampRen *la, float *lavec)
 				do_2d_mapping(mtex, texvec, dxt, dyt);
 				
 				if(mtex->mapto & MAP_NORM) {
-					/* de pointer bepaalt of er gebumpt wordt */
+					/* the pointer defines if bump happens */
 					tex->nor= R.vn;
 					if(mtex->maptoneg & MAP_NORM) tex->norfac= -mtex->norfac;
 					else tex->norfac= mtex->norfac;
@@ -2139,7 +2139,7 @@ void do_lamp_tex(LampRen *la, float *lavec)
 			
 			
 			
-			/* texture uitgang */
+			/* texture output */
 			if(rgb && (mtex->texflag & MTEX_RGBTOINT)) {
 				Tin= (0.35*Tr+0.45*Tg+0.2*Tb);
 				rgb= 0;
@@ -2243,7 +2243,7 @@ void externtex(MTex *mtex, float *vec)
 		do_2d_mapping(mtex, texvec, dxt, dyt);
 		
 		if(mtex->mapto & MAP_NORM) {
-			/* de pointer bepaalt of er gebumpt wordt */
+			/* the pointer defines if there's bump */
 			tex->nor= R.vn;
 			if(mtex->maptoneg & MAP_NORM) tex->norfac= -mtex->norfac;
 			else tex->norfac= mtex->norfac;
diff --git a/source/blender/blenkernel/intern/world.c b/source/blender/blenkernel/intern/world.c
index f38911cedec..cfcbac0e80a 100644
--- a/source/blender/blenkernel/intern/world.c
+++ b/source/blender/blenkernel/intern/world.c
@@ -1,7 +1,6 @@
 
-/*  world.c        MIX MODEL
+/*  world.c
  * 
- *  april 95
  * 
  * $Id$
  *
@@ -121,11 +120,11 @@ void make_local_world(World *wrld)
 	Scene *sce;
 	World *wrldn;
 	int local=0, lib=0;
-	
-	/* - zijn er alleen lib users: niet doen
-	 * - zijn er alleen locale users: flag zetten
-	 * - mixed: copy
-	 */
+
+	/* - only lib users: do nothing
+	    * - only local users: set flag
+	    * - mixed: make copy
+	    */
 	
 	if(wrld->id.lib==0) return;
 	if(wrld->id.us==1) {
@@ -192,7 +191,7 @@ void init_render_world()
 		if(G.scene->camera && G.scene->camera->type==OB_CAMERA) {
 			Camera *cam= G.scene->camera->data;
 			if(cam->type==CAM_ORTHO) {
-				/* dit is maar ongeveer */
+				/* this is an estimation */
 				R.wrld.miststa+= (float)fabs(R.viewmat[3][2]);
 			}
 		}