goboscript is life @aspizu main.gs: costumes "blank.svg"; onflag { set_pen_size 2; forever { erase_all; cringe_circle 110, 0, 100, 8, sin(timer()*128)*0.5+0.5; chad_circle 0-110, 0, 100, 8, sin(timer()*128)*0.5+0.5; } } proc cringe_circle x, y, r, res, width { local i = 0; local temp = 360 / $res; repeat $res { draw_triangle $x, $y, $x + sin(i) * $r * $width, $y + cos(i) * $r, $x + sin(i+temp) * $r * $width, $y + cos(i+temp) * $r; i += temp; } } proc chad_circle x, y, r, res, width { local i = 0; local temp = 360 / $res; repeat $res - 1 { draw_triangle $x, $y + $r, $x + sin(i) * $r * $width, $y + cos(i) * $r, $x + sin(i+temp) * $r * $width, $y + cos(i+temp) * $r; i += temp; } } proc draw_triangle a, b, c, d, e, f { goto $a, $b; pen_down; goto $c, $d; goto $e, $f; goto $a, $b; pen_up; }
