# Magic Cards

by

### M M (view profile)

17 Aug 2003 (Updated )

Magic Card Game - You must try it.

magiccards()
```function dummy = magiccards()
% This Program performs a Magic Game using Playing Cards
% It tries to Detect the secret card that is in Your Mind
% You Choose a certain card from a group of six cards
% You Concentrate on it for five seconds
% After that You Press (Enter) Key
% The cards disappear and then They are displayed again
% WITHOUT the card that is in Your Mind

% Programmed by: Mina Ayman (mina_ayman@yahoo.com)
% Using MATLAB R12 on 15/08/2003

% Setting the Background for the Cards

clear h
figure
set(gca,'Position',[0 0 1 1])
set(gca,'Xtick',[],'Ytick',[])
set(gca,'Box','on')
set(gca,'Color',[1 0 1])
axis equal
axis([0 9 0 5])

hold on

% Introduction
p = title('Welcome to MAGIC CARDS');
set(p,'Color',[0 0.5 0])
set(p,'FontWeight','bold')
set(p,'FontSize',26)

% Setting initial Cards
pause(0.4);
h(1,:) = cardplot(0.3,2,2,6,'h');
toot
pause(0.3);
h(2,:) = cardplot(1.7,2,2,8,'s');
toot
pause(0.3);
h(3,:) = cardplot(3.1,2,2,7,'c');
toot
pause(0.3);
h(4,:) = cardplot(4.5,2,2,8,'d');
toot
pause(0.3);
h(5,:) = cardplot(5.9,2,2,6,'c');
toot
pause(0.3);
h(6,:) = cardplot(7.3,2,2,7,'h');
toot
pause(0.7);

% Displaying Rules of the game
set(p,'String','Concentrate on ONE Card')
pause(3);
set(p,'String','Keep it in Your Mind for 5 seconds')
set(p,'FontSize',21)
pause(3);
set(p,'String','When You finish, Press (Enter)')
set(p,'FontSize',23)
pause;
close;
pause(0.5);
figure
imshow(flower,'notruesize');
toot2
pause(4);
close;
pause(0.5);
figure
imshow(saturn,'notruesize');
toot2
pause(4);
close;
pause(0.5);
figure
imshow(trees,'notruesize');
toot2
pause(4);
close;

% Setting the Background for the Cards

clear h
figure
set(gca,'Position',[0 0 1 1])
set(gca,'Xtick',[],'Ytick',[])
set(gca,'Box','on')
set(gca,'Color',[1 0 1])
axis equal
axis([0 9 0 5])

hold on

% Introduction
p = title('The Card in Your Mind is not here');
set(p,'Color',[0 0.5 0])
set(p,'FontWeight','bold')
set(p,'FontSize',22)

% Setting final Cards
pause(0.4);
h(1,:) = cardplot(0.4,2,2,6,'s');
toot
pause(0.3);
h(2,:) = cardplot(2.1,2,2,8,'c');
toot
pause(0.3);
h(3,:) = cardplot(3.8,2,2,6,'d');
toot
pause(0.3);
h(4,:) = cardplot(5.5,2,2,7,'s');
toot
pause(0.3);
h(5,:) = cardplot(7.2,2,2,8,'h');
toot
pause(0.7);

set(p,'String','Did I pick the Right Card?')
set(p,'FontSize',25)
pause(6)
close;

% End of Program
fprintf('\n\n\n Thank You for using this Program')
fprintf('\n Programmed by MINA AYMAN')
fprintf('\n Questions or Comments : e-mail ( mina_ayman@yahoo.com )\n')
clear

% Importing the cardplot function
% Copyright (c) 2003-08-05, B. Rasmus Anthin.
function [H,x1,y1]=cardplot(x,y,siz,val,suit)

h0=8.7;  %cm,  total height
w0=5.75; %cm,  total width
h1=8;    %cm,  height before arc
w1=5.05; %cm,  width before arc

h0s=siz;
w0s=w0/h0*siz;
h1s=h1/h0*siz;
w1s=w1/h0*siz;
dl=(h0s-h1s)/2;   % = (w0s-w1s)/2
r=dl;

bottom=x+dl+linspace(0,w1s) + ...
i*y;
top=x+dl+linspace(0,w1s) + ...
i*(y+h0s);
left=x + ...
i*(y+dl+linspace(0,h1s));
right=x+w0s + ...
i*(y+dl+linspace(0,h1s));
alb=x+dl+r*cos(linspace(pi,pi*3/2)) + ...
i*(y+dl+r*sin(linspace(pi,pi*3/2)));
arb=x+w1s+dl+r*cos(linspace(-pi/2,0)) + ...
i*(y+dl+r*sin(linspace(-pi/2,0)));
alt=x+dl+r*cos(linspace(pi/2,pi)) + ...
i*(y+h1s+dl+r*sin(linspace(pi/2,pi)));
art=x+w1s+dl+r*cos(linspace(0,pi/2)) + ...
i*(y+h1s+dl+r*sin(linspace(0,pi/2)));

L=[bottom arb right art top alt left alb];
xx=real(L);
yy=imag(L);

h(1)=patch(xx,yy,'w');
ax=axis;

switch(lower(suit(1)))
case 'c'
sstr='\clubsuit';
col='k';
case 'd'
sstr='\diamondsuit';
col='r';
case 'h'
sstr='\heartsuit';
col='r';
case 's'
col='k';
otherwise    %turned
sstr='';
col='k';
end
h=[h plotsuit(x,y,h0,w1s,h1s,dl,siz,sstr,col)];

switch(upper(val))
case {1,'A'}, vstr='A';
case {2,3,4,5,6,7,8,9,10}, vstr=num2str(val);
case {11,'J'}, vstr='J';
case {12,'Q'}, vstr='Q';
case {13,'K'}, vstr='K';
otherwise, vstr='';
end
h=[h plotvalue(x,y,h0,w1s,h1s,dl,siz,vstr,col)];

fsiz=2/h0*siz/diff(ax(3:4));
%tile up as many suit symbols that corresponds to the card's value
hsc=linspace(.17,.88,13);
wsc=linspace(.31,.71,3);
hh=[];
if any(upper(val)==[1 'A' 3 5 9])
hh=[hh text(x+w0s*wsc(2),y+h0s*hsc(7),sstr,'fontunits','norm','horiz','c','vert','m')];
end
if any(val==[2 3])
hh=[hh text(x+w0s*wsc(2),y+h0s*hsc(13),sstr,'fontunits','norm','horiz','c','vert','m')];
hh=[hh text(x+w0s*wsc(2),y+h0s*hsc(1)-dl,sstr,'fontunits','norm','horiz','c','vert','m','rot',180)];
end
if any(val==[4:10])
hh=[hh text(x+w0s*wsc(1),y+h0s*hsc(13),sstr,'fontunits','norm','horiz','c','vert','m')];
hh=[hh text(x+w0s*wsc(3),y+h0s*hsc(13),sstr,'fontunits','norm','horiz','c','vert','m')];
hh=[hh text(x+w0s*wsc(1),y+h0s*hsc(1)-dl,sstr,'fontunits','norm','horiz','c','vert','m','rot',180)];
hh=[hh text(x+w0s*wsc(3),y+h0s*hsc(1)-dl,sstr,'fontunits','norm','horiz','c','vert','m','rot',180)];
end
if any(val==[6:8])
hh=[hh text(x+w0s*wsc(1),y+h0s*hsc(7),sstr,'fontunits','norm','horiz','c','vert','m')];
hh=[hh text(x+w0s*wsc(3),y+h0s*hsc(7),sstr,'fontunits','norm','horiz','c','vert','m')];
end
if any(val==[7:8])
hh=[hh text(x+w0s*wsc(2),y+h0s*hsc(10),sstr,'fontunits','norm','horiz','c','vert','m')];
end
if val==8
hh=[hh text(x+w0s*wsc(2),y+h0s*hsc(4)-dl,sstr,'fontunits','norm','horiz','c','vert','m','rot',180)];
end
if any(val==[9:10])
hh=[hh text(x+w0s*wsc(1),y+h0s*hsc(9),sstr,'fontunits','norm','horiz','c','vert','m')];
hh=[hh text(x+w0s*wsc(3),y+h0s*hsc(9),sstr,'fontunits','norm','horiz','c','vert','m')];
hh=[hh text(x+w0s*wsc(1),y+h0s*hsc(5)-dl,sstr,'fontunits','norm','horiz','c','vert','m','rot',180)];
hh=[hh text(x+w0s*wsc(3),y+h0s*hsc(5)-dl,sstr,'fontunits','norm','horiz','c','vert','m','rot',180)];
end
if val==10
hh=[hh text(x+w0s*wsc(2),y+h0s*hsc(11),sstr,'fontunits','norm','horiz','c','vert','m')];
hh=[hh text(x+w0s*wsc(2),y+h0s*hsc(3)-dl,sstr,'fontunits','norm','horiz','c','vert','m','rot',180)];
end
if any(upper(val)==['J' 'Q' 'K'])
hh(1)=text(x+w0s*wsc(1),y+h0s*hsc(13),sstr,'fontunits','norm','horiz','c','vert','m');
hh(2)=text(x+w0s*wsc(3),y+h0s*hsc(1),sstr,'fontunits','norm','horiz','c','vert','m');
end
switch(upper(val))
case {11,'J'}
h=[h text(x+w0s*wsc(2),y+h0s*hsc(6),'J','fontunits','norm','fontsize',6/h0*siz/diff(ax(3:4)),'horiz','c','vert','m','color',col)];
case {12,'Q'}
h=[h text(x+w0s*wsc(2),y+h0s*hsc(6),'Q','fontunits','norm','fontsize',6/h0*siz/diff(ax(3:4)),'horiz','c','vert','m','color',col)];
case {13,'K'}
h=[h text(x+w0s*wsc(2),y+h0s*hsc(6),'K','fontunits','norm','fontsize',6/h0*siz/diff(ax(3:4)),'horiz','c','vert','m','color',col)];
end
if ~any(upper(val)==[1:13 'J' 'Q' 'K' 'A'])
h=[h patch(xx,yy,[.8 .8 .8])];
hh(1)=text(x+w0s/2,y+h0s/2,'','fontunits','norm','horiz','c','vert','m');
end
for i=1:length(hh)
set(hh(i),'fontsize',fsiz,'color',col)
end
h=[h hh];
h(end+1:19)=text(x,y,'');
if nargout, H=h;end

if nargout, x1=x+w0s;end
y1=y+h0s;

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

function h=plotvalue(x,y,h0,w1s,h1s,dl,siz,str,col)
ax=axis;
fsiz=1/h0*siz/diff(ax(3:4));
h(1)=text(x+1.7*dl,y+dl+h1s,str,'fontunits','norm','fontsize',fsiz,'fontweight','norm','horiz','c','vert','t','color',col);
h(2)=text(x+0.3*dl+w1s,y+dl+h1s,str,'fontunits','norm','fontsize',fsiz,'fontweight','norm','horiz','c','vert','t','color',col);
h(3)=text(x+1.7*dl,y+dl,str,'fontunits','norm','fontsize',fsiz,'fontweight','norm','horiz','c','vert','t','rot',180,'color',col);
h(4)=text(x+0.3*dl+w1s,y+dl,str,'fontunits','norm','fontsize',fsiz,'fontweight','norm','horiz','c','vert','t','rot',180,'color',col);

function h=plotsuit(x,y,h0,w1s,h1s,dl,siz,str,col)
ax=axis;
fsiz=1/h0*siz/diff(ax(3:4));
offs=0.8*fsiz*diff(ax(3:4));
h(1)=text(x+1.7*dl,y+dl+h1s-offs,str,'fontunits','norm','fontsize',fsiz,'horiz','c','vert','t','color',col);
h(2)=text(x+0.3*dl+w1s,y+dl+h1s-offs,str,'fontunits','norm','fontsize',fsiz,'horiz','c','vert','t','color',col);
h(3)=text(x+1.7*dl,y+dl+offs,str,'fontunits','norm','fontsize',fsiz,'horiz','c','vert','t','rot',180,'color',col);
h(4)=text(x+0.3*dl+w1s,y+dl+offs,str,'fontunits','norm','fontsize',fsiz,'horiz','c','vert','t','rot',180,'color',col);

% End of cardplot function

% Whistle Generator Program
t = 0 : 1/2000 : 0.3;
sig = 0.7 * chirp(t,0,0.3,10000);
sound(sig,2000,8)