Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1244 1744 (N45E10 L= 14)  2738    431        5 (1119/1590-1398/1887) -24.0 E30-W06 N37-N54
      2  616 1737 (N25E52 L=332)   982    107        2 ( 569/1703- 671/1774)  51.3 E55-E49 N21-N28
      3 1005 1686 (N32E22 L=  2)   666    211        0 ( 936/1601-1036/1760) -32.7 E31-E17 N26-N35
      4  640 1681 (N21E46 L=339)  1115    255        2 ( 551/1614- 734/1738)  67.4 E49-E42 N15-N27
      5  870 1628 (N24E28 L=357)   302     84        0 ( 853/1597- 885/1672) -51.3 E30-E25 N21-N26
      6 1351 1389 (N23W09 L= 33)   303     97        0 (1323/1353-1379/1434) -26.6 W05-W11 N21-N24
      7 1821 1386 (N41W51 L= 76)   494     46        0 (1794/1368-1845/1406)  12.5 W46-W55 N39-N43
      8 1755 1247 (N28W42 L= 66)   382     94        1 (1724/1220-1790/1296) -23.2 W38-W45 N26-N30
      9  191 1026 (S26E62 L=323)   588    143        0 ( 150/ 979- 240/1090)  36.0 E67-E56 S29-S21
     10  632  938 (S22E21 L=  4)   447    130        1 ( 577/ 894- 680/ 961)  50.2 E23-E17 S25-S19
     11 1718  650 (S06W57 L= 81)   462     50        0 (1697/ 629-1744/ 675)   0.0 W54-W60 S07-S04
     12 1329  519 (S25W35 L= 60)   281     69        1 (1289/ 495-1365/ 541)  63.4 W33-W37 S27-S23
     13 1273  422 (S33W38 L= 62)   342     73        0 (1255/ 379-1289/ 460) -38.7 W35-W41 S35-S30
     14 1312  192 (S44W66 L= 91)   646     82        0 (1284/ 159-1342/ 227)  -6.3 W59-W77 S44-S42
  

    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