Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  638 1798 (N30E53 L= 31)  1607    250        2 ( 606/1731- 665/1866) -47.7 E58-E48 N25-N36
      2 1615 1455 (N36W26 L=111)  2510    424        5 (1485/1308-1732/1587) -23.5 W14-W38 N30-N42
      3  279 1533 (N06E70 L= 14)  1035    232        3 ( 255/1495- 307/1567) -21.0 E77-E64 N03-N08
      4  442 1535 (N08E52 L= 32)  1322    215        1 ( 367/1507- 532/1559)  22.6 E58-E45 N05-N10
      5  921 1420 (N12E17 L= 68)   449    120        0 ( 862/1395- 994/1443)  39.8 E19-E12 N09-N15
      6  426 1303 (S06E44 L= 40)  1723    345        1 ( 321/1137- 528/1438)  70.7 E48-E40 S16-N04
      7 1321 1240 (N13W11 L= 95)  1887    417        2 (1173/1044-1419/1385) -30.6 E01-W21 N04-N17
      8  263 1259 (S11E57 L= 28)   380    127        1 ( 224/1206- 291/1312)  66.8 E59-E55 S14-S07
      9 1719 1240 (N26W38 L=122)   275     32        0 (1697/1217-1734/1259) -63.4 W35-W39 N24-N27
     10  121 1055 (S25E67 L= 18)   626    115        0 ( 101/1036- 151/1080) -18.4 E69-E62 S25-S23
     11  166 1025 (S26E61 L= 24)   448    152        0 ( 131/1010- 211/1044)  14.0 E64-E56 S27-S24
     12 1579  654 (S11W45 L=129)   336     77        0 (1567/ 609-1594/ 694) -59.0 W43-W46 S13-S08
     13 1563  439 (S22W55 L=140)   707    130        0 (1506/ 423-1614/ 455)  16.7 W49-W59 S23-S19
  

    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