Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1301 1808 (N48W54 L=222)   476     54        0 (1279/1774-1324/1833)  15.3 W49-W60 N45-N49
      2 1017 1692 (N49W20 L=187)  1118    152        3 ( 941/1642-1084/1732)   0.0 W12-W27 N45-N50
      3  415 1592 (N56E48 L=119)   702     75        0 ( 378/1564- 457/1609)   0.0 E55-E41 N53-N57
      4  957 1512 (N38W07 L=174)   301    125        0 ( 896/1499-1015/1522) -26.6 W02-W10 N35-N39
      5 1216 1466 (N29W23 L=190)   531    106        1 (1182/1407-1252/1508)  74.1 W20-W25 N24-N31
      6 1760 1410 (N11W62 L=229)   717    110        0 (1728/1368-1785/1458)  80.5 W59-W65 N08-N14
      7  410 1346 (N38E40 L=128)  1045    170        3 ( 362/1286- 461/1407)  29.1 E44-E34 N33-N41
      8  593 1362 (N36E23 L=144)   253     55        0 ( 570/1336- 625/1387)  21.8 E24-E19 N34-N36
      9  334 1067 (N21E46 L=121)  1372    260        2 ( 297/ 945- 383/1189) -75.1 E49-E42 N13-N28
     10  192 1042 (N21E62 L=105)   420     79        0 ( 178/1001- 207/1083) -68.2 E64-E60 N18-N23
     11 1337  985 (S02W17 L=185)   396    133        0 (1317/ 924-1364/1048)  45.0 W15-W20 S04-N01
     12 1587  866 (S15W32 L=199)   607    228        0 (1526/ 788-1642/ 975)  36.0 W26-W37 S17-S09
     13  292  773 (N04E55 L=112)  1781    253        2 ( 256/ 667- 344/ 884)  59.7 E60-E49 S02-N10
     14 1669  756 (S24W37 L=204)   415     69        2 (1641/ 723-1691/ 793)  36.9 W34-W39 S25-S21
     15  368  694 (S01E50 L=117)   340     71        1 ( 330/ 682- 401/ 711)  -9.5 E53-E47 S02-N00
     16 1139  566 (S23E03 L=165)  1328    309        2 (1072/ 449-1207/ 709)  51.3 E09-W04 S29-S14
     17  705  536 (S16E30 L=137)   710    102        1 ( 654/ 502- 752/ 574) -51.3 E33-E27 S18-S12
     18  496  437 (S20E51 L=117)  3638    339        5 ( 394/ 355- 595/ 543) -63.4 E59-E41 S26-S11
     19  796  434 (S25E28 L=139)   755    228        0 ( 718/ 364- 857/ 511)  32.7 E37-E22 S28-S19
     20 1205  361 (S39E03 L=164)   410     45        1 (1174/ 344-1241/ 385) -21.8 E05-W00 S40-S36
     21 1347  259 (S54W06 L=173)  1687    214        2 (1250/ 220-1437/ 307)   3.0 E04-W15 S56-S51
     22  638  250 (S36E54 L=114)   983     94        0 ( 611/ 223- 670/ 289)  50.2 E59-E48 S38-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