<html><body style="word-wrap: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space; ">Alex,<div><br></div><div>I do not mind at all. It is a good way to learn how you intend the code to be used. with-gl is a simple macro:</div><div><div><br></div><div>(defmacro with-gl (value &body body)</div><div> `(progn (glBegin ,value)</div><div> ,@body</div><div> (glEnd)))</div><div><br></div><div>Not much to it, but what it buys you in a Lisp-aware editor is indentation of the code wrapped by the glBegin and glEnd. I think it makes things a bit more readable.</div><div><br></div><div>slui is a wrapper to a call to cl-who:html. It was suggested by someone on this list a while back as an alternative to writing XML to define the UI's. I see < and > and can not help but think of them more as angry parenthesis, and I am worried that they might try to pick a fight with some of the meeker members of my code. So I try to avoid them when I can.</div><div><br></div><div><div>(defmacro slui (s-expression)</div><div> `(let* ((*read-eval* t)</div><div> (cl-who:*html-empty-tag-aware-p* nil))</div><div> (read-from-string</div><div> (cl-who:with-html-output-to-string</div><div> (s nil :indent t)</div><div> ,s-expression))))</div><div><br></div><div>I'll keep those tutorials coming as I can get to them.</div><div><br></div><div>Regards,</div><div>John</div><div><br></div></div><div><div>On Sep 1, 2009, at 5:45 PM, Alexander Repenning wrote:</div><br class="Apple-interchange-newline"><blockquote type="cite"><div style="word-wrap: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space; "><div>Hi John,</div><div><br></div><div>I hope you don't mind. I just played around with your flag code. For the most part I just made this stand alone. NEHE usually lumps animation and rendering together and does not worry about frame rate independent drawing. This should work without any additional libs and includes the american flag texture.</div><div><br></div><div><br></div><div></div><span></span><span><Waving Flag Lesson 11.lisp></span></div><div style="word-wrap: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space; "><span></span><div></div><div><br></div><div></div><span></span><span><AmericanFlag.png.zip></span></div><div style="word-wrap: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space; "><span></span><div></div><div><br></div><div>alex</div><br><div><div>On Aug 31, 2009, at 3:22 PM, John Miller wrote:</div><br class="Apple-interchange-newline"><blockquote type="cite"><div>Alex,<br><br>Very nice. I wait with bated breath to see how things go with Cocotron and Win32. I had a few minutes to play around and put together the following tries at writing the nehe tutorials using XMLisp. Between the two files you can find tries at lessons 11, 12, and 19. You will need to download the textures, or find a suitable substitue. Most of the early nehe lessons are pretty uninteresting in XMLisp, so I haven't bothered with those. I consider it a testament to the design of XMLisp that most of my time was spent tracking down typos on my part. It is very nice to be able to update the drawing code while the animation is running...<br><br>I have noticed that sometimes Clozure will want to take over all my CPU resources. I am not sure what I am doing to cause this. I only have noticed that when this happens a number of processes for anticipatory completion appear and cannot be killed. Anyone else have this happen?<br><br><br><span><flag-lesson.lisp></span><br><br><span><particle-effects.lisp></span><br><br><br>Thanks for the fun toy,<br>John<br><br>On Aug 25, 2009, at 4:48 PM, Alexander Repenning wrote:<br><br><blockquote type="cite">Dear All,<br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite">this is the release of XMLisp 0.3, the rich media programming<br></blockquote><blockquote type="cite">environment for 3D/ 2D game and simulation applications based on<br></blockquote><blockquote type="cite">Clozure CL.<br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite"><span class="Apple-tab-span" style="white-space:pre"> </span>• 3D: Open Agent Engine: scene graph based mini engine, 3D objects,<br></blockquote><blockquote type="cite">animation, drag and drop, mouse hovering, picking, selection, camera<br></blockquote><blockquote type="cite">control, texture management. Full access to OpenGL functions.<br></blockquote><blockquote type="cite"><span class="Apple-tab-span" style="white-space:pre"> </span>• 2D: controls: layout managers, buttons, sliders, text<br></blockquote><blockquote type="cite"><span class="Apple-tab-span" style="white-space:pre"> </span>• IDE: a simple development environment including symbol completion<br></blockquote><blockquote type="cite">to edit, run and debug code<br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite">Download complete apps and source: <a href="http://code.google.com/p/xmlisp/">http://code.google.com/p/xmlisp/</a><br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite">What is New? Version 0.3<br></blockquote><blockquote type="cite"><span class="Apple-tab-span" style="white-space:pre"> </span>• drag and drop: drag and drop 3D agents within or between windows.<br></blockquote><blockquote type="cite">Sample: Drag and Drop gearbox<br></blockquote><blockquote type="cite"><span class="Apple-tab-span" style="white-space:pre"> </span>• morphs: static meshes and animated morph meshes. Sample: Mona-Lisa<br></blockquote><blockquote type="cite">Morph<br></blockquote><blockquote type="cite"><span class="Apple-tab-span" style="white-space:pre"> </span>• full screen support: switch between windowed and full screen mode.<br></blockquote><blockquote type="cite">Sample: Full-Screen-Support<br></blockquote><blockquote type="cite"><span class="Apple-tab-span" style="white-space:pre"> </span>• 3D text support<br></blockquote><blockquote type="cite"><span class="Apple-tab-span" style="white-space:pre"> </span>• custom cursors (working also for 64 bit)<br></blockquote><blockquote type="cite"><span class="Apple-tab-span" style="white-space:pre"> </span>• transparent OpenGL windows (for annotation and drag and drop)<br></blockquote><blockquote type="cite"><span class="Apple-tab-span" style="white-space:pre"> </span>• support of shared OpenGL contexts<br></blockquote><blockquote type="cite"><span class="Apple-tab-span" style="white-space:pre"> </span>• camera can be added to scene via XML, <camera eye-x="0.5" .../><br></blockquote><blockquote type="cite"><span class="Apple-tab-span" style="white-space:pre"> </span>• various bug fixes and improvements including fast agent picking,<br></blockquote><blockquote type="cite">vertically flipped textures<br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite">Any kind of feedback, suggestions etc. is highly appreciated. This<br></blockquote><blockquote type="cite">still does not have the full functionality of the MCL version but is<br></blockquote><blockquote type="cite">getting there. You should be able to make some simple games. If things<br></blockquote><blockquote type="cite">go well you should be able to do this cross platform.<br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite">cheers, Alex<br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite">Prof. Alexander Repenning<br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite">University of Colorado<br></blockquote><blockquote type="cite">Computer Science Department<br></blockquote><blockquote type="cite">Boulder, CO 80309-430<br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite">vCard: <a href="http://www.cs.colorado.edu/~ralex/AlexanderRepenning.vcf">http://www.cs.colorado.edu/~ralex/AlexanderRepenning.vcf</a><br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite">_______________________________________________<br></blockquote><blockquote type="cite">Openmcl-devel mailing list<br></blockquote><blockquote type="cite"><a href="mailto:Openmcl-devel@clozure.com">Openmcl-devel@clozure.com</a><br></blockquote><blockquote type="cite"><a href="http://clozure.com/mailman/listinfo/openmcl-devel">http://clozure.com/mailman/listinfo/openmcl-devel</a><br></blockquote><br></div></blockquote></div><br><div apple-content-edited="true"> <span class="Apple-style-span" style="font-size: 12px; "><div style="word-wrap: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space; "><span class="Apple-style-span" style="border-collapse: separate; border-spacing: 0px 0px; color: rgb(0, 0, 0); font-family: Helvetica; font-size: 12px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; text-align: auto; -khtml-text-decorations-in-effect: none; text-indent: 0px; -apple-text-size-adjust: auto; text-transform: none; orphans: 2; white-space: normal; widows: 2; word-spacing: 0px; "><span class="Apple-style-span" style="border-collapse: separate; border-spacing: 0px 0px; color: rgb(0, 0, 0); font-family: Helvetica; font-size: 12px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; text-align: auto; -khtml-text-decorations-in-effect: none; text-indent: 0px; -apple-text-size-adjust: auto; text-transform: none; orphans: 2; white-space: normal; widows: 2; word-spacing: 0px; "><span class="Apple-style-span" style="border-collapse: separate; border-spacing: 0px 0px; color: rgb(0, 0, 0); font-family: Helvetica; font-size: 12px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; text-align: auto; -khtml-text-decorations-in-effect: none; text-indent: 0px; -apple-text-size-adjust: auto; text-transform: none; orphans: 2; white-space: normal; widows: 2; word-spacing: 0px; "><div style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; "><font face="Helvetica" size="3" style="font: 12.0px Helvetica">Prof. Alexander Repenning</font></div><div style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; "><br class="khtml-block-placeholder"></div><div style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; ">University of Colorado</div><div style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; ">Computer Science Department</div><div style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; ">Boulder, CO 80309-430</div><div style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; "><br class="khtml-block-placeholder"></div><div style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; "><font face="Helvetica" size="3" style="font: 12.0px Helvetica">vCard: <a href="http://www.cs.colorado.edu/~ralex/AlexanderRepenning.vcf">http://www.cs.colorado.edu/~ralex/AlexanderRepenning.vcf</a></font></div><br class="Apple-interchange-newline"></span></span></span></div></span> </div><br></div></blockquote></div><br></div></body></html>