Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1687 1581 (N27W57 L=299)   568     99        1 (1662/1552-1711/1604) -71.6 W53-W59 N25-N28
      2  323 1416 (N30E48 L=195)  1102    271        2 ( 258/1377- 396/1468) -28.1 E55-E40 N26-N34
      3 1204 1440 (N22W16 L=258)   561    205        0 (1107/1416-1312/1463)  -4.4 W09-W22 N20-N23
      4  843 1316 (N18E08 L=234)   213     41        1 ( 815/1300- 873/1332) -14.0 E10-E06 N16-N19
      5  373 1266 (N20E42 L=201)   474     91        0 ( 352/1224- 394/1316)  90.0 E43-E39 N16-N22
      6 1788 1267 (N07W56 L=298)   645    132        2 (1746/1242-1819/1302)  20.6 W51-W59 N05-N08
      7 1209 1282 (N12W14 L=256)   190     45        0 (1183/1269-1239/1299) -14.0 W11-W15 N11-N13
      8  164 1111 (N12E62 L=181)  3490    394        8 ( 115/1005- 216/1224)  81.3 E69-E55 N06-N19
      9 1369 1069 (S02W21 L=264)   437     88        0 (1324/1045-1423/1099) -26.6 W18-W24 S03-N00
     10 1199  864 (S12W09 L=252)   345     56        2 (1175/ 832-1226/ 901)  56.3 W07-W10 S13-S10
     11 1833  788 (S22W57 L=300)  1396    202        4 (1795/ 721-1863/ 864)  66.0 W52-W59 S26-S17
     12  687  835 (S09E22 L=220)   208     27        1 ( 668/ 817- 709/ 855)  18.4 E23-E20 S10-S07
     13 1208  710 (S22W09 L=251)   398    165        0 (1152/ 634-1273/ 792)  45.0 W04-W13 S26-S17
     14  336  759 (S10E49 L=194)   353     61        1 ( 316/ 724- 351/ 790) -90.0 E51-E47 S12-S08
     15 1035  678 (S22E03 L=240)   387    157        1 ( 978/ 627-1090/ 732)  39.8 E06-W01 S25-S19
     16  165  645 (S15E73 L=170)  1740    211        2 ( 137/ 583- 200/ 731) -73.3 E77-E68 S19-S09
     17 1004  705 (S20E04 L=239)   194     31        0 ( 986/ 679-1023/ 723)  45.0 E05-E03 S21-S18
     18  348  608 (S19E53 L=190)   543     95        0 ( 326/ 576- 373/ 644)  76.0 E54-E49 S21-S17
     19  370  510 (S26E54 L=189)   790    138        1 ( 331/ 476- 412/ 546)  12.5 E58-E49 S27-S23
     20  975  344 (S45E13 L=230)   473    101        1 ( 943/ 313-1004/ 391)  39.8 E16-E09 S47-S41
     21 1277  362 (S47W13 L=256)   492     90        2 (1233/ 341-1326/ 380) -14.0 W09-W17 S48-S45
  

    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