Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  638 1794 (N38E59 L=145)  1013    129        1 ( 594/1755- 690/1842)  -7.9 E78-E49 N35-N40
      2  606 1677 (N28E49 L=155)  1097    196        2 ( 524/1641- 691/1725)  45.0 E54-E45 N24-N33
      3 1430 1541 (N40W16 L=220)  1163    236        2 (1346/1456-1470/1624) -39.8 W07-W19 N33-N45
      4  890 1519 (N24E21 L=183)   365    181        0 ( 832/1449- 941/1579) -28.6 E26-E15 N20-N27
      5  327 1538 (N14E67 L=137)   664     64        0 ( 303/1499- 356/1575) -68.2 E68-E64 N11-N16
      6 1356 1364 (N26W13 L=217)  1581    624        0 (1205/1095-1471/1548) -40.2 E01-W25 N11-N35
      7  934 1347 (N15E13 L=191)   837    294        3 ( 815/1301-1059/1390)   0.0 E20-E04 N12-N17
      8 1276 1318 (N21W09 L=212)   296    107        0 (1252/1267-1289/1362) -51.3 W06-W10 N17-N23
      9 1696 1220 (N25W41 L=245)  1164    259        3 (1657/1144-1777/1275) -49.4 W37-W50 N20-N28
     10  303 1138 (S11E51 L=152)  1235    316        2 ( 261/1014- 345/1265) -54.5 E57-E46 S17-S03
     11  211 1121 (S13E61 L=142)  2598    300        8 ( 151/ 991- 252/1228) -70.3 E70-E54 S20-S06
     12 1889 1030 (N18W66 L=270)  1105    136        1 (1871/ 965-1909/1101) -76.0 W62-W69 N14-N22
     13  372  985 (S18E42 L=161)   517    128        0 ( 339/ 932- 394/1049)  69.4 E44-E40 S22-S14
     14 1275  711 (S15W22 L=226)   240     54        1 (1248/ 685-1291/ 742) -56.3 W20-W24 S16-S12
     15 1109  693 (S20W13 L=216)   608    214        0 (1007/ 675-1201/ 716)  26.6 W06-W18 S22-S16
     16  494  633 (S38E29 L=174)  1998    356        4 ( 359/ 574- 634/ 706)  -4.4 E43-E16 S40-S35
     17  288  669 (S41E53 L=151)  1188    110        0 ( 230/ 647- 346/ 696)  14.0 E64-E44 S43-S38
     18  507  473 (S50E29 L=175)   344     63        0 ( 478/ 458- 541/ 494)   0.0 E32-E25 S51-S49
     19  795  380 (S49W01 L=205)   690    146        1 ( 744/ 337- 864/ 429)  -9.5 E04-W08 S51-S46
     20 1222  344 (S39W36 L=240)   362     44        1 (1192/ 323-1248/ 360)   0.0 W32-W38 S40-S37
  

    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