The goal is to write the smallest program in any language which displays any three dimensional output. It might be graphics, it might be ASCII art, but any reasonable person should immediately and unambiguously recognize it as "something 3d".
Opening external files or other resources is not allowed. All output has to be generated by your program.
The shortest code with a score higher than 1 wins.
SCREEN 13
WINDOW(-160,-100)-(159,99)
FOR x=0TO 63
PALETTE x,x*65793
NEXT
FOR i=16TO-16STEP-.1
FOR j=16TO-16STEP-.05
s=SQR(i*i/2+j*j/2)
PSET(i*10,j*5+17.32*COS(s)),18.2*(COS(s)-SIN(s)*j/s)+31+RND
NEXT
NEXT
The color for each pixel is chosen by adding the z value on the curve with the partial derivative with respect to y, generating a 'fake' lighting effect. The added random value helps to smooth the borders between regions. Produces something similar to the following:
❒
This will appear as:
❒
There are several other characters that look three dimensional (at least to me) if you don't like that one:
<?=" __\n/_/|\n|_|/\n";
Outputs:
__
/_/|
|_|/
'
\$\endgroup\$
Apr 25, 2013 at 8:25
My Logo is a bit rusty, but this should draw a torus:
repeat 180[rt 2 circle 45 fw 3]
Run it online: http://logo.twentygototen.org/9NxYy2Pw.
print'(.Y.)'
Graphics3D@Cuboid[]
print A
Prints a road (which has a line painted across it) receding into the distance.
A to me :P
\$\endgroup\$
Apr 25, 2013 at 9:34
from pygame import*
from math import*
init();d=display;s=d.set_mode((640,480));a=0
def R(x,y,z,a):c,s=cos(a),sin(a);y,z=y*c-z*s,y*s+z*c;z,x=x*s-z*c-8,z*s+x*c;f=1e3/z;return-f*x+320,f*y+240
while s.fill(time.wait(5)):event.get();t=[R(x,y,z,a)for x in-1,1for y in-1,1for z in-1,1];[draw.line(s,-1,i,j)for i in t for j in t];a+=.01;d.flip()
A basic cube spinner.
R on one line, replace the nested for loop with [draw.line(s,-1,i,j)for i in t for j in t] and then put the whole while loop on a single line. That'll save you quite a few bytes.
\$\endgroup\$
Apr 25, 2013 at 10:18
Way longer than the previous answer but i like it:
t=seq(0,2*pi,.01);r=1e3:1;plot(r%o%cos(t),r%o%sin(t),col=grey(1:1e3/1e3))
Basically draw a thousand circles of decreasing radius and shade of grey. Because of the default aspect ratio the result is more an ellipsoid than a sphere however.
Output:
>>>
Which can only reasonably be interpreted as some sort of angled surface :). I prefer to think of it as a jagged, concave cliff face.
