CLEAR num_lines = 20000 &&integer, number of lines a_pulse = 200 && some integer less than num_lines b_pulse = 5 &&some integer less than num_lines *for (count = 0; count < num_lines; count++) { * cur_x = cos((-2*PI*a_pulse*count)/num_lines) + * cos((-2*PI*b_pulse*count)/num_lines); * cur_y = sin((-2*PI*a_pulse*count)/num_lines) + * sin((-2*PI*b_pulse*count)/num_lines); * draw line from (prev_x, prev_y) to (cur_x, cur_y) *prev_x = cur_x; prev_y = cur_y; * prev_x = 0 prev_y = 0 for icount= 0 to num_lines cur_x = cos((-2*PI()*a_pulse*icount)/num_lines) +; cos((-2*PI()*b_pulse*icount)/num_lines) cur_y = sin((-2*PI()*a_pulse*icount)/num_lines) +; sin((-2*PI()*b_pulse*icount)/num_lines) cur_x=cur_x *200 cur_y=cur_y *200 _screen.line(prev_x, prev_y, cur_x, cur_y) prev_x = cur_x prev_y = cur_y endfor