fact: Definition display_curve_element (tr_x tr_y scale : Q) (e : curve_element) := match e with | straight p1 p2 => display_segment tr_x tr_y scale (apt_val p1, apt_val p2) | bezier p1 p2 p3 => append (display_point tr_x tr_y scale (apt_val p1)) (append " moveto " (append (display_point tr_x tr_y scale (weighted_sum (apt_val p1) (apt_val p2) (1/3))) (append " " (append (display_point tr_x tr_y scale (weighted_sum (apt_val p3) (apt_val p2) (1/3))) (append " " (append (display_point tr_x tr_y scale (apt_val p3)) (append " curveto % " (append (Z_to_string (Z.of_nat (head 0%nat (cell_indices p2)))) " ")))))))) end.
imports: mathcomp(all_ssreflect) ZArith QArith List String OrderedType OrderedTypeEx FMapAVL