;;
;;
;; Module: std-selections
;;
;; $Revision:$
;; $Author:$
;; $Date:$
;;
;; Copyright 1996 - 1999, Neuromag Ltd
;; All rights reserved.
;;
;; Standard selections to pick some pre defined channel sets.
;;
;; New revision that uses channel-selection library, and is therefore
;; easily capable to handle selections for multiple device types.
;;
;;
;; Matti Kajola made and sent an original std-selections2.lsp,
;; which was bug-fixed by Akira Hashizume.
;;  
(in-package "graph")
(require "channel-selection")
(provide "std-selections")

(setq std-selection-symbols '(std-selection-menu))
(export std-selection-symbols)
(shadowing-import std-selection-symbols (find-package "user"))

(defvar std-selection-menu nil "Menu containing standard view selections.")

(require-widget 'pick    "pick2")
(require-widget 'plotter "display2")

;;
;; Standard selections for NM122 
;;
;;--------------------------------------------------------------------------------
(define-channel-selections "NM122"
  '("vertex"
    "MEG[ 13 14 15 16 49 50 51 52 53 54 61 62 63 64 65 66 73 74 89 90 99 100 117 118 119 120 121 122]")

  '("left-temporal"
    "MEG[ 43 44 45 46 47 48 49 50 55 56 57 58 59 60 61 62 67 68 69 70 71 72 73 74]")
  
  '("right-temporal"
    "MEG[ 1 2 3 4 5 6 7 8 9 10 11 12 13 14 111 112 113 114 115 116 117 118 119 120]")
  
  '("left-parietal"
    "MEG[ 47 48 49 50 51 52 59 60 61 62 63 64 71 72 73 74 79 80 87 88 89 90]")
  
  '("right-parietal"
    "MEG[5 6 11 12 13 14 15 16 97 98 99 100 109 110 115 116 117 118 119 120 121 122]")
  
  '("occipital"
    "MEG[ 75 76 77 78 79 80 81 82 83 84 85 86 91 92 93 94 95 96 101 102 103 104 105 106 107 108 109 110]")
  
  '("frontal"
    "MEG[ 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42]")
  
  '("EEG-1"
    "EEG[ 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16]")
  
  '("EEG-2"
    "EEG[ 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32]")
  
  '("Rack-A" 
    "MEG[ 7 8 3 4 1 2 9 10 5 6 29 30 25 26 21 22 17 18 13 14 27 28 23 24 19 20 15 16 11 12]")
  
  '("Rack-B"
    "MEG[ 32 31 36 35 40 39 44 43 48 47 34 33 38 37 42 41 46 45 50 49 52 51 56 55 60 59 54 53 58 57]")
  
  '("Rack-C"
    "MEG[ 66 65 70 69 62 61 64 63 68 67 74 73 78 77 82 81 86 85 90 89 72 71 76 75 80 79 84 83 88 87]")
  
  '("Rack-D"
    "MEG[107 108 103 104  99 100  95  96  91  92 109 110 105 106 101 102]"
    "MEG[ 97  98  93  94 117 118 113 114 119 120 115 116 111 112 121 122]")
  )


;;
;; Standard selections to pick some pre defined channel sets.
;; For vectorView in Otaniemi.
;; 
;; Note that Otaniemi device differs from the production device. This file must be updated
;; when the device is changed to to similasr as the production vectorviews.
;;

(define-channel-selections "Neuromag system"
  '("left-temporal"
    "MEG[223 222 212 213 133 132 112 113 233 232 243 242 1512 1513 143 142]"
    "MEG[1623 1622 1613 1612 1523 1522 1543 1542 1533 1532]")
  
  '("right-temporal"
    "MEG[1312 1313 1323 1322 1442 1443 1423 1422 1342 1343 1333 1332 2612 2613 1433 1432]"
    "MEG[2413 2412 2422 2423 2642 2643 2623 2622 2633 2632]")

  '("left-parietal"
    "MEG[633 632 423 422 412 413 712 713 433 432 442 443 742 743 1822 1823]"
    "MEG[1813 1812 1832 1833 1843 1842 1632 1633 2013 2012]")

  '("right-parietal"
    "MEG[1043 1042 1112 1113 1123 1122 722 723 1142 1143 1133 1132 732 733 2212 2213]"
    "MEG[2223 2222 2242 2243 2232 2233 2442 2443 2023 2022]")

  '("left-occipital"
    "MEG[2042 2043 1913 1912 2113 2112 1922 1923 1942 1943 1642 1643 1933 1932 1733 1732]"
    "MEG[1723 1722 2143 2142 1742 1743 1712 1713]")
  
  '("right-occipital"
    "MEG[2032 2033 2313 2312 2342 2343 2322 2323 2433 2432 2122 2123 2333 2332 2513 2512]"
    "MEG[2523 2522 2133 2132 2542 2543 2532 2533]")
  
  '("left-frontal"
    "MEG[522 523 512 513 312 313 342 343 122 123 822 823 533 532 543 542]"
    "MEG[322 323 612 613 333 332 622 623 643 642]")
  
  '("rigth-frontal"
    "MEG[813 812 912 913 922 923 1212 1213 1223 1222 1412 1413 943 942 933 932]"
    "MEG[1232 1233 1012 1013 1022 1023 1243 1242 1033 1032]")
  )

;;
;; Add the standard selection menu
;;

(setq selection-default-device "Neuromag system")
(setq std-selection-menu (make-selection-menu *display-menu* "Selection" "S" "pick2" "display2"))