This seems to work:

#include "strings.inc"
#include "colors.inc"


#macro Lights ()
         light_source { <100,1000,-1000>, White}
#end

#macro Camera ()
         camera { location <0,1,-16>  look_at <0,0,0>}
#end

#macro Action ()
         sphere { 0, .5 pigment { Red } }
#end

#fopen MyFile "FILEIO5.TXT" write 

#write (MyFile,"\"Lights\",\"Camera\",\"Action\"")
#fclose MyFile

#fopen MyFile "FILEIO5.TXT" read

#read (MyFile,Name1,Name2,Name3)

Parse_String (Name1) ()
Parse_String (Name2) ()
Parse_String (Name3) ()

#fclose MyFile

Post a reply to this message