Crspoint

Gets the intersection between 2 straight lines.

Crspoint <Straight Line 1st Component>,<Straight Line 2nd Component>,<X Coordinate>,<Y Coordinate>

Parameters

<Straight Line 1st Component>	The parameter of Straight Line 1 for getting the intersection (double-precision type array)
<Straight Line 2nd Component>	The parameter of Straight Line 2 for getting the intersection (double-precision type array)
<X Coordinate>	X coordinate storage region for the intersection that was gotten (double-precision).
<Y Coordinate>	Y coordinate storage region for the intersection that was gotten (double-precision).

Return Value

None.

Description

Store the a, b, c parameters that meet the conditions of the straight line equation: ax+by=c in the <Straight Line 1st Component> and <Straight Line 2nd Component>.These parameters are the same type of array that is gotten using the Lsqumeth command to get <Line Components>.

This is mainly used to get the intersection of lines gotten by the

Lsqumeth command.

Example
Get the intersection coordinates between the 2 straight lines that were gotten.Display a cross cursor at the intersection. Each of the 2 straight lines will be gotten using Units 1 to 4 and Units 5 to 8.

    Dim POS1X#(3),POS1Y#(3),POS2X#(3),POS2Y#(3),PARM1#(2),PARM2#(2) 

    For I&=0 To 3 
        GetUnitData I&+1,"X",POS1X#(I&)
        GetUnitData I&+1,"Y",POS1Y#(I&)
    Next 
    Lsqumeth 4,POS1X#(),POS1Y#(),PARM1#()

    For I&=0 To 3 
        GetUnitData I&+5,"X",POS2X#(I&)
        GetUnitData I&+5,"Y",POS2Y#(I&)
    Next 
    Lsqumeth 4,POS2X#(),POS2Y#(),PARM2#()

    Crspoint PARM1#(),PARM2#(),CRSX#,CRSY#
    DrawCursor CRSX#,CRSY#,0
    Erase POS1X#(),POS1Y#(),POS2X#(),POS2Y#(),PARM1#(),PARM2#()