Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1524 1692 (N28W57 L= 79)  2660    332        5 (1406/1630-1683/1745) -21.8 W45-W72 N21-N31
      2 1611 1538 (N17W53 L= 74)   690    138        0 (1548/1497-1678/1570) -45.0 W49-W56 N13-N20
      3  249 1225 (N32E52 L=330)  1392    273        1 ( 161/1124- 330/1296) -31.3 E66-E43 N23-N37
      4 1838 1185 (S08W58 L= 80)  2932    387        8 (1773/1103-1914/1286) -55.3 W51-W68 S13-N00
      5 1704 1165 (S05W45 L= 67)   528    177        3 (1672/1076-1748/1215)  31.0 W40-W50 S09-S02
      6 1415 1105 (S01W24 L= 45)   652    225        2 (1370/1039-1489/1158)  20.6 W20-W29 S04-N01
      7  264 1058 (N21E50 L=331)   320     49        1 ( 240/1039- 286/1082)  11.3 E52-E47 N19-N22
      8 1156  915 (S06W05 L= 26)  1767    490        4 (1009/ 754-1299/1067) -63.4 W00-W10 S17-N04
      9 1549 1003 (S10W30 L= 52)   303     68        1 (1516/ 975-1572/1035)  21.8 W27-W32 S12-S08
     10 1450 1002 (S08W24 L= 45)   406     97        2 (1409/ 963-1487/1030) -11.3 W21-W26 S10-S05
     11  573  971 (N10E27 L=354)   582    164        0 ( 494/ 952- 655/ 996) -26.6 E32-E22 N07-N12
     12 1538  792 (S22W26 L= 47)   272     61        0 (1520/ 758-1553/ 826)  56.3 W24-W27 S24-S20
     13 1416  587 (S32W14 L= 35)  2289    424        6 (1359/ 423-1467/ 779)  76.0 W08-W17 S42-S18
     14 1623  734 (S28W32 L= 53)  1208    182        2 (1549/ 693-1707/ 769) -17.1 W26-W39 S30-S24
     15  669  472 (S20E36 L=345)  3519    730        4 ( 441/ 291- 848/ 710)  17.5 E71-E17 S27-S10
     16  710  674 (S10E26 L=355)   263     61        0 ( 687/ 652- 739/ 698) -18.4 E27-E24 S10-S07
     17  695  622 (S12E29 L=353)   697    188        1 ( 615/ 579- 791/ 664)  -4.8 E34-E22 S13-S10
     18 1377  498 (S37W10 L= 31)   241     48        1 (1348/ 476-1400/ 516) -63.4 W07-W11 S38-S34
     19 1348  453 (S39W07 L= 28)   303     62        1 (1330/ 428-1374/ 488) -90.0 W05-W08 S41-S36
     20 1288  333 (S47E01 L= 20)  1982    237        6 (1188/ 287-1397/ 401)   0.0 E09-W09 S49-S43
  

    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