scanpatterns.elan

BLOCK zenith {  Expname height } {
    set Azim 184.0
    set Elev 90.0
    set Height $height
    pointrheight $Azim $Elev $Height
    setpolariser
    DISP " In BLOCK $Expname
    DO -1 {
        DISP "[TimeStamp now -noyear] -- $Expname running
        SYNC 60
    }    
}

BLOCK bore {  Expname height } {
    DO -1 {
        DISP "[TimeStamp now -noyear] -- $Expname running
        SYNC 60
    }    
}

BLOCK cp1 { Expname height} {
    set Azim 184.0
    set Elev 77.1
    set Height $height
    DISP " In BLOCK $Expname
    pointrheight $Azim $Elev $Height
    setpolariser
    DO -1 {
        DISP "[TimeStamp now -noyear] -- $Expname running Scan CP1
        SYNC 60
    }    
}

BLOCK lowel { Expname height } {
#    pointrheight $Azim $Elev $Height
    DO -1 {
        DISP "[TimeStamp now -noyear] -- $Expname running Scan LOWEL
        SYNC 60
    }    
}

BLOCK cp2 {  Expname height} {
       DISP "[TimeStamp now -noyear] -- $Expname running Scan CP2
       DO -1 {
       pointrheight 180.00 90.00 $height 
       setpolariser	
        DISP "position 1 - vertical [TimeStamp now] Scan CP2
        SYNC 90

        pointgeographic 68.40 20.00 $height
       setpolariser	
        DISP "position 2 - south-most [TimeStamp now] Scan CP2
        SYNC 90

        pointgeographic 68.64 21.92 $height
       setpolariser	
        DISP "position 3 - east-most [TimeStamp now] Scan CP2
        SYNC 90

        pointrheight 184.00 77.10 $height 
       setpolariser	
        DISP "position 4 - field-aligned (2002) [TimeStamp now] Scan CP2
        SYNC 90
    }    
}

BLOCK cp3 {  program height } {
pointrheight 5.0 20.0 $height
       setpolariser	
#if [ISTRO] {SYNC 50} ;# sync to full minute (i.e. the one commanded in runexp)
       DO -1 {
        DISP "[TimeStamp now -noyear] -- $program running Scan CP3

        DISP "position  1 - [TimeStamp now] Scan CP3
        SYNC 110

        pointrheight 344.9 20.0 $height
       setpolariser	
        DISP "position  2 - [TimeStamp now] Scan CP3
        SYNC 110

        pointrheight 344.9 24.0 $height
       setpolariser	
        DISP "position  3 - [TimeStamp now] Scan CP3
        SYNC 80

        pointrheight 344.9 28.6 $height
       setpolariser	
        DISP "position  4 - [TimeStamp now] Scan CP3
        SYNC 80

        pointrheight 344.9 34.7 $height
       setpolariser	
        DISP "position  5 - [TimeStamp now] Scan CP3
        SYNC 80

        pointrheight 344.9 43.6 $height
       setpolariser	
        DISP "position  6 - [TimeStamp now] Scan CP3
        SYNC 90

        pointrheight 344.9 55.0 $height
       setpolariser	
        DISP "position  7 - [TimeStamp now] Scan CP3
        SYNC 90

        pointrheight 344.9 70.0 $height
       setpolariser	
        DISP "position  8 - [TimeStamp now] Scan CP3
        SYNC 90

        pointrheight 12.8 89.99 $height ;# point overhead Tromso
       setpolariser	
        DISP "position  9 - [TimeStamp now] - overhead Tromso Scan CP3
        SYNC 20
        if [ISTRO] { pointrheight 160.0 89.99 $height } ;# rotate Tromso antenna
       setpolariser	
        SYNC 110

        pointrheight 164.9 77.0 $height
       setpolariser	
        DISP "position 10 - [TimeStamp now] Scan CP3
        SYNC 90

        pointrheight 164.9 64.0 $height
       setpolariser	
        DISP "position 11 - [TimeStamp now] Scan CP3
        SYNC 90

        changersite KIRUNA ;# Kiruna's moment to be center of universe
        pointrheight 3.9 89.99 $height ;# point overhead Kiruna using Kiruna reference
       setpolariser	
        DISP "position 12 - [TimeStamp now] - overhead Kiruna Scan CP3
        SYNC 30
        if [ISKIR] { pointrheight 160.0 89.99 $height } ;# rotate Kiruna antenna
       setpolariser	

        SYNC 120

        changersite TROMSO ;# back to Tromso center of universe
        pointrheight 164.9 42.0 $height
       setpolariser	
        DISP "position 13 - [TimeStamp now] Scan CP3
        SYNC 100

        pointrheight 164.9 34.0 $height
       setpolariser	
        DISP "position 14 - [TimeStamp now] Scan CP3
        SYNC 100

        pointrheight 164.9 28.0 $height
       setpolariser	
        DISP "position 15 - [TimeStamp now] Scan CP3
        SYNC 100

        pointrheight 164.9 23.4 $height
       setpolariser	
        DISP "position 16 - [TimeStamp now] Scan CP3
        SYNC 90

        pointrheight 164.9 19.7 $height
       setpolariser	
        DISP "position 17 - [TimeStamp now] Scan CP3
        SYNC 100

      # move back to position 1
        if [ISKIR] {pointrheight 5.0 20.0 $height}
        if [ISSOD] {pointrheight 5.0 20.0 $height}
      # increase Tromso elevation during antenna motion
        if [ISTRO] {pointrheight 5.0 30.0 $height} ;# 
      # only noise here as no common volume; in ND version recording was turned off
       setpolariser	
        DISP "moving back to position 1 - [TimeStamp now] Scan CP3
        DISP "Tromso elevation increased so only noise at remotes
        SYNC  100
        if [ISTRO] {pointrheight 5.0 20.0 $height}
       setpolariser	
        DISP "Tromso elevation returning to common volume Scan CP3
        SYNC  20
      }
}