Pascal/Turbo Pascal - funcion para dibujar un circulo modo grafico

 
Vista:

funcion para dibujar un circulo modo grafico

Publicado por Franco Sanguedolce (32 intervenciones) el 12/07/2014 17:19:21
Buenas gente, quisiera saber si alguien tiene alguna idea de como dibujar un circulo en modo grafico. Ya se que existe la funcion circle(x,y,rad) pero la idea es saber como hacerlo sin ella, debo crear una funcion que haga lo mismo... si alguien puede darme alguna idea seria bienvenida, muchas gracias...
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

funcion para dibujar un circulo modo grafico

Publicado por ramon (39 intervenciones) el 13/07/2014 00:54:59
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
{A ver si esto te sirve}
 
program elcirculo;
 uses
    crt, graph;
 
 var
   drive, modo : integer;
 
  procedure initgrafico;
  begin
      drive := detect;
      initgraph(drive,modo,'c:\tp\bgi');
      if graphresult <> 0 then
      writeln('  Error Directorio [bgi] No Encontrado ');
  end;
 
 
 
  procedure circulo(xc, yc, radio : integer; color : byte);
   var
     ang : integer;
     x1, y1 : integer;
  begin
     ang := 0;
   repeat
     x1 := round(radio * cos(ang));
     y1 := round(radio * sin(ang));
     putpixel(x1 + xc, y1 + yc, color);
     inc(ang);
   until ang > 1256;
  end;
 
  begin
      initgrafico;
      circulo(200,100,24,15);  {Datos 1=posicion x  2=posicion y
                                      3=radio del circulo 4=color
                                        del circulo}
      outtextxy(100,194,'Pulse Una Tecla');
      readkey;
      closegraph;
  end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil

funcion para dibujar un circulo modo grafico

Publicado por Pico (5 intervenciones) el 13/07/2014 13:37:31
Como se ve en el código de ramon, cada punto de una circunferencia, del grado que quieras de los 360, lo da el seno de cada grado el valor X y el coseno el valor Y. Eso lo multiplicas por el radio que quieras y tienes una circunferencia.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar