!------------------------------------------------------!
!                  This is Bobscript                   !
!------------------------------------------------------!
! Example  2                               by L. Esser !
!------------------------------------------------------!

macro nucleotide

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

  set atomradius atom CA1 2.6 ; ! 4x larger than Angstroem
  ball-and-stick in type CAL ;
 
  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 25.0;
  slab   20.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        15;
  set coilradius      0.2;

  read no-h mol "example.pdb" ;

  transform atom * by centre position in residue 800
  transform atom * by rotation @new_view.in ;

  !------------------------------!
  ! Draw now secondary structure !
  !------------------------------!

  @2nd.inb

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

end_plot