Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1016 1542 (N37W16 L=340)   420    110        1 ( 966/1512-1065/1581)   5.7 W11-W21 N34-N37
      2 1300 1541 (N28W34 L=358)   286     89        0 (1259/1521-1345/1558)  -8.1 W30-W37 N26-N28
      3  817 1508 (N40W01 L=325)   273     50        0 ( 796/1477- 837/1530) -76.0 W00-W02 N38-N42
      4 1762 1325 (N02W57 L= 21)   362     46        0 (1745/1293-1780/1352)  21.8 W53-W59 N00-N02
      5  224 1281 (N41E59 L=265)  1032    132        1 ( 163/1258- 293/1303)  -9.9 E71-E48 N38-N42
      6  778 1258 (N26E08 L=316)  1414    350        2 ( 606/1208- 925/1284) -16.7 E20-W00 N20-N30
      7 1837 1123 (S12W57 L= 21)   850    138        2 (1790/1082-1896/1172) -35.0 W52-W63 S15-S07
      8 1793 1029 (S15W50 L= 14)  1094    212        2 (1763/ 947-1828/1103)  41.2 W45-W54 S19-S11
      9  334  846 (N13E49 L=275)  4341    892        5 ( 226/ 542- 597/1043)  34.5 E59-E25 S05-N23
     10 1727  998 (S15W43 L=  7)   321     67        1 (1703/ 970-1750/1026)  71.6 W40-W44 S16-S12
     11 1562  946 (S12W29 L=353)   759    153        1 (1524/ 883-1602/1016)  32.0 W25-W33 S14-S09
     12  701  903 (N08E21 L=303)   274     96        0 ( 665/ 863- 736/ 935) -68.2 E23-E20 N05-N10
     13 1041  730 (S10E07 L=318)   563    253        3 ( 999/ 643-1078/ 827)  85.2 E08-E04 S15-S03
     14 1319  731 (S17W09 L=333)   426    116        0 (1283/ 683-1355/ 778)  29.7 W05-W12 S19-S15
     15 1112  728 (S12E03 L=321)   292     69        0 (1083/ 697-1138/ 753)  21.8 E05-W00 S12-S10
     16 1273  519 (S29W01 L=325)   534    216        1 (1229/ 419-1311/ 605)  45.0 E05-W05 S34-S24
     17  498  464 (S13E50 L=274)   475     73        2 ( 471/ 441- 533/ 500) -63.4 E52-E48 S14-S10
     18  740  394 (S23E37 L=288)  1450    217        4 ( 699/ 274- 790/ 479)  42.9 E46-E30 S30-S17
     19  459  374 (S18E61 L=264)  4820    419       11 ( 335/ 284- 558/ 461) -33.7 E74-E52 S25-S10
     20 1319  379 (S41E00 L=324)   413    102        0 (1292/ 337-1344/ 435)  60.3 E03-W02 S44-S37
     21 1506  305 (S57W15 L=339)   787     98        2 (1461/ 285-1559/ 326) -13.0 W09-W22 S60-S53
     22  745  175 (S40E57 L=267)   747     88        2 ( 730/ 133- 770/ 206)  19.3 E69-E49 S44-S36
  

    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