%%\medskip
mode_setup;screenstrokes; path p[],stardot; p1:=(0,10)--(2,2)--(10,0);
def cc=clearit; showit;enddef;
for i=2,3,4:
 p[i]=p[i-1] rotated 90; 
endfor;
%The end of one curve must be the start of the next.
p5:=p4&p3&p2&p1..cycle; 

fill p5 scaled 4 shifted (50,50);
fill p5 shifted (50,50) scaled 4;
sscreen(50pt#,30pt#,1pt#,2);

%%\font\stardot=stardot scaled 1440 
%%\medskip\centerline{\stardot A}\medskip
%%\noindent These two aren't the same! Unlike Greek geometry, our
%%geometry does not take place `in' a void; rather, transformations
%%are done with reference to a coordinate
%%system.\footnote{${}^1$}{Just as our lives in Christ 
%%should be ordered by the fundamental coordinate system: ``Take up your
%%cross and follow me.''} The first takes
%%$(2,2)\mapsto(8,8)\mapsto(58,58)$ while the second takes
%%$(2,2)\mapsto(52,52)\mapsto(208,208)$. 
%%
%%Now we can define:

stardot:=p5 scaled .1; cc;
fill stardot scaled 30 shifted (100,100);

%%The -{}- operators above can't (unless we change p5 to 
%%{\tt p5:=p4..p3..p2..p1..cycle;}) be replaced with -{}-{}- as 
%%the following example shows:

pickup pencircle scaled .1pt;
numeric x,y; path p[]; 

z1=(0,10);z2=(2,2);z3=(10,0);z4=(2,-2);z5=(0,-10);
z6=(-2,-2);z7=(-10,0); z8=(-2,2);

p1:=z1---z2---z3---z4---z5---z6---z7---z8---cycle;
p2:=z1---z2---z3&z3---z4---z5&z5---z6---z7&z7---z8---cycle;

fill p1 scaled 5;
message "p1 scaled 5"; show currentpicture; cc;
fill p2 scaled 3;
message "p2 scaled 3"; show currentpicture;
fill p1 scaled 5;
sscreen(50pt#,20pt#,1pt#,2);
%%\medskip\centerline{\stardot B}\medskip

 %Surprising, yes?
end;
