How to print small disks next to each other?

Questions
,
1

Clear[“Global`*”]
Graphics[{Orange, Disk[{0, 0}, .01]}]
Graphics[{Black, Disk[{2, 0}, .01]}]

This code prints two disks with radius 1. Why does it not print smaller disks with 0.01 radius?

Thanks.

2

Hi,

I don’t think that Mathematica prints the disks with radius one. You are creating two different graphics objects, the axes of which are scaled to render the disks at their “optimal” size. If you plot them into one figure you see that they indeed have radius 0.01:

Clear["Global`*"]; 
Graphics[{{Orange, Disk[{0, 0}, .01]}, {Black, Disk[{2, 0}, .01]}}]

produces this image:

ScreenShot2015-04-10at23.26.49.png

Cheers,

M.

3

Thanks a lot. Is there a way to print “Orange” and “Black” next to the disks?

4

If I need to display only one small dot in a line, what should I do? Thanks.