#declare max_particles = 0;
        #declare step_size = 0;
        #declare grav_const = 0;
        #declare perimeter = 0;
        #declare frames = 0;


        #fopen particle_text "particle.txt" read
        #read (particle_text
,max_particles,step_size,grav_const,perimeter,frames)



        #declare alive = array[max_particles];
        #declare xvec = array[max_particles];
        #declare yvec = array[max_particles];
        #declare xpos = array[max_particles];
        #declare ypos = array[max_particles];
        #declare mass = array[max_particles];
        #declare rad = array[max_particles];


        #declare read_part = 1;
        #while (read_part < max_particles)
                #read
(particle_text,ralive,rxvec,ryvec,rxpos,rypos,rmass,rrad)
                #declare alive[read_part] = ralive;
                #declare xvec[read_part] = rxvec;
                #declare yvec[read_part] = ryvec;
                #declare xpos[read_part] = rxpos;
                #declare ypos[read_part] = rypos;
                #declare mass[read_part] = rmass;
                #declare rad[read_part] = rrad;
                #declare read_part = read_part + 1;
                #declare ralive = 0;
                #declare rxvec = 0;
                #declare ryvec = 0;
                #declare rxpos = 0;
                #declare rypos = 0;
                #declare rmass = 0;
                #declare rrad = 0;

        #end
        #fclose particle_text

Post a reply to this message