Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1389 1621 (N36W27 L=145)  1247    330        2 (1223/1578-1532/1653)  -2.4 W13-W38 N32-N37
      2  376 1530 (N29E49 L= 69)   544    146        1 ( 344/1489- 405/1564) -36.9 E53-E45 N25-N31
      3  958 1471 (N24E05 L=113)   357     82        1 ( 933/1432- 991/1509)  68.2 E06-E02 N21-N26
      4  426 1426 (N21E42 L= 76)   450    141        0 ( 410/1356- 438/1487) -77.5 E44-E40 N16-N25
      5  227 1405 (N21E61 L= 57)   572     61        1 ( 208/1378- 248/1426) -45.0 E63-E58 N19-N22
      6 1170 1231 (N09W09 L=127)   195     57        0 (1139/1205-1201/1258) -36.9 W06-W10 N07-N10
      7  517 1126 (N03E32 L= 86)  1124    238        1 ( 473/1000- 575/1230)  63.4 E35-E28 S04-N08
      8  633 1109 (N01E24 L= 94)   215     62        0 ( 618/1079- 649/1148)  71.6 E25-E23 N00-N03
      9  940 1090 (N00E05 L=113)   199     52        1 ( 907/1071- 965/1113)  14.0 E07-E03 N00-N01
     10  789 1076 (S01E14 L=104)   188     22        0 ( 768/1056- 809/1095) -18.4 E15-E12 S01-N00
     11 1884  930 (S06W64 L=183)  1128    187        0 (1850/ 849-1931/ 987)  45.0 W60-W71 S11-S02
     12  889  912 (S10E08 L=110)   562    160        0 ( 807/ 877- 975/ 948)  15.3 E13-E02 S12-S08
     13  739  799 (S17E18 L=100)   899    326        1 ( 680/ 671- 799/ 936) -70.6 E21-E14 S25-S08
     14 1896  826 (S12W68 L=186)  1962    220        7 (1868/ 752-1930/ 909) -77.5 W64-W72 S16-S07
     15  639  859 (S14E24 L= 94)   552    159        3 ( 587/ 826- 697/ 892) -15.9 E27-E20 S15-S11
     16  936  789 (S18E05 L=113)   573    221        3 ( 850/ 750- 999/ 852)  33.7 E10-E01 S20-S13
     17  324  766 (S19E49 L= 69)  1006    307        2 ( 250/ 680- 408/ 848)  35.5 E57-E41 S23-S13
     18 1815  750 (S18W59 L=177)   459     68        1 (1793/ 716-1837/ 775)  53.1 W57-W61 S19-S15
     19  969  663 (S26E03 L=115)   496    245        1 ( 846/ 628-1093/ 699)  14.9 E11-W04 S28-S23
     20 1523  629 (S27W36 L=154)   246     46        2 (1502/ 602-1540/ 651) -71.6 W33-W36 S28-S25
     21  286  600 (S29E57 L= 61)   758    153        4 ( 248/ 545- 324/ 648) -56.3 E60-E53 S32-S25
  

    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