!------------------------------------------------------!
!                  This is Bobscript                   !
!------------------------------------------------------!
! Example  10: Transparent surface        by L. Esser  !
!------------------------------------------------------!

macro nucleotide

  set atomcolour atom C*  hsb 0.667 0.2 0.5;
  set atomcolour atom CA1 hsb 0.0 0.0 0.95;
  set sticksegments 2;
  colour ball-and-stick by atom ;

  set colourdepthcue       0.0;  ! Make sure calcium is really white !
  set atomradius atom CA1  2.6;  ! 4x larger than Angstroem
  ball-and-stick in type   CAL;
  set colourdepthcue       0.3;  ! Now we can reset the colourdepthcue.

  set bonddistance 1.7;
  ball-and-stick in residue 800 ;

  set bonddistance 2.3;
  ball-and-stick require in type APS and either atom S* or atom P*;

end_macro

plot
  window 77.0;
  slab   55.0;
  set colourdepthcue  0.3; 
  set linewidth       1.0;
  set shading         1.0;
  set shadingexponent 2.0;
  set smoothsteps       3;
  set splinefactor    1.0;
  set strandthickness 0.5;
  set strandwidth     1.8;
  set segments        10;

  read no-h mol "example.pdb" ; ! Read pdb file

  transform atom * by centre position in type APS ; 
  transform atom * by rotation @new_view.in;

  !------------------------------!
  !       Draw nucleotide        !
  !------------------------------!
 
  $nucleotide

  !------------------------------!
  !   Draw Secondary Structure   !
  !------------------------------!

  @2nd.inb

end_plot