Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1478 1788 (N38W70 L=285)  1010    160        0 (1425/1754-1544/1811)  -7.1 W60-W85 N35-N39
      2 1675 1475 (N15W57 L=273)  1123    175        2 (1635/1391-1707/1551)  59.0 W52-W61 N09-N19
      3 1163 1393 (N25W18 L=233)   251     71        1 (1139/1364-1185/1427) -78.7 W16-W18 N22-N27
      4 1432 1249 (N10W30 L=245)   324     80        1 (1414/1217-1461/1289) -90.0 W28-W30 N07-N12
      5  250 1136 (N28E55 L=161)   677    147        1 ( 192/1108- 307/1162)   4.1 E62-E48 N27-N29
      6 1393 1029 (S01W21 L=237)  1295    456        2 (1254/ 858-1509/1125)  18.4 W09-W30 S08-N03
      7 1729  971 (S14W44 L=259)   898    165        1 (1687/ 902-1788/1011)  16.7 W39-W49 S16-S11
      8  210  967 (N19E60 L=155)   425     72        2 ( 194/ 941- 234/1002) -53.1 E62-E57 N16-N20
      9  306  947 (N16E50 L=166)   316     93        1 ( 266/ 920- 342/ 976)  15.9 E54-E46 N15-N17
     10 1725  885 (S19W42 L=258)   298     56        0 (1710/ 856-1739/ 912)  45.0 W40-W43 S20-S17
     11  931  758 (S06E11 L=204)   343    129        0 ( 904/ 718- 976/ 820) -76.0 E12-E09 S09-S01
     12 1133  757 (S10W00 L=216)   329     89        2 (1083/ 736-1178/ 777)   0.0 E03-W03 S11-S08
     13  895  703 (S08E15 L=201)   859    153        2 ( 861/ 646- 953/ 776)  83.7 E17-E11 S12-S03
     14  371  747 (N04E49 L=167)   337     93        1 ( 321/ 735- 405/ 763)   7.1 E53-E45 N02-N04
     15  572  598 (S08E38 L=178)  2026    331        6 ( 467/ 499- 676/ 690) -63.4 E43-E31 S15-S01
     16  491  539 (S11E46 L=169)  1637    307        6 ( 394/ 478- 583/ 661) -65.2 E51-E40 S15-S02
     17  926  522 (S20E18 L=197)   349    116        0 ( 898/ 473- 957/ 574)  35.5 E21-E14 S22-S17
     18  491  378 (S22E56 L=159)  7682    520       21 ( 389/ 237- 632/ 476)   6.2 E78-E40 S33-S14
     19  717  333 (S29E41 L=175)  1447    312        0 ( 631/ 245- 826/ 438)  19.7 E55-E27 S34-S23
  

    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