Twin crystals

The package has a special command for producing twinning of two (or more) crystals. For example, the following command generates and displays a hexagonal prism: ShowCrystal[x1 = MakeCrystal[{{0,0,1}/2, {1,0,0}}, "~C6"];].

Using the command x2 = Transform[x1, {{1,0,0}, p/3}], this crystal can be rotated around a horizontal axis by 60° (for details see the Manual.pdf). Then the command xx = FuseCrystals[{x1,x2}] generates a twin of both single crystals, which can be displayed with ShowCrystal[xx]:

Notice that FuseCrystals correctly identifies common faces of the original crystals and fuses them together into a single face. A more interesting example of what can be done with the package shows the image of a multiple calcite twin: