Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  780 1678 (N43E27 L=280)  3189    494        4 ( 561/1599- 994/1760)  -8.1 E56-E07 N39-N47
      2 1065 1546 (N36E01 L=306)   551    109        1 (1028/1512-1123/1572)  26.6 E04-W03 N33-N37
      3 1352 1528 (N37W21 L=328)  1523    288        2 (1234/1499-1489/1556)   2.7 W11-W32 N34-N38
      4 1586 1434 (N31W40 L=347)   884    155        1 (1527/1372-1649/1483) -33.7 W34-W44 N27-N34
      5  579 1369 (N20E33 L=274)   656    114        3 ( 553/1324- 615/1423) -56.3 E35-E30 N17-N23
      6  321 1376 (N18E55 L=252)   979    109        1 ( 274/1338- 349/1419)  45.0 E60-E52 N15-N20
      7 1411 1309 (N22W24 L=331)   268     87        0 (1397/1266-1422/1361)  80.5 W22-W24 N19-N25
      8 1324 1309 (N21W18 L=325)   206     80        0 (1302/1277-1353/1346) -53.1 W16-W19 N19-N23
      9  176 1234 (N08E68 L=239)   978    128        0 ( 156/1202- 217/1296) -26.6 E72-E61 N06-N11
     10 1811 1243 (N20W59 L=  6)   678    138        1 (1741/1219-1847/1277)   8.1 W50-W64 N18-N22
     11  535 1120 (N04E32 L=275)  1220    237        1 ( 513/1009- 572/1238)  90.0 E33-E29 S02-N11
     12 1845 1063 (N09W61 L=  8)   470     62        1 (1823/1030-1865/1096) -53.1 W58-W63 N06-N10
     13  396  995 (S04E41 L=266)   335     83        0 ( 357/ 977- 440/1013)  15.9 E44-E37 S05-S02
     14 1831  922 (N00W60 L=  7)   513     88        0 (1799/ 903-1869/ 959)  14.0 W56-W64 S01-N02
     15  224  796 (S18E60 L=247)   445     50        1 ( 209/ 766- 241/ 826)  53.1 E62-E57 S20-S16
     16  763  737 (S18E15 L=292)   502    173        1 ( 679/ 707- 840/ 783) -15.3 E20-E09 S19-S15
     17 1417  575 (S24W30 L=338)  3118    609        7 (1163/ 474-1671/ 693)  27.9 W14-W48 S32-S14
     18  545  656 (S25E31 L=276)   358     90        2 ( 510/ 628- 588/ 684)  33.7 E33-E27 S26-S22
     19  362  534 (S35E52 L=255)   389     52        0 ( 329/ 523- 391/ 547)   7.1 E56-E48 S36-S33
     20 1042  433 (S36W06 L=313)   473    125        0 ( 990/ 404-1082/ 479)  33.7 W02-W09 S39-S32
  

    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