Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1429 1653 (N32W50 L=347)   510     59        0 (1398/1627-1457/1680) -90.0 W47-W52 N30-N34
      2 1666 1591 (N21W67 L=  4)  1627    240        2 (1583/1534-1769/1629) -40.6 W58-W78 N13-N25
      3  717 1597 (N51E07 L=290)   306     47        0 ( 703/1565- 733/1624)  53.1 E08-E04 N48-N52
      4 1046 1528 (N36W16 L=313)   515    115        2 ( 986/1496-1105/1548) -12.5 W11-W20 N34-N38
      5 1497 1453 (N19W42 L=339)   751    162        1 (1426/1419-1549/1481) -50.2 W38-W47 N16-N22
      6 1219 1353 (N21W20 L=317)   271     95        2 (1204/1300-1229/1395)  51.3 W18-W22 N18-N23
      7  553 1120 (N23E28 L=269)   940    354        2 ( 404/1084- 710/1150) -22.2 E39-E17 N17-N27
      8 1739 1083 (S08W48 L=345)   551     91        1 (1716/1032-1756/1128)  51.3 W45-W50 S11-S06
      9  381 1021 (N20E43 L=254)   735    125        3 ( 332/ 974- 429/1088)  80.5 E47-E38 N17-N23
     10 1001 1071 (N10E00 L=297)   229     75        0 ( 966/1058-1046/1083) -14.0 E02-W02 N09-N11
     11 1357 1044 (N00W20 L=317)   217     41        1 (1339/1014-1376/1064)  45.0 W18-W21 S01-N01
     12  168 1005 (N22E67 L=230)   965    112        1 ( 134/ 961- 205/1047) -28.6 E73-E61 N18-N24
     13 1844  947 (S20W56 L=353)  1023    193        0 (1777/ 913-1891/ 989) -18.4 W48-W63 S22-S16
     14 1296  928 (S05W13 L=310)   313     83        0 (1262/ 897-1326/ 955) -59.0 W11-W14 S07-S02
     15  433  891 (N12E41 L=256)   410    147        0 ( 357/ 865- 501/ 908) -20.0 E46-E35 N08-N13
     16 1359  650 (S23W11 L=308)  1265    362        1 (1268/ 527-1468/ 801)  32.3 W02-W21 S29-S16
     17  764  477 (S20E30 L=267)   259     70        0 ( 746/ 455- 787/ 513) -90.0 E31-E29 S21-S16
     18 1168  308 (S43E11 L=286)  2455    302        5 (1053/ 233-1241/ 429)  31.0 E22-E02 S48-S34
     19  735  407 (S24E36 L=262)   280    103        0 ( 679/ 391- 780/ 426)   0.0 E40-E31 S24-S23
     20 1020  200 (S48E30 L=267)   532     55        1 ( 992/ 170-1039/ 230)  80.5 E33-E26 S51-S45
     21  956  163 (S50E40 L=257)   588     75        0 ( 924/ 150- 993/ 182) -45.0 E43-E35 S52-S47
  

    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