#
load H:\Term3\Credit\Credit1\rna.ent
zoom 100
select all
wireframe off
select 1-76B
zoom 150
define   helix1   2-7B, 66-71B
define   helix2   49-53B, 61-65B, 54-55B, 18B, 58B
define   helix3   37-44B, 26-33B
define   helix4   10-15B, 23-25B, 45B, 8B, 48B

select helix1
wireframe 30
color red
echo tRNA helix1
pause

select helix2
wireframe 30
color green
echo tRNA helix2
pause

select helix3
wireframe 30
color purple
echo tRNA helix3
pause

select helix4
wireframe 30
color blue
echo tRNA helix3
pause

define loop1  9B
define loop2  46-47B
define loop3  56-57B
define loop4  59-60B

echo bulge1
select loop1
color white
pause
echo bulge2
select loop2
color white
pause
echo bulge3
select loop3
color white
pause
echo bulge4
select loop4
color white
pause

define knot1  55B, 18B
define knot2  32B, 38B
define knot3  32B, 38B
define knot4  44B, 26B
echo knot is non-Watson-Crick base-pair
select knot1,knot2,knot3,knot4
wireframe 30
color gray
pause

define lend 72-76B
echo the akceptor end
pause
select lend
backbone 100
color yellow
pause

define anticodon 34-36B
echo anticodon
select anticodon
wireframe 50
color cpk