<html><body><div style="color:#000; background-color:#fff; font-family:times new roman, new york, times, serif;font-size:12pt"><div style="color: rgb(0, 0, 0); font-size: 13px; font-family: arial,helvetica,sans-serif; background-color: transparent; font-style: normal;">Thank you very much for nice trick to turn on the anti-aliasing, Tone.<br></div><div style="color: rgb(0, 0, 0); font-size: 13px; font-family: arial,helvetica,sans-serif; background-color: transparent; font-style: normal;"><br></div><div style="color: rgb(0, 0, 0); font-size: 13px; font-family: arial,helvetica,sans-serif; background-color: transparent; font-style: normal;">I tried to turn off lighting and then try to print the eps file.</div><div style="color: rgb(0, 0, 0); font-size: 13px; font-family: arial,helvetica,sans-serif; background-color: transparent; font-style: normal;">I got the following error:</div><div style="color: rgb(0, 0, 0); font-size: 13px; font-family:
arial,helvetica,sans-serif; background-color: transparent; font-style: normal;"><br></div><div style="color: rgb(0, 0, 0); font-size: 13px; background-color: transparent; font-style: normal;"><span style="font-family: Courier New,courier,monaco,monospace,sans-serif;">.......<br></span></div><div style="color: rgb(0, 0, 0); font-size: 13px; background-color: transparent; font-style: normal;"><span style="font-family: Courier New,courier,monaco,monospace,sans-serif;">Error in startup script: can't read "toglEPS(pointsize)": no such variable<br> while executing<br>"$togl cry_gl2psPrintTogl GL2PS_EPS GL2PS_NO_SORT $toglEPS(pointsize) $toglEPS(linewidth) $filename"<br> (procedure "scripting::printToFile" line 39)<br> invoked from within<br>"scripting::printToFile view1.eps"<br>.......</span></div><div style="color: rgb(0, 0, 0); font-size: 13px; background-color: transparent; font-style: normal;
font-family: Courier New,courier,monaco,monospace,sans-serif;"><br><span style="font-family: Courier New,courier,monaco,monospace,sans-serif;"></span></div><div style="color: rgb(0, 0, 0); font-size: 13px; background-color: transparent; font-style: normal; font-family: Courier New,courier,monaco,monospace,sans-serif;"><span style="font-family: Courier New,courier,monaco,monospace,sans-serif;"><span style="font-family: arial,helvetica,sans-serif;">I tried to modify file Tcl/scripting.tcl</span>:</span></div><div style="color: rgb(0, 0, 0); font-size: 13px; background-color: transparent; font-style: normal; font-family: arial,helvetica,sans-serif;"><br><span style="font-family: Courier New,courier,monaco,monospace,sans-serif;"></span></div><div style="color: rgb(0, 0, 0); font-size: 13px; background-color: transparent; font-style: normal; font-family: Courier New,courier,monaco,monospace,sans-serif;"><span style="font-family: Courier
New,courier,monaco,monospace,sans-serif;">#<br># ligting-OFF mode<br>#<br>set toglEPS(pointsize) 2.0<br>set toglEPS(linewidth) 2.0<br>$togl cry_gl2psPrintTogl GL2PS_EPS GL2PS_NO_SORT \<br> $toglEPS(pointsize) $toglEPS(linewidth) $filename</span></div><div style="color: rgb(0, 0, 0); font-size: 13px; background-color: transparent; font-style: normal; font-family: Courier New,courier,monaco,monospace,sans-serif;"><br><span style="font-family: Courier New,courier,monaco,monospace,sans-serif;"></span></div><div style="color: rgb(0, 0, 0); font-size: 13px; background-color: transparent; font-style: normal;"><span style="font-family: arial,helvetica,sans-serif;"><span>and got the following error:</span></span></div><div style="color: rgb(0, 0, 0); font-size: 13px; background-color: transparent; font-style: normal; font-family: arial,helvetica,sans-serif;"><br><span style="font-family:
arial,helvetica,sans-serif;"><span></span></span></div><div style="color: rgb(0, 0, 0); font-size: 13px; background-color: transparent; font-style: normal;"><span style="font-family: Courier New,courier,monaco,monospace,sans-serif;"><span><span>Error in startup script: wrong # args: should be "toglname cry_gl2psPrintTogl format sort options pointsize linewidth filename"<br> while executing<br>"$togl cry_gl2psPrintTogl GL2PS_EPS GL2PS_NO_SORT $toglEPS(pointsize) $toglEPS(linewidth) $filename"<br> (procedure "scripting::printToFile" line 39)<br> invoked from within<br>"scripting::printToFile view1.eps"</span></span></span></div><div style="color: rgb(0, 0, 0); font-size: 13px; background-color: transparent; font-style: normal; font-family: arial,helvetica,sans-serif;"><br><span style="font-family: arial,helvetica,sans-serif;"><span></span></span><span style="font-family:
arial,helvetica,sans-serif;"><span>I'm sorry that I don' have familiarity with Tcl language, but how to set the value of </span></span><br><span style="font-family: Courier New,courier,monaco,monospace,sans-serif;">$toglEPS(pointsize) $toglEPS(linewidth)<span style="font-family: arial,helvetica,sans-serif;"> in this script?</span><br></span></div><div style="color: rgb(0, 0, 0); font-size: 13px; background-color: transparent; font-style: normal; font-family: Courier New,courier,monaco,monospace,sans-serif;"><br><span style="font-family: Courier New,courier,monaco,monospace,sans-serif;"></span></div><div style="color: rgb(0, 0, 0); font-size: 13px; background-color: transparent; font-style: normal;"><span style="font-family: arial,helvetica,sans-serif;"><span>Best regards.</span></span></div><div style="color: rgb(0, 0, 0); font-size: 13px; background-color: transparent; font-style: normal;"><span style="font-family:
arial,helvetica,sans-serif;"><br><span></span></span></div><div style="color: rgb(0, 0, 0); font-size: 13px; background-color: transparent; font-style: normal; font-family: Courier New,courier,monaco,monospace,sans-serif;"><span style="font-family: Courier New,courier,monaco,monospace,sans-serif;"><span style="font-family: arial,helvetica,sans-serif;">Fadjar</span><br></span></div><div style="color: rgb(0, 0, 0); font-size: 13px; font-family: arial,helvetica,sans-serif; background-color: transparent; font-style: normal;"><span style="font-family: Courier New,courier,monaco,monospace,sans-serif;"><br></span>Graduate Student<br>Department of Precision Science and Applied Physics<br>Graduate School of Engineering<br>Osaka University, Suita, Osaka 565-0871, Japan<br><br><br>----- Original Message -----<br>From: Tone Kokalj <<a ymailto="mailto:tone.kokalj@ijs.si" href="mailto:tone.kokalj@ijs.si">tone.kokalj@ijs.si</a>><br>To: <a
ymailto="mailto:xcrysden@democritos.it" href="mailto:xcrysden@democritos.it">xcrysden@democritos.it</a><br>Cc: <br>Sent: Thursday, June 6, 2013 9:59 PM<br>Subject: Re: [xcrysden] Print in vector format + anti-aliasing using<br>scripting<br><br>On Thu, 2013-06-06 at 04:59 -0700, Tom Marvollo Riddle wrote:<br>> Dear all,<br>> <br>> I intend to produce images from several pwscf output files.<br>> I already used produced some png files using scripting features<br>> of XCrysden (a very nice feature).<br>> <br>> Unfortunately somehow I need the picture files in vector format.<br><br>I would strongly advice against it (unless you will print a few meter<br>wide picture, you don't need it). The reason is that the vectorial EPS<br>files are huge (easily over 100 MB unless the number of atoms is really<br>small).<br><br>My recommendation would be: <br>1. maximize xcrysden's display window<br>2. maximize the displayed structure <br>3. turn on
antialiasing (play a bit with anti-alias settings<br>Modify->.../Antialias Parameters for good result)<br>4. print in PNG<br><br>> The problem is I cannot find documentation about how to print to<br>> vector graphics format such as eps using scripting. <br><br>It automatically prints vectorial EPS for "Lighting-Off" mode and a<br>bitmap one for "Lighting-On" mode (for the above reason). You will have<br>to modify or write a new procedure/routine (see "proc<br>scripting::printToFile" in file Tcl/scripting.tcl). If you write a new<br>routine just embed it into your scripting file.<br><br>> I also cannot find a way to turn on anti-aliasing.<br><br>There is a clever trick of how to do various features via scripting<br>(invented by Hande Ustunel Toffoli) and it goes as follows:<br><br>1. save the scripting file (File-->Save Current State and Structure)<br>without the feature turned on. <br>2. turn the feature on<br>3. save a new scripting
file<br>4. compare the two scripting files and find the difference ....<br><br>Regards,<br>-- <br>Anton Kokalj<br>J. Stefan Institute, Jamova 39, 1000 Ljubljana, Slovenia <br>(tel: +386-1-477-3523 // fax:+386-1-477-3822)<br><br>Please, if possible, avoid sending me Word or PowerPoint attachments.<br>See: <a href="http://www.gnu.org/philosophy/no-word-attachments.html" target="_blank">http://www.gnu.org/philosophy/no-word-attachments.html</a><br><br>_______________________________________________<br>XCrySDen mailing list<br><a ymailto="mailto:XCrySDen@democritos.it" href="mailto:XCrySDen@democritos.it">XCrySDen@democritos.it</a><br><a href="http://www.democritos.it/mailman/listinfo/xcrysden" target="_blank">http://www.democritos.it/mailman/listinfo/xcrysden</a></div></div></body></html>