Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  920 1702 (N30E28 L=326)   260     55        1 ( 885/1685- 954/1715)  36.9 E30-E26 N28-N31
      2 1462 1632 (N44W10 L=  5)   613    105        0 (1420/1603-1502/1652)  35.5 W07-W14 N41-N47
      3 1674 1447 (N39W32 L= 26)  2358    284        4 (1573/1332-1753/1546) -22.4 W21-W39 N33-N43
      4  382 1488 (N04E56 L=299)   490    115        0 ( 347/1451- 404/1513) -18.4 E59-E52 N01-N05
      5 1027 1269 (N07E06 L=348)   207     82        0 (1014/1229-1044/1312) -59.0 E07-E04 N04-N09
      6 1744 1236 (N27W40 L= 35)   522     75        1 (1713/1213-1771/1268)  63.4 W37-W42 N25-N29
      7 1531 1176 (N16W25 L= 20)   387    123        0 (1486/1114-1562/1237) -35.5 W20-W28 N13-N18
      8 1792 1107 (N21W47 L= 41)   432    107        0 (1760/1085-1828/1137)   8.1 W43-W50 N20-N22
      9 1458 1020 (N05W24 L= 19)   833    223        3 (1389/ 971-1560/1099)  -4.4 W18-W31 N03-N07
     10 1866  984 (N17W57 L= 52)  1049    142        1 (1845/ 910-1885/1046) -36.9 W53-W61 N13-N20
     11 1702  949 (N09W43 L= 38)  1105    244        1 (1610/ 922-1786/ 968)  23.2 W36-W50 N05-N11
     12 1711  766 (N00W50 L= 45)   912    177        0 (1640/ 702-1769/ 839)  63.4 W46-W52 S05-N05
     13  719  758 (S30E11 L=344)   208     73        0 ( 685/ 738- 744/ 789)  63.4 E12-E09 S31-S27
     14 1122  646 (S25W17 L= 12)  1081    297        2 ( 990/ 538-1251/ 722)  -5.0 W06-W29 S27-S21
     15 1510  601 (S15W42 L= 37)   437    137        0 (1446/ 552-1571/ 638)  58.0 W40-W45 S19-S11
  

    OPENR, u, binfile, /COMP, /GET_LUN
    head = FLTARR(6) ;[xsize,ysize,radius,hh,mm,ss]
    READU, u, head
    data = INTARR(FIX(head[0]),FIX(head[1]))
    READU, u, data
    FREE_LUN, u
    

• each filament has the value of Fil_ID
• all values are in pixel

  c = WHERE(data EQ Fil_ID, area)
  f = '(2(A,I6))'
  PRINT, FORM=f, "Area of Fil_ID", Fil_ID," =", area 

  data = ROTATE(data,7)
  Solar_y = 2048-Solar_y