to makedemobmps ;setErrorAction [pause] setSaveSize [400 300] repeat count demolist [ makeDemoBMP_j=repcount+0 makeDemoBMPs_file=thisdemo makeDemoBMP_j clearText (pr makeDemoBMPs_file [\; demo nr.] makeDemoBMP_j) catch "error [ catch "RunSecureTimer [ (runSecure 0 ;security_dlcall ;+security_iodll ;+security_shell ;+security_filewrite ;+security_fileread ;+security_dirs ;+security_thread ;+security_keyboard ;+security_gui ;+security_erase ;+security_buried ;+security_namespace makeDemoBMPs_file 10000000 ;stack size (in bytes) 10000000 ;graphic record size (in graphic primitives) 100*1000*1000 ;memory size (in bytes) 655360 ;max. number of nodes 10000 ;timeout (in milliseconds) ) ] ] err=Error if err != [] [ show err ; pause ] updateGraph wait 0 dispatchMessages filename=word makeDemoBMPs_file "|_.png| ifelse (count GraphCurrent) > 16 [ saveScreen filename ][ saveImage ConsoleBitmap filename ] updateVars resetwem ; without erasing makeDemoBMPs ] end to demolist local [l f] f=(Files [*.lg]) f=remove "makedemobmps.lg f output f end to thisdemo start local [l f] f=(Files [*.lg]) f=remove "makedemobmps.lg f l=replace ".lg " Item start f output l end to resetwem cd "|D:/users/AndreasM/aUCBLogo| erase remove "makedemobmps remove "demolist remove "thisdemo remove "resetwem procedures erase buried erase list [] ; remove "template_number ; remove "foreach_template ; remove "template_lists first bf Names erase Tables while [keyp][ignore readChar] setCaseIgnored true ; singleBuffer clearScreen setUpdateGraph true setPenColor 0 setScreenColor 7 setFloodColor 0 setPenSize [1 1] disableCylinderLines enableLineSmooth setLabelFont [Times] showTurtle PenDown setLightAmbient rgb 0.1 0.1 0.1 setLightDiffuse rgb 1 1 1 unperspective refresh wrap insertMode disableTexture disableShadows clearShadows end