Greek and Türkiye flags

I would like to show Greek and Türkiye flags, drawing by programming, in one post. Although we had fights many times ago,  I hope these two countries to be like brothers, to care for each other. I hope Türkiye be an officially part  of EU for real as soon as posible.

Greek Flag

module GreekFlag (x1=3000, y1=3000, z=12000) {
	const white=#FFFFFF
	const cyan=#001489

	z1027=z*10/27
	zs=z-z1027
	// ratio 2/3
	z1=z*2/3   
	z19=z1/9
	move x1, y1
	
	pen cyan {
		polygon cyan, z,0, 0, z1, -z, 0, 0, -z1
	}
	pen white {
		step z1027, z19
		polygon white, zs,0, 0, z19, -zs, 0, 0, -z19
		step 0, z19*2
		polygon white, zs,0, 0, z19, -zs, 0, 0, -z19
		step -z1027, z19*2
		polygon white, z,0, 0, z19, -z, 0, 0, -z19
		step  0, z19*2
		polygon white, z,0, 0, z19, -z, 0, 0, -z19
		step  0, z19*-5
		polygon white, z1027,0, 0, z19, -z1027, 0, 0, -z19
		step  z19*2, z19*-2
		polygon white, z19,0, 0, z19*5, -z19, 0, 0, -z19*5
	}
}
cls,0
GreekFlag
GreekFlag 18000, 3000, 6000
drawing {
	GreekFlag
} as greekflag
move 8000,10000
image GreekFlag, 9000,,30
a$=key$

Türkiye Flag

// https://en.wikipedia.org/wiki/Flag_of_Turkey
CLS, 0
white=#FFFFFF
red=#E30A17
x1=3000
y1=2000
L=9000
G=L/1.5
A = G DIV 2
B = G DIV 4
C = G DIV 16
D = G * 2/5
E = G / 3
F = G DIV 2
drawing  {
	STEP -L/2,-G/2
	PEN RED {
		POLYGON RED, L, 0, 0, G, -L, 0, 0, -G
	}
	STEP A, A
	PEN WHITE {
		CIRCLE FILL WHITE, F/2
	}
	STEP C, 0
	PEN RED {
		CIRCLE FILL RED, D/2
	}
	STEP E-D/2+B/2, 0
	drawStar(B/2)
} as t_flag
move x1+L/2, y1+G/2
image t_flag, 8000,,0
STEP 0, G*1.2
CIRCLE FILL WHITE, 3000
image t_flag, 3000*1.125,,5

MOVE 20000, 8000
image t_flag, 8000,,-90

A$=KEY$

sub drawStar(d)
	local dd=d*tan(36), k=pi/10
	step -d, 0
	pen white {polygon white, angle k, dd, pi/2, dd, 3*pi/2+k*2, dd, k, dd, -k*2-pi/2, dd, 3*pi/2+k*2, dd, -k+pi, dd, -k*2-pi/2, dd, pi/2, dd, -k+pi, dd}
	step d, 0
end sub