Here is another script to test:
Code:
'This script will draw a line of hot points along the x-axis
Hot_Points = 10 'Edit this to change amount of hot point
Clone_Points = 4 'Edit this to change amount of clones per hot point
distance_between_points = 1/(Hot_Points -1) 'Evenly distributes points. As hot points go up space between the points goes down
n = ((2+Clone_Points) * Hot_Points) - 1 'Calculates the number of points needed for the frame
Pic.N = n
'loop to draw the points change x with y to draw in the vertical plane
for i = 1 to n
action = (i - 1) mod (Clone_Points + 2)
if action = 0 then
Pic.Blank i,1
Pic.Repeats i,6
elseif action = (Clone_Points +1) then
x = x + distance_between_points
Pic.Blank i,1
Pic.Repeats i,15
else
Pic.Blank i,0
Pic.Repeats i,15
'Edit the color of the points here
Pic.R i,0
Pic.B i,255
Pic.G i,0
end if
y = 0.5 ' centers the line in the middle of the screen
Pic.X i,x
Pic.Y i,y
next
SET objShell = CREATEOBJECT("WScript.Shell")
Pic.SaveToFile("C:\Users\Public\Documents\Global LSX Files\Pic Files\My_PIC_Files\line_002.pic")