Ying Yang: Various ways to create it.Now I have ANIMATED it !
lazarus / 39-Graphics

----------------------------------------------------------------------
Boleeman · 2025-04-16 14:06

Creating the Ying Yang symbol

Here is one way using ellipses/circles and pie

----------------------------------------------------------------------
Josh · 2025-04-16 21:16

using bgrabitmap and Antialias

Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i const
Const_DegToRad=3.141592654/180; procedure TForm1.FormPaint(Sender:
TObject);var Diameter,radius,halfRadius,x,y:single;   
penwidth:single=5.5;    b:tbgrabitmap;begin  if width<height then
Diameter:=width-penwidth else Diameter:=height-penwidth; 
halfRadius:=Diameter / 4;  radius:=Diameter / 2;  x:=(width-Diameter)
/ 2;  y:=(height-Diameter) / 2;  b:=tbgrabitmap.Create(width,height); 
//draw white circle  b.EllipseAntialias(x+radius,y+radius,radius,radiu
s,clblack,penwidth,clwhite);  //draw half circle on right  b.FillPie(x
+radius,y+radius,radius,radius,90*Const_DegToRad,270*Const_DegToRad,cl
black);  //draw top circle  b.EllipseAntialias(x+radius,y+halfRadius,h
alfRadius,halfRadius,clblack,0,clwhite);  //draw bottom circle  b.Elli
pseAntialias(x+radius,y+halfRadius+radius,halfRadius,halfRadius,clwhit
e,0,clblack);  form1.Canvas.Draw(0,0,b.Bitmap);  b.free;end;

----------------------------------------------------------------------
Boleeman · 2025-04-16 23:41

Wow Josh.

Looks nice and sharp. Using ellipses and pie.

I made another different version ( with the extra small circles) but
it is much longer in code.


Wondered also if the Ying Yang symbol could somehow be done with XOR
operations?


I have seen some cool Hypnotic animated Ying Yang animations done in
other programming languages.

Thanks Josh for for that nice example

----------------------------------------------------------------------
Josh · 2025-04-17 01:35

quick mod
setting invert color to flip it around
Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i const
const_pi=3.141592654;      Const_DegToRad=const_pi/180;     
color1=clwhite;      color2=clblack; var
invertcolor:boolean=true; procedure TForm1.FormPaint(Sender:
TObject);var Diameter,radius,halfRadius,x,y:single;   
penwidth:single=5.5;    b:tbgrabitmap;    drawcolor1:tcolor=color1;  
drawcolor2:tcolor=color2;begin  if invertcolor then  begin   
drawcolor1:=color2;    drawcolor2:=color1;  end;  if width<height then
Diameter:=width-penwidth else Diameter:=height-penwidth; 
halfRadius:=Diameter / 4;  radius:=Diameter / 2;  x:=(width-Diameter)
/ 2;  y:=(height-Diameter) / 2;  b:=tbgrabitmap.Create(width,height); 
//draw white circle  b.EllipseAntialias(x+radius,y+radius,radius,radiu
s,clblack,penwidth,drawcolor1);  //draw half circle on right  b.FillPi
e(x+radius,y+radius,radius,radius,90*Const_DegToRad,270*Const_DegToRad
,drawcolor2);  //draw top circle  b.EllipseAntialias(x+radius,y+halfRa
dius,halfRadius,halfRadius,clblack,0,drawcolor1);  //draw bottom
circle  b.EllipseAntialias(x+radius,y+halfRadius+radius,halfRadius,hal
fRadius,clwhite,0,drawcolor2);  //draw top eye  b.EllipseAntialias(x+r
adius,y+halfRadius,halfRadius/3,halfRadius/3,clblack,0,drawcolor2); 
//draw bottom eye  b.EllipseAntialias(x+radius,y+halfRadius+radius,hal
fRadius/3,halfRadius/const_pi,clwhite,0,drawcolor1); 
form1.Canvas.Draw(0,0,b.Bitmap);  b.free;end;

----------------------------------------------------------------------
Josh · 2025-04-17 03:37

corrected correct way

Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i const
const_pi=3.141592654;      Const_DegToRad=const_pi/180;     
color1=clwhite;      color2=clblack; var
invertcolor:boolean=false; procedure TForm1.FormPaint(Sender:
TObject);var Diameter,radius,halfRadius,x,y:single;   
penwidth:single=5.5;    b:tbgrabitmap;    drawcolor1:tcolor=color1;  
drawcolor2:tcolor=color2;    adjX:single;begin 
adjX:=penwidth/const_pi;  if invertcolor then  begin   
drawcolor1:=color2;    drawcolor2:=color1;  end;  if width<height then
Diameter:=width-penwidth else Diameter:=height-penwidth; 
halfRadius:=Diameter / 4;  radius:=Diameter / 2;  x:=(width-Diameter)
/ 2;  y:=(height-Diameter) / 2;  b:=tbgrabitmap.Create(width,height); 
//draw white circle  b.EllipseAntialias(x+radius,y+radius,radius,radiu
s,clblack,penwidth,drawcolor1);  //draw half circle on right  b.FillPi
e(x+radius,y+radius,radius,radius,-
90*Const_DegToRad,90*Const_DegToRad,drawcolor2);  //draw top circle 
b.EllipseAntialias(x+radius,y+halfRadius+adjX,halfRadius-
adjX,halfRadius-adjX,clblack,0,drawcolor1);  //draw bottom circle 
b.EllipseAntialias(x+radius,y+halfRadius+radius-adjX,halfRadius-
adjX,halfRadius-adjX,clwhite,0,drawcolor2);  //draw top eye  b.Ellipse
Antialias(x+radius,y+halfRadius,halfRadius/3,halfRadius/3,clblack,0,dr
awcolor2);  //draw bottom eye  b.EllipseAntialias(x+radius,y+halfRadiu
s+radius,halfRadius/3,halfRadius/const_pi,clwhite,0,drawcolor1); 
form1.Canvas.Draw(0,0,b.Bitmap);  b.free;end;

----------------------------------------------------------------------
Boleeman · 2025-04-17 12:14

Animated version now created.

But I cant get rid of a tiny line.