load all
load ../../PLALib/load-jpla-parts

**** saved *************************************************************

(seq
(g2dexe graphics2d (supdate "g2d.pla.PLA" "developmental" (boolean true)))
(loadg2dlib graphics2d ../../PLALib/load-jg2dlib.lsp)

(initPLAeset maude graphics2d graphics2d)
(initKBManagerD graphics2d QQQ)
(initDishes QQQ)

**** restore saved kb and graph

(restore RKB-tkb.txt tmp entry) 
(restore RKB-graph.txt tmp entry) 
(restore RKB-occmap.txt tmp entry)

**** restore hand crafted evidence
(restore evidence.txt tmp entry)
(g2dexe graphics2d (seq (define evidencePath (concat "file://" (sinvoke "g2d.util.IO" "resolveLinks" "./evidence"))) (apply logDev (concat "evidencePath: " evidencePath)) ))

**** user preferences
(g2dexe graphics2d (seq (define useChattyLabels (boolean true))(apply logDev (concat "useChattyLabels: " useChattyLabels)) ))
(g2dexe graphics2d (seq (define explorerCheckBoxDefault (boolean true))(apply logDev (concat "explorerCheckBoxDefault: " explorerCheckBoxDefault)) ))


(g2dexe graphics2d (seq (apply initJKB "RKB") (apply loadbasicjkb "RKB" "JSONU")))

**** new for managing occ labels
(g2dexe graphics2d (seq (apply setStandardLabelsKB "RKB")(apply logDev "setStandardLabelsKB")))

(g2dexe graphics2d (seq (apply setModelName "RKB" "STM")(apply logDev (concat "ModelName: " (apply getModelName "RKB"))) ))

(mkNSaveDishNet RKB AnisoDish       )
(g2dexe graphics2d (apply logDev (concat "Dishnet: AnisoDish" )))
(mkNSaveDishNet RKB AdriamycinDish  )
(g2dexe graphics2d (apply logDev (concat "Dishnet: AdriamycinDish" )))
(mkNSaveDishNet RKB BleomycinDish   )
(g2dexe graphics2d (apply logDev (concat "Dishnet: BleomycinDish" )))
(mkNSaveDishNet RKB Cd40Dish        )
(g2dexe graphics2d (apply logDev (concat "Dishnet: Cd40Dish" )))
(mkNSaveDishNet RKB Csf1Dish        )
(g2dexe graphics2d (apply logDev (concat "Dishnet: Csf1Dish" )))
(mkNSaveDishNet RKB DrugDish        )                
(g2dexe graphics2d (apply logDev (concat "Dishnet: DrugDish" )))
(mkNSaveDishNet RKB EgfDish         )                
(g2dexe graphics2d (apply logDev (concat "Dishnet: EgfDosj" )))
(mkNSaveDishNet RKB EtoposideDish   )                
(g2dexe graphics2d (apply logDev (concat "Dishnet: EtoposideDish" )))
(mkNSaveDishNet RKB HgfDish         )                
(g2dexe graphics2d (apply logDev (concat "Dishnet: HgfDish" )))
(mkNSaveDishNet RKB HydroxyureaDish )                
(g2dexe graphics2d (apply logDev (concat "Dishnet: HydroxyureaDish" )))
(mkNSaveDishNet RKB IfnabDish       )                
(g2dexe graphics2d (apply logDev (concat "Dishnet: IfnabDish" )))
(mkNSaveDishNet RKB IfngDish        )                
(g2dexe graphics2d (apply logDev (concat "Dishnet: IfngDish" )))
(mkNSaveDishNet RKB Igf1Dish        )                
(g2dexe graphics2d (apply logDev (concat "Dishnet: Igf1Dish" )))
(mkNSaveDishNet RKB IL1Dish         )                
(g2dexe graphics2d (apply logDev (concat "Dishnet: IL1Dish" )))
(mkNSaveDishNet RKB IL2Dish         )                
(g2dexe graphics2d (apply logDev (concat "Dishnet: IL2Dish" )))
(mkNSaveDishNet RKB IL4Dish         )                
(g2dexe graphics2d (apply logDev (concat "Dishnet: IL4Dish" )))
(mkNSaveDishNet RKB IL6Dish         )                
(g2dexe graphics2d (apply logDev (concat "Dishnet: IL6Dish" )))
(mkNSaveDishNet RKB IL12Dish        )                
(g2dexe graphics2d (apply logDev (concat "Dishnet: IL12Dish" )))
(mkNSaveDishNet RKB IL22Dish        )                
(g2dexe graphics2d (apply logDev (concat "Dishnet: IL22Dish" )))
(mkNSaveDishNet RKB InsDish         )                
(g2dexe graphics2d (apply logDev (concat "Dishnet: InsDish" )))
(mkNSaveDishNet RKB IRadDish        )                
(g2dexe graphics2d (apply logDev (concat "Dishnet: IRadDish" )))
(mkNSaveDishNet RKB LpsDish         )                
(g2dexe graphics2d (apply logDev (concat "Dishnet: LpsDish" )))
(mkNSaveDishNet RKB NgfDish         )                
(g2dexe graphics2d (apply logDev (concat "Dishnet: NgfDish" )))
(mkNSaveDishNet RKB NCSDish         )                
(g2dexe graphics2d (apply logDev (concat "Dishnet: NCSDish" )))
(mkNSaveDishNet RKB PdgfDish        )                
(g2dexe graphics2d (apply logDev (concat "Dishnet: PdgfDish" )))
(mkNSaveDishNet RKB PMADish         )                
(g2dexe graphics2d (apply logDev (concat "Dishnet: PMADish" )))
(mkNSaveDishNet RKB PolyICDish      )                
(g2dexe graphics2d (apply logDev (concat "Dishnet: PolyICDish" )))
(mkNSaveDishNet RKB SerumDish       )                
(g2dexe graphics2d (apply logDev (concat "Dishnet: SerumDish" )))
(mkNSaveDishNet RKB SorbitolDish    )                
(g2dexe graphics2d (apply logDev (concat "Dishnet: SorbitolDish" )))
(mkNSaveDishNet RKB Tgfb1Dish       )                
(g2dexe graphics2d (apply logDev (concat "Dishnet: Tgfb1Dish" )))
(mkNSaveDishNet RKB TLR9Dish        )                
(g2dexe graphics2d (apply logDev (concat "Dishnet: TLR9Dish" )))
(mkNSaveDishNet RKB TnfDish         )                
(g2dexe graphics2d (apply logDev (concat "Dishnet: TnfDish" )))
(mkNSaveDishNet RKB VegfDish        )                
(g2dexe graphics2d (apply logDev (concat "Dishnet: VegfDish" )))
(mkNSaveDishNet RKB UVDish          )                
(g2dexe graphics2d (apply logDev (concat "Dishnet: UVDish" )))

(startListener RKB graphreq graphics2d)
(defineKBGraph RKB graphics2d)

*** needed while Maude is in control of nids
(g2dexe graphics2d  (apply fixNids "RKB"))

)

