Size=100

Dim Test1(Size)
Dim Test2(Size)

; fill both arrays with some random integers between 0 and 1000
for lp =0 to Size
Test1(lp)=rnd(1000)
Test2(lp)=rnd(1000)
next

; Place a couple of value at the end of our arrays to check we're
; getting all the values in the merged output
test1(Size) = 5000
test2(Size) = 9999


; Sort the Arrays 
SortArray Test1(),0,Size
SortArray Test2(),0,Size


Dim Result(0)


Result()=MergeSortedArrays(Test1(), Test2())

Sync
waitkey




Function MergeSortedArrays(a(), b())

 ; dim our arrat C() to hold both merged arrays
  A_Size =getarrayelements(a())
 B_Size =getarrayelements(b())



 ; output array total size
  C_Size = A_Size+B_Size+1
  Dim c(C_Size)

  ; Initialize variables to track the current position in each array
  i = 0
  j = 0
  for LP=0 to C_Size
   ; Check if the value in array A is
   ; smaller than the value in array B

   if a(i) < b(j) 
       ; Add the value from array A to the merged array
      c(lp) = a(i)
      i++ ; Move to the next element in array A

; Check if we're out of values in array A
if i>A_Size
; If so, we copy the rest of B() to C()
For CopyLP = j to B_Size
LP++
c(LP)=b(CopyLP)
next

  endif
  
    Else 
    
    ; Otherwise, the value in array B is smaller
      ; Add the value from array B to the merged array
      c(lp) = b(j)
      j++ ; Move to the next element in array B

; Check if we're out of values in array B
if j>B_Size

; if so, we can copy the rest of A() to C()
For CopyLP = i to A_Size
LP++
c(lp)=a(CopyLP)
next
endif

    Endif

  next lp
  ; Return the merged array
EndFunction c() 

Do
// Clear the screen
Cls

// Set line1StartX, line1StartY, line1EndX, and line1EndY to variables
line1StartX=100
line1StartY=100
line1EndX = mousex()
line1EndY = mousey()

// Set line2StartX, line2StartY, line2EndX, and line2EndY to variables
line2StartX=20
line2StartY=200
line2EndX=1000
line2EndY=700

// Draw line1 in black
linec line1StartX, line1StartY, line1EndX, line1EndY,-1

// Draw line2 in green
linec line2StartX, line2StartY, line2EndX, line2EndY,$00ff00

// Check if lines intersect
State,x#,y#=Lines_Intersect(line1StartX, line1StartY, line1EndX, line1EndY,_
            line2StartX, line2StartY, line2EndX, line2EndY)

// Print intersect state
print State

// If lines intersect, draw a red circle at intersect point
if State
Circlec X#,y#,10,true,$ff0000
endif

// Display the screen

sync
loop spacekey()

end


 
Function Lines_Intersect(line1StartX, line1StartY, line1EndX, line1EndY, line2StartX, line2StartY, line2EndX, line2EndY)

// Initialize variables
intersects = False
intersectX = 0
intersectY = 0
s1_x# = line1EndX - line1StartX
s1_y# = line1EndY - line1StartY
s2_x# = line2EndX - line2StartX
s2_y# = line2EndY - line2StartY

// Calculate s and t
s# = (-s1_y# * (line1StartX - line2StartX) + s1_x# * (line1StartY - line2StartY)) / (-s2_x# * s1_y# + s1_x# * s2_y#)
t# = ( s2_x# * (line1StartY - line2StartY) - s2_y# * (line1StartX - line2StartX)) / (-s2_x# * s1_y# + s1_x# * s2_y#)

// Check if s and t are within valid range
if s# >= 0 and s# <= 1 and t# >= 0 and t# <= 1
// Set intersects to true and calculate intersectX and intersectY
    intersects = True
    intersectX# = line1StartX + (t# * s1_x#)
    intersectY# = line1StartY + (t# * s1_y#)
EndIf

// Return intersects, intersectX, and intersectY

EndFunction intersects, intersectX#, intersectY#