Buzludzha monument, Bulgaria

on 26 Oct 2021

% Buzludzha is a monument on top of a mountain in Bulgaria

% See comment section for an image.

[X,Y,V]=sphere(500);

Z=V.*(.2*exp(-(V.^2/.32).^2)+.8); % hyper gausian to flatten sphere

% windows

[A,P,R]=cart2sph(X,Y,Z);

A(any(abs(A(:)-(-3:.35:3))<.14,2)&abs(P(:))<.1)=NaN; % Remove windows [1]

% plot main body

s=surf(sph2cart(A,P,R)*2,Y*2,Z);

% Add base

[A,B,C]=cylinder(1.6:-.1:1.4,500);

hold on

b=surf(A,B,.4*C-1);

% Add star tower

% t=fill3(-[3.2 2.2 2 3.4],-.16+[0 0 .1 .1],[-1 -1 4 4],'');

% set([s,b,t],EdgeA=0,FaceC=[1 1 1]/2)

% scatter3(-2.7,-.32,3.2,3E3,'r','p','f')

set([s,b],EdgeA=0,FaceC=[1 1 1]/2)

% Cosmetics

axis equal off

% axis equal

light

view(6,5)