// 200x200 + file from another directory

  
	script1 ="reset; move 0 0 0 -500 0 0 0 0 0; font echo 8 serif bold;  \
  set echo middle center;  \
color echo magenta; font echo 16 serif bold; echo Here comes a (9,0) zigzag nanotube.; delay 2; echo; \
  move 0 0 20 700 0 0 0 0 4; move 0 0 10 -220 0 0 0 0 2; \
color echo magenta; font echo 18 serif bold; echo This tube has 216 carbon atoms; delay 1.5; \
color echo yellow; font echo 20 serif bold; echo Here is one unit cell.; delay 1.5; echo; \
color echo yellow; font echo 20 serif bold; echo The first unit cell; \
     select atomno=1, atomno=2, atomno=3, atomno=4, atomno=5, atomno=6, atomno=7, atomno=8, atomno=9, atomno=10, \
     atomno=11, atomno=12, atomno=13, atomno=14, atomno=15, atomno=16, atomno=17, atomno=18, atomno=19, atomno=20, \
     atomno=21, atomno=22, atomno=23, atomno=24, atomno=25, atomno=26, atomno=27, atomno=28, atomno=29, atomno=30, \
     atomno=31, atomno=32, atomno=33, atomno=34, atomno=35, atomno=36; color yellow;  delay 2.5; color grey;   \
color echo yellow; font echo 15 serif bold; echo That was 36 carbon atoms; delay 1; echo; \
  select atomno=1, atomno=2;  color yellow;  delay 0.1;   \
  select atomno=3, atomno=4; color yellow;    delay 0.1;       \
	select atomno=5, atomno=6; color yellow;  delay 0.1;     \
	select atomno=7, atomno=8; color yellow; delay 0.1;     \
	select atomno=9, atomno=10; color yellow;   delay 0.1;   \
	select atomno=11, atomno=12; color yellow;  delay 0.1;   \
	select atomno=13, atomno=14; color yellow; delay 0.1;   \
	select atomno=15, atomno=16; color yellow;   delay 0.1;   \
  select atomno=17, atomno=18;  color yellow;   delay 0.1;   \
  select atomno=19, atomno=20; color yellow;    delay 0.1;    \
	select atomno=21, atomno=22; color yellow;  delay 0.1;  \
	select atomno=23, atomno=24; color yellow; delay 0.1;  \
	select atomno=25, atomno=26; color yellow;   delay 0.1;   \
	select atomno=27, atomno=28; color yellow;  delay 0.1;  \
	select atomno=29, atomno=30; color yellow; delay 0.1;  \
	select atomno=31, atomno=32; color yellow;   delay 0.1;   \
	select atomno=33, atomno=34; color yellow;  delay 0.1;  \
	select atomno=35, atomno=36; color yellow; delay 0.1;   \
color echo yellow; font echo 15 serif bold; echo 36 carbon atoms; delay 1; echo; \
	select atomno=37, atomno=38; color cyan;   delay 0.1; \
  select atomno=39, atomno=40;  color cyan;   delay 0.1; \
  select atomno=41, atomno=42; color cyan;    delay 0.1;  \
	select atomno=43, atomno=44; color cyan;  delay 0.1; \
	select atomno=45, atomno=46; color cyan; delay 0.1; \
	select atomno=47, atomno=48; color cyan;   delay 0.1; \
	select atomno=49, atomno=50; color cyan;  delay 0.1; \
	select atomno=51, atomno=52; color cyan; delay 0.1; \
	select atomno=53, atomno=54; color cyan;   delay 0.1; \
  select atomno=1, atomno=36; color red;    delay 0.1;  \
	select atomno=37, atomno=72; color green;  delay 0.1; \
	select atomno=73, atomno=108; color orange; delay 0.1; \
	select atomno=109, atomno=144; color pink;   delay 0.1; \
	select atomno=145, atomno=180; color brown;  delay 0.1; \
	select atomno=181, atomno=216; color purple; delay 0.1; \
	select atomno=214, atomno=215; color cyan;   delay 0.1; \
  select atomno=178, atomno=179; color cyan;   delay 0.1; \
  select atomno=142, atomno=143; color cyan;   delay 0.1; \
  color orange; select all; color grey;  \
	color red; delay 0.1; color grey;       \
   color orange;  delay 0.1; color grey;   \
  select atomno=1, atomno=9;  color blue;   delay 0.1; color grey; select all; color purple; delay 0.1; color grey;  \
  select atomno=2, atomno=50; color red;    delay 0.1; color grey; select all; color pink; delay 0.1; color grey;   \
	select atomno=3, atomno=61; color green;  delay 0.1; color grey;     \
	select atomno=4, atomno=72; color orange; delay 0.1; color grey;    \
	select atomno=5, atomno=83; color pink;   delay 0.1; color grey;  select all; color yellow; delay 0.1; color grey;    \
	select atomno=6, atomno=94; color brown;  delay 0.1; color grey;    \
	select atomno=7, atomno=15; color purple; delay 0.1; color grey;    \
	select atomno=8, atomno=16; color cyan;   delay 0.1; color grey;  \
color echo red; font echo 20 serif bold; echo Here is the last unit cell.; delay 1.5; echo; \
color echo red; font echo 20 serif bold; echo The sixth unit cell; \
     select atomno=181, atomno=182, atomno=183, atomno=184, atomno=185, atomno=186, atomno=187, atomno=188, atomno=189, atomno=190, \
     atomno=191, atomno=192, atomno=193, atomno=194, atomno=195, atomno=196, atomno=197, atomno=198, atomno=199, atomno=200, \
     atomno=201, atomno=202, atomno=203, atomno=204, atomno=205, atomno=206, atomno=207, atomno=208, atomno=209, atomno=210, \
     atomno=211, atomno=212, atomno=213, atomno=214, atomno=215, atomno=216; color red;  delay 2.5; color grey;   \
color echo red; font echo 15 serif bold; echo That was 36 carbon atoms; delay 1; echo; \
  select atomno=181, atomno=182;  color red;  delay 0.1;   \
  select atomno=183, atomno=184; color red;    delay 0.1;       \
	select atomno=185, atomno=186; color red;  delay 0.1;     \
	select atomno=187, atomno=188; color red; delay 0.1;     \
	select atomno=189, atomno=190; color red;   delay 0.1;   \
	select atomno=191, atomno=192; color red;  delay 0.1;   \
	select atomno=193, atomno=194; color red; delay 0.1;   \
	select atomno=195, atomno=196; color red;   delay 0.1;   \
  select atomno=197, atomno=198;  color red;   delay 0.1;   \
  select atomno=199, atomno=200; color red;    delay 0.1;    \
	select atomno=201, atomno=202; color red;  delay 0.1;  \
	select atomno=203, atomno=204; color red; delay 0.1;  \
	select atomno=205, atomno=206; color red;   delay 0.1;   \
	select atomno=207, atomno=208; color red;  delay 0.1;  \
	select atomno=209, atomno=210; color red; delay 0.1;  \
	select atomno=211, atomno=212; color red;   delay 0.1;   \
	select atomno=213, atomno=214; color red;  delay 0.1;  \
	select atomno=215, atomno=216; color red; delay 0.1;   \
color echo yellow; font echo 18 serif bold; echo The diameter = 7.05 Angstroms; delay 1.5; echo; \
color echo white; font echo 20 serif bold; echo That is .705 nanometers; delay 1.5; echo; \
  move 0 0 50 -500 0 0 0 0 3;    \
color echo yellow; font echo 14 serif bold; echo This tube is only 24.87 Angstroms long; delay 1.5; echo; \
color echo white; font echo 20 serif bold; echo Length = 2.487 nanometers; delay 1.5; echo; \
	move 0 360 0 600 0 0 0 0 4;     \
  move 0 270 30 -300 0 0 0 0 2; \
  set echo top center;  \
color echo magenta; font echo 15 serif bold; echo Note the orientation of the hexagons; delay 2; \
select atomno=172, atomno=175, atomno=176, atomno=177, atomno=173, atomno=138; color magenta;    delay 0.4;       \
select atomno=136, atomno=137, atomno=139, atomno=140, atomno=141, atomno=102; color magenta;    delay 0.4;       \
select atomno=100, atomno=103, atomno=104, atomno=101, atomno=105, atomno=66; color magenta;    delay 0.4;       \
color echo magenta; font echo 18 serif bold; echo Compared to the orientation of...; delay 2; \
color echo magenta; font echo 16 serif bold; echo ...the hexagons on the (5,5) nanotube.; delay 2; echo; \
  move 180 0 30 -800 0 0 0 0 2; select all; color grey; loop 0;";

  jmolApplet(305, "./jmol/tube9x0.xyz",script1);
  jmolBr();

	// a link
  
  jmolButton('frame 1; reset; select */1; color grey; center selected; echo; move 0 0 0 80 0 0 0 0 1;','Stop/Reload');

  jmolButton(script1, "Play");
    jmolButton("translate x -20", "left");
    jmolButton("translate x 20", "right");
    jmolButton("translate y -20", "up");
    jmolButton("translate y 20", "down");