Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1348 1585 (N33W20 L=294)   394     78        0 (1333/1544-1363/1625) -90.0 W19-W21 N29-N35
      2 1501 1602 (N35W33 L=307)   353     39        1 (1478/1573-1525/1624)  63.4 W31-W35 N33-N37
      3 1705 1457 (N27W48 L=322)  1306    169        0 (1632/1399-1770/1510) -28.6 W42-W54 N23-N30
      4  204 1419 (N18E67 L=207)  1088    124        2 ( 177/1363- 228/1464)  74.1 E71-E64 N14-N21
      5  274 1344 (N13E55 L=219)   558    113        1 ( 227/1316- 329/1377)  18.4 E60-E50 N11-N15
      6  446 1273 (N09E38 L=236)   654    166        0 ( 369/1247- 528/1294)  -9.5 E44-E32 N07-N10
      7 1852 1268 (N16W60 L=334)   669    143        1 (1781/1233-1900/1294)  -8.7 W52-W66 N14-N17
      8 1865 1130 (N08W60 L=334)   482     89        2 (1824/1101-1895/1167)  26.6 W55-W64 N06-N10
      9  171  978 (S08E62 L=212)   758     90        1 ( 125/ 944- 207/1001)  -5.2 E68-E57 S10-S07
     10  283  918 (S12E51 L=223)   538     92        0 ( 264/ 866- 304/ 960)  63.4 E52-E48 S15-S09
     11 1356  589 (S29W25 L=299)  2182    460        4 (1272/ 462-1488/ 714)  69.4 W19-W33 S37-S20
     12 1505  551 (S30W38 L=312)   563    144        1 (1453/ 501-1557/ 617)  69.4 W34-W40 S33-S25
     13  426  568 (S34E45 L=229)  1113    262        0 ( 329/ 504- 527/ 607)  11.3 E59-E34 S38-S31
     14 1583  339 (S44W61 L=334)  1786    168        1 (1505/ 313-1667/ 366)   0.0 W48-W80 S45-S42
     15  874  331 (S51E09 L=265)  1930    358        3 ( 685/ 310-1021/ 365)   5.4 E28-W04 S53-S47
  

    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