Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  962 1902 (N64W44 L=126)   520     75        2 ( 944/1872- 990/1934)  10.8 W36-W57 N61-N65
      2 1213 1853 (N49W53 L=135)   592     52        3 (1183/1825-1247/1873) -15.9 W48-W58 N46-N50
      3 1106 1829 (N51W41 L=123)   469     72        0 (1085/1798-1129/1861)  15.3 W36-W47 N48-N52
      4  443 1535 (N51E33 L= 49)   331     75        0 ( 422/1505- 471/1564)  53.1 E35-E29 N48-N52
      5 1207 1541 (N29W27 L=108)   287    125        1 (1162/1516-1268/1555) -14.0 W22-W30 N26-N30
      6  719 1458 (N37E08 L= 74)   336    100        0 ( 675/1439- 765/1479) -45.0 E10-E05 N34-N39
      7 1000 1446 (N29W10 L= 92)   234     99        2 ( 945/1424-1032/1461)   0.0 W06-W12 N27-N29
      8  376 1433 (N45E40 L= 42)   942    155        5 ( 301/1406- 448/1451) -14.7 E50-E31 N41-N47
      9  313 1168 (N29E45 L= 36)   567    120        1 ( 294/1108- 336/1225)  74.1 E47-E42 N25-N32
     10  635 1064 (N16E22 L= 60)   205    133        0 ( 614/1010- 655/1118)  74.1 E23-E20 N12-N19
     11  379 1094 (N23E40 L= 42)   346     90        2 ( 327/1079- 425/1110) -12.5 E44-E35 N21-N25
     12 1373  972 (S07W18 L=100)   478    156        3 (1349/ 898-1408/1042)  40.6 W15-W22 S10-S04
     13  439  963 (N14E37 L= 45)   452     84        0 ( 419/ 918- 457/1005)  78.7 E38-E35 N11-N16
     14  411  784 (N05E44 L= 38)   249     42        1 ( 388/ 765- 434/ 801)  11.3 E46-E41 N03-N05
     15 1357  678 (S24W11 L= 93)   588    221        0 (1326/ 625-1434/ 765) -68.2 W08-W15 S28-S18
     16 1876  713 (S39W63 L=144)   652     64        1 (1839/ 699-1908/ 738)  -7.1 W55-W72 S40-S37
     17 1575  627 (S34W26 L=108)   295     50        0 (1558/ 595-1591/ 661) -78.7 W24-W27 S36-S31
     18 1136  562 (S25E06 L= 76)   224     64        0 (1100/ 553-1173/ 574) -14.0 E07-E03 S26-S23
     19  537  306 (S27E60 L= 22)  2115    254        1 ( 481/ 249- 615/ 370)  11.0 E78-E47 S30-S23
     20 1345  295 (S52W00 L= 82)   737    106        2 (1289/ 274-1396/ 317) -33.7 E04-W05 S55-S48
     21 1230  202 (S57E16 L= 66)   478     52        0 (1205/ 185-1256/ 218)  15.9 E19-E12 S59-S54
  

    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