Changeset 349 in Sophya for trunk/SophyaPI/PIext/basexecut.cc

Timestamp:

Aug 4, 1999, 3:37:31 PM (26 years ago)

Author:

ercodmgr

Message:

A/ ajout des blocs foreach et ameliorations gestion des variables ($x)
pour l'interpreteur piacmd.
B/ Ajout PIStdImgApp::AddText et corrections diverses

Reza 05/08/99

File:

• trunk/SophyaPI/PIext/basexecut.cc (modified) (2 diffs)

trunk/SophyaPI/PIext/basexecut.cc

@@ -77 +77 @@
   mImgApp->SetXYLimits(xmin, xmax, ymin, ymax);
   }
+else if (kw == "addtext") {
+  if (tokens.size() < 4) { cout << "Usage: addtext x y colfontatt txt" << endl;  return(0); }
+  double xp = atof(tokens[0].c_str());
+  double yp = atof(tokens[1].c_str());
+  bool fgsr = true;
+  string txt = tokens[3];
+  for(int k=4; k<tokens.size(); k++) txt += (' ' + tokens[k]);
+  int opt = mObjMgr->GetServiceObj()->DecodeDispOption(tokens[2], fgsr);
+  mImgApp->AddText(txt, xp, yp);
+  if (fgsr) mImgApp->RestoreGraphicAtt(); 
+  }
+  
 // >>>>>>>>>>> Link dynamique de fonctions C++
 else if (kw == "link" ) {
@@ -609 +621 @@
 kw = "setxylimits";
 usage = "Define 2-D plot limits \n Usage: setxylimits xmin xmax ymin ymax";
+usage += "\n  Related commands: gratt";  
+mpiac->RegisterCommand(kw, usage, this, "Graphics");
+
+kw = "addtext";
+usage = "Adds a text string to the current graphic object";
+usage += "\n at the specified position (Gr-Object Coordinate) with graphic attribute specification";
+usage += "\n  Usage: addtext x y ColFontAtt TextString";
 usage += "\n  Related commands: gratt";  
 mpiac->RegisterCommand(kw, usage, this, "Graphics");