Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1405 1781 (N55W48 L=133)   424     46        0 (1386/1757-1431/1797)  15.3 W43-W54 N53-N56
      2 1232 1772 (N56W25 L=110)   769    144        0 (1175/1737-1304/1794)  12.5 W17-W35 N52-N57
      3 1035 1449 (N31W02 L= 86)  1034    304        1 ( 934/1367-1153/1523) -35.5 E05-W09 N24-N35
      4 1726 1475 (N29W60 L=145)  1854    216        3 (1640/1441-1822/1509)   4.6 W48-W85 N27-N30
      5  264 1343 (N23E60 L= 24)  1753    171        5 ( 210/1284- 337/1407)  41.6 E67-E54 N19-N27
      6 1131 1281 (N19W07 L= 92)   266    128        0 (1067/1269-1189/1298)   7.1 W03-W11 N18-N20
      7 1429 1142 (N10W26 L=110)   255    128        0 (1401/1087-1471/1195)  49.4 W23-W29 N06-N13
      8  346 1032 (N04E46 L= 38)   510    123        1 ( 291/1010- 390/1067)  24.0 E51-E42 N02-N06
      9  651 1035 (N05E23 L= 61)   202     52        1 ( 621/1021- 676/1050)  14.0 E25-E21 N03-N05
     10  748  941 (S01E17 L= 67)   245     58        0 ( 736/ 908- 761/ 981) -90.0 E17-E16 S02-N01
     11  696  787 (S11E21 L= 63)   296    103        0 ( 644/ 765- 746/ 805)  15.9 E24-E17 S11-S09
     12 1773  710 (S19W56 L=141)   438     60        0 (1749/ 684-1803/ 730)  21.8 W53-W59 S20-S17
     13 1396  412 (S38W29 L=113)   527     65        1 (1364/ 386-1428/ 446) -39.8 W25-W31 S40-S35
  

    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