Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  468 1659 (N25E61 L=228)  4201    253        6 ( 427/1540- 520/1757) -27.4 E79-E50 N17-N32
      2  714 1618 (N28E36 L=252)   337     85        1 ( 677/1592- 749/1639)   9.5 E38-E32 N26-N29
      3 1357 1576 (N41W11 L=299)   327    147        0 (1293/1532-1401/1610) -16.7 W04-W14 N38-N42
      4 1680 1523 (N46W45 L=333)   609     97        0 (1629/1493-1719/1544)   0.0 W37-W49 N44-N47
      5  296 1484 (N11E67 L=222)   498     49        1 ( 272/1463- 317/1510)  90.0 E69-E63 N09-N13
      6 1502 1402 (N32W24 L=313)   519    167        0 (1452/1337-1556/1457) -31.0 W19-W29 N28-N34
      7 1328 1411 (N28W11 L=300)   765    274        0 (1211/1346-1434/1446)  -3.4 W02-W19 N26-N29
      8 1393 1174 (N15W19 L=308)   205     66        0 (1368/1138-1419/1204) -36.9 W17-W21 N13-N16
      9  592 1008 (S11E26 L=262)   332     94        0 ( 539/ 991- 636/1028)  33.7 E29-E23 S13-S09
     10 1867  963 (N13W64 L=352)   739    114        0 (1828/ 908-1893/ 997) -35.5 W58-W68 N09-N14
     11  728  908 (S15E15 L=273)   229    113        1 ( 683/ 870- 766/ 936)   0.0 E18-E12 S16-S12
     12  790  733 (S24E08 L=280)   220     72        1 ( 755/ 716- 831/ 755)  11.3 E10-E05 S24-S22
     13 1545  661 (S12W42 L=330)   438    114        1 (1490/ 644-1602/ 677)  14.0 W38-W46 S13-S10
     14 1703  648 (S09W56 L=345)   431     58        0 (1687/ 616-1724/ 673)  90.0 W54-W57 S11-S07
     15 1537  468 (S24W51 L=340)  1381    185        1 (1502/ 388-1584/ 552) -57.5 W48-W58 S28-S17
     16  576  504 (S45E22 L=266)   425     51        1 ( 547/ 478- 602/ 534)  51.3 E25-E19 S47-S42
     17 1041  472 (S35W15 L=303)   527    162        0 ( 977/ 453-1120/ 501)  29.1 W10-W19 S37-S31
  

    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