// control de entrada para el valor de x del punto de inicio del segmento;
entrada_x1:=crear_entrada(-8.5,-8,3,1,'p1_x');
asignar_valor(entrada_x1,p1_x);
asignar_color(entrada_x1,blanco);
// control de entrada para el valor de y del punto de inicio del segmento;
entrada_y1:=crear_entrada(-5,-8,3,1,'p1_y');
asignar_valor(entrada_y1,p1_y);
asignar_color(entrada_y1,blanco);
// control de entrada para el valor de x del punto de final del segmento;
entrada_x2:=crear_entrada(-1.5,-8,3,1,'p2_x');
asignar_valor(entrada_x2,p2_x);
asignar_color(entrada_x2,blanco);
// control de entrada para el valor de y del punto de final del segmento;
entrada_y2:=crear_entrada(2,-8,3,1,'p2_y');
asignar_valor(entrada_y2,p2_y);
asignar_color(entrada_y2,blanco);
// control de entrada para el valor cuantos puntos dibujar;
entrada_cuantos:=crear_entrada(7,-8,6,1,'cuantos_puntos');
asignar_valor(entrada_cuantos,cuantos_puntos);
asignar_color(entrada_cuantos,blanco);
// botón para dibujar el segmento, con la acción especial Ejecutar();
dibujar:=crear_boton(0,-9.5,6,1);
asignar_etiqueta(dibujar,'Dibujar segmento');
asignar_accion(dibujar,'Ejecutar');
asignar_color(dibujar,verde);
// se dibuja el segmento;
segmento(p1_x,p1_y,p2_x,p2_y,cuantos_puntos);
Descartes