Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1296 1680 (N39W27 L=  6)  5509    779       10 (1003/1478-1599/1821) -34.7 W04-W45 N22-N53
      2  680 1587 (N36E22 L=318)  2290    609        4 ( 410/1548- 935/1636) -11.8 E50-E02 N31-N42
      3 1121 1575 (N32W11 L=350)   218     53        0 (1093/1561-1150/1588)   0.0 W08-W12 N31-N33
      4 1640 1429 (N20W46 L= 26)   769    118        1 (1606/1376-1671/1484)  60.3 W42-W49 N16-N23
      5 1190 1417 (N21W13 L=353)   362    137        0 (1146/1391-1249/1463) -33.7 W10-W16 N19-N24
      6  465 1372 (N23E36 L=303)  2451    444        5 ( 293/1226- 579/1458) -19.1 E53-E27 N13-N30
      7  929 1370 (N20E04 L=336)   340    103        1 ( 895/1334- 982/1409) -38.7 E05-W00 N17-N22
      8  162 1287 (N21E68 L=272)   690     68        0 ( 150/1255- 180/1325) -51.3 E71-E64 N18-N23
      9 1656 1256 (N09W43 L= 23)   347     32        1 (1631/1234-1681/1280) -26.6 W41-W45 N07-N10
     10 1141 1233 (N10W08 L=348)   380    173        0 (1060/1213-1224/1262) -21.8 W03-W13 N08-N12
     11  682 1212 (N11E20 L=320)   239     50        1 ( 665/1178- 703/1247) -76.0 E21-E18 N09-N13
     12  780 1182 (N09E14 L=326)   197     51        0 ( 753/1160- 800/1199)   0.0 E15-E12 N07-N10
     13 1370  892 (S12W21 L=  0)  1014    356        2 (1281/ 704-1428/1009)  59.5 W14-W24 S22-S04
     14 1856  951 (S10W60 L= 40)   416     42        0 (1829/ 934-1879/ 970)   9.5 W57-W63 S11-S09
     15  766  850 (S11E17 L=323)   946    293        0 ( 696/ 736- 849/ 962)  47.3 E22-E10 S17-S04
     16 1619  879 (S14W38 L= 18)   259     65        0 (1591/ 852-1653/ 907)  26.6 W36-W40 S15-S12
     17 1124  716 (S21W04 L=344)   251     55        2 (1098/ 690-1150/ 739) -36.9 W02-W06 S22-S19
     18  927  585 (S28E10 L=330)   250     80        1 ( 911/ 544- 946/ 630)  68.2 E10-E08 S30-S25
     19  326  540 (S27E60 L=280)   727    127        0 ( 312/ 477- 343/ 604)  48.8 E64-E56 S30-S22
     20  900  486 (S35E13 L=327)   273     54        0 ( 866/ 466- 931/ 507)  11.3 E15-E10 S36-S33
     21  572  390 (S39E44 L=296)  1044    195        0 ( 506/ 361- 659/ 450) -28.6 E48-E35 S41-S34
  

    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