
(SETF *PRINCOMP* (GUIDEMAP)) 
(SEND *PRINCOMP* :TITLE "Principal Components") 
(SEND *PRINCOMP* :NUM-ICONS 8) 
(SEND *PRINCOMP* :CONNECTION-LIST (QUOTE ((4) (4) (3) (6) (2 5) (7) (NIL) (NIL)))) 
(SEND *PRINCOMP* :X (QUOTE (35 146 35 45 90 146 35 146))) 
(SEND *PRINCOMP* :Y (QUOTE (40 40 101 130 69 100 200 200))) 
(SEND *PRINCOMP* :ICON-TYPE (QUOTE (6 6 6 1 7 6 6 6))) 
(SEND *PRINCOMP* :ICON-TITLE (QUOTE ("Visualize" "Report" "Create Data" "Data" " " "Link:Transform" "Return" "Return"))) 
(SEND *PRINCOMP* :ICON-NUMBER-LIST (QUOTE NIL)) 
(SEND *PRINCOMP* :REDRAW-ORDER (QUOTE (4 2 3 6 7 0 1 5))) 
(SEND *PRINCOMP* :SELECTED-ICON 5) 
(SEND *PRINCOMP* :TOOLBAR NIL) 
(SEND *PRINCOMP* :NUM-DATA-ICONS 1) 
(SEND *PRINCOMP* :NUM-MODEL-ICONS 0) 
(SEND *PRINCOMP* :DATA-ICON-NUMBER-LIST (QUOTE (3))) 
(SEND *PRINCOMP* :MODEL-ICON-NUMBER-LIST (QUOTE NIL)) 
(SEND *PRINCOMP* :SELECTED-DATA-ICON 3) 
(SEND *PRINCOMP* :PREVIOUSLY-SELECTED-DATA-ICON NIL) 
(SEND *PRINCOMP* :NUM-DATA-MENU-ITEMS NIL) 
(SEND *PRINCOMP* :NUM-MODEL-MENU-ITEMS NIL) 
(SEND *PRINCOMP* :ACTIVE-BUTTON-LIST (QUOTE (0 1))) 
(LET ((N (QUOTE 8)) (X (QUOTE (35 146 35 45 90 146 35 146))) (Y (QUOTE (40 40 101 130 69 100 200 200))) (ICON-TITLE (QUOTE ("Visualize" "Report" "Create Data" "Data" " " "Link:Transform" "Return" "Return"))) (ICON-TYPE (QUOTE (6 6 6 1 7 6 6 6))) (ICON-LIST NIL)) (DOTIMES (I N) (SETF ICON-LIST (COMBINE ICON-LIST (MAKE-ICON *PRINCOMP* (SELECT X I) (SELECT Y I) (SELECT ICON-TITLE I) (SELECT ICON-TYPE I)))) (SEND *PRINCOMP* :ICON-LIST (REST ICON-LIST)))) 
(SEND *PRINCOMP* :DATA-ICON-LIST (SELECT (SEND *PRINCOMP* :ICON-LIST) (SEND *PRINCOMP* :DATA-ICON-NUMBER-LIST))) 
(SEND *PRINCOMP* :MODEL-ICON-LIST (SELECT (SEND *PRINCOMP* :ICON-LIST) (SEND *PRINCOMP* :MODEL-ICON-NUMBER-LIST))) 
(SEND (SELECT (SEND *PRINCOMP* :ICON-LIST) 4) :NUM-IN-CONNECTIONS 2) 
(SEND (SELECT (SEND *PRINCOMP* :ICON-LIST) 4) :NUM-IN-CONNECTED-NOW 0) 