wip pen

Author: NishiOwO

include/ba_runtime.h

@@ -74,6 +74,7 @@ typedef struct ba_thread_stack	   ba_thread_stack_t;
 typedef struct ba_thread_wait	   ba_thread_wait_t;
 typedef union ba_runtime_union	   ba_runtime_union_t;
 typedef struct ba_audio_stream	   ba_audio_stream_t;
+typedef struct ba_pen		   ba_pen_t;
 
 typedef unsigned char* (*ba_load_file_t)(ba_runtime_t* rt, const char* path, int* size);
 typedef void (*ba_swap_buffer_t)(ba_runtime_t* rt);
@@ -175,12 +176,19 @@ union ba_runtime_union {
 	ba_zip_t*   zip;
 };
 
+struct ba_pen {
+	double color[3];
+
+	double* coords;
+};
+
 struct ba_runtime {
 	ba_cJSON* json;
 
 	ba_target_t** targets;
 	ba_thread_t** threads;
 	ba_sprite_t** sprites;
+	ba_pen_t**    pens;
 
 	ba_audio_t* audio;
 
@@ -299,6 +307,9 @@ struct ba_inputkv {
 
 struct ba_sprite {
 	ba_target_t* target;
+	double	     pen_color[3];
+
+	ba_pen_t* pen;
 
 	int costume;
 
@@ -338,6 +349,7 @@ BADECL ba_sprite_t* ba_runtime_get_stage_sprite(ba_runtime_t* rt);
 BADECL ba_bool	    ba_runtime_load_path(ba_runtime_t* rt, const char* path);
 BADECL void	    ba_runtime_block_handler(ba_runtime_t* rt, const char* name, ba_thread_block_handler_t handler);
 BADECL void	    ba_runtime_shadow_handler(ba_runtime_t* rt, const char* name, ba_thread_shadow_handler_t handler);
+BADECL ba_pen_t*    ba_runtime_pen(ba_runtime_t* rt);
 
 /* audio.c */
 BADECL ba_audio_t*	  ba_audio_open(ba_runtime_t* rt);
@@ -415,6 +427,7 @@ BADECL void ba_block_sound(ba_runtime_t* rt);
 BADECL void ba_block_event(ba_runtime_t* rt);
 BADECL void ba_block_control(ba_runtime_t* rt);
 BADECL void ba_block_text2speech(ba_runtime_t* rt);
+BADECL void ba_block_pen(ba_runtime_t* rt);
 
 /* shadows */
 BADECL void ba_shadow_sound(ba_runtime_t* rt);

lib/audio.c

@@ -62,7 +62,8 @@ static void data_callback(ma_device* device, void* output, const void* input, ma
 		if(buffer[i] < -1) buffer[i] = -1;
 		if(buffer[i] > 1) buffer[i] = 1;
 
-		out[i] = buffer[i] * 32767;
+		out[i] = 0;
+		buffer[i] * 32767;
 	}
 
 	for(i = 0; i < arrlen(streams); i++) ba_audio_stream_free(streams[i]);

lib/block/motion.c

@@ -10,6 +10,11 @@ static int motion_movesteps(ba_thread_t* thread) {
 		thread->sprite->x += c * atof(str);
 		thread->sprite->y += s * atof(str);
 
+		if(thread->sprite->pen != NULL) {
+			arrput(thread->sprite->pen->coords, thread->sprite->x);
+			arrput(thread->sprite->pen->coords, thread->sprite->y);
+		}
+
 		free(str);
 	}
 
@@ -58,6 +63,11 @@ static int motion_gotoxy(ba_thread_t* thread) {
 	if((str1 = ba_thread_input(thread, "X")) != NULL && (str2 = ba_thread_input(thread, "Y")) != NULL) {
 		thread->sprite->x = atof(str1);
 		thread->sprite->y = atof(str2);
+
+		if(thread->sprite->pen != NULL) {
+			arrput(thread->sprite->pen->coords, thread->sprite->x);
+			arrput(thread->sprite->pen->coords, thread->sprite->y);
+		}
 	}
 
 	if(str1 != NULL) free(str1);

lib/block/pen.c

@@ -0,0 +1,24 @@
+#include <ba_runtime.h>
+
+static int pen_penDown(ba_thread_t* thread) {
+	if(thread->sprite->pen != NULL) return ba_status_next;
+
+	thread->sprite->pen = ba_runtime_pen(thread->runtime);
+
+	memcpy(thread->sprite->pen->color, thread->sprite->pen_color, sizeof(double) * 3);
+	arrput(thread->sprite->pen->coords, thread->sprite->x);
+	arrput(thread->sprite->pen->coords, thread->sprite->y);
+
+	return ba_status_next;
+}
+
+static int pen_penUp(ba_thread_t* thread) {
+	thread->sprite->pen = NULL;
+
+	return ba_status_next;
+}
+
+void ba_block_pen(ba_runtime_t* rt) {
+	ba_runtime_block_handler(rt, "pen_penDown", pen_penDown);
+	ba_runtime_block_handler(rt, "pen_penUp", pen_penUp);
+}

lib/render.c

@@ -40,9 +40,36 @@ void ba_render(ba_runtime_t* rt) {
 	glClear(GL_COLOR_BUFFER_BIT);
 
 	glEnable(GL_TEXTURE_2D);
+	/* draw stage */
 	for(i = 0; i < arrlen(rt->sprites); i++) {
 		if(rt->sprites[i]->target->stage) draw_sprite(rt, rt->sprites[i]);
 	}
+	glDisable(GL_TEXTURE_2D);
+
+	for(i = 0; i < arrlen(rt->pens); i++) {
+		glColor3f(rt->pens[i]->color[0], rt->pens[i]->color[1], rt->pens[i]->color[2]);
+
+		if(arrlen(rt->pens[i]->coords) == 2) {
+			glBegin(GL_POINT);
+			glVertex2f(rt->pens[i]->coords[0], rt->pens[i]->coords[1]);
+			glEnd();
+		} else if(arrlen(rt->pens[i]->coords) > 2) {
+			GLfloat* c = malloc(sizeof(*c) * arrlen(rt->pens[i]->coords));
+			int	 j;
+
+			for(j = 0; j < arrlen(rt->pens[i]->coords); j++) c[j] = rt->pens[i]->coords[j];
+
+			glEnableClientState(GL_VERTEX_ARRAY);
+			glVertexPointer(2, GL_FLOAT, 0, c);
+			glDrawArrays(GL_LINE_STRIP, 0, arrlen(rt->pens[i]->coords) / 2);
+			glDisableClientState(GL_VERTEX_ARRAY);
+
+			free(c);
+		}
+	}
+
+	glEnable(GL_TEXTURE_2D);
+	/* draw sprites. */
 	for(i = 0; i < arrlen(rt->sprites); i++) {
 		if(!rt->sprites[i]->target->stage) draw_sprite(rt, rt->sprites[i]);
 	}

lib/runtime.c

@@ -22,6 +22,7 @@ ba_bool ba_runtime_init(ba_runtime_t* rt) {
 	ba_block_control(rt);
 
 	ba_block_text2speech(rt);
+	ba_block_pen(rt);
 
 	ba_shadow_sound(rt);
 	ba_shadow_operator(rt);
@@ -343,3 +344,13 @@ void ba_runtime_block_handler(ba_runtime_t* rt, const char* name, ba_thread_bloc
 void ba_runtime_shadow_handler(ba_runtime_t* rt, const char* name, ba_thread_shadow_handler_t handler) {
 	shput(rt->shadow_handlers, name, handler);
 }
+
+ba_pen_t* ba_runtime_pen(ba_runtime_t* rt) {
+	ba_pen_t* pen = malloc(sizeof(*pen));
+
+	memset(pen, 0, sizeof(*pen));
+
+	arrput(rt->pens, pen);
+
+	return pen;
+}

lib/sprite.c

@@ -12,6 +12,10 @@ ba_sprite_t* ba_sprite_start(ba_runtime_t* rt, ba_target_t* target) {
 	sprite->y     = 0;
 	sprite->angle = 0;
 
+	sprite->pen_color[0] = 0;
+	sprite->pen_color[1] = 0;
+	sprite->pen_color[2] = 1;
+
 	arrput(rt->sprites, sprite);
 
 	sh_new_strdup(sprite->variables);

src/glfw.c

@@ -20,7 +20,7 @@ static void swap_interval(ba_runtime_t* rt, int interval) {
 int main(int argc, char** argv) {
 	ba_runtime_t ba;
 	int	     i;
-	double scale = 1;
+	double	     scale = 1;
 
 	ba.param.turbo = ba_false;
 	ba.param.fps   = 30;