Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  549 1546 (N41E37 L= 65)   497     74        2 ( 529/1517- 579/1579) -39.8 E39-E33 N38-N43
      2 1055 1559 (N39W06 L=108)   547    108        1 ( 995/1537-1115/1572) -11.3 W01-W11 N37-N40
      3 1256 1456 (N30W20 L=121)   279     66        0 (1228/1421-1278/1486) -68.2 W17-W20 N27-N32
      4  528 1302 (N24E33 L= 68)   607    112        0 ( 504/1236- 546/1354) -66.8 E35-E31 N20-N27
      5 1824 1266 (N12W64 L=165)   645    114        0 (1797/1220-1847/1312) -90.0 W61-W66 N09-N15
      6 1791 1242 (N11W59 L=160)   367     55        0 (1775/1210-1807/1272) -76.0 W57-W60 N09-N13
      7  305 1220 (N19E52 L= 49)   320     97        0 ( 292/1175- 318/1270)  80.5 E52-E51 N16-N22
      8 1749 1127 (N05W52 L=153)   451     49        1 (1725/1100-1775/1147) -56.3 W49-W54 N03-N06
      9 1862  986 (S05W63 L=164)   720    137        1 (1815/ 939-1891/1032) -31.0 W57-W67 S08-S02
     10  193 1011 (N06E63 L= 38)   489     75        0 ( 161/ 995- 230/1031)  12.5 E67-E58 N05-N07
     11  205  883 (S02E62 L= 39)  1303    195        0 ( 186/ 799- 232/ 965)  83.7 E65-E58 S06-N03
     12 1799  879 (S11W55 L=157)   905    155        2 (1731/ 848-1858/ 931)   0.0 W48-W62 S12-S07
     13 1407  794 (S12W23 L=125)   347    158        0 (1357/ 738-1445/ 849)  49.4 W19-W25 S15-S08
     14 1805  715 (S22W59 L=161)  2627    293        6 (1752/ 602-1864/ 847)  69.4 W54-W65 S29-S13
     15 1755  793 (S16W51 L=153)  1164    196        2 (1716/ 733-1812/ 839)  32.0 W47-W57 S19-S12
     16  774  781 (S09E17 L= 84)   216     69        1 ( 746/ 761- 805/ 803) -18.4 E18-E15 S10-S07
     17  921  771 (S10E08 L= 94)   240     77        2 ( 892/ 746- 965/ 794)  26.6 E09-E05 S11-S08
     18  419  652 (S16E45 L= 56)   388     86        0 ( 392/ 612- 437/ 690)  78.7 E46-E43 S18-S13
     19  906  469 (S31E12 L= 89)  1654    356        1 ( 774/ 386-1012/ 602)  35.5 E24-E03 S36-S21
     20 1152  524 (S28W05 L=107)   359    110        2 (1132/ 465-1168/ 570)  90.0 W04-W06 S32-S24
     21  441  495 (S27E49 L= 52)   550    124        1 ( 396/ 477- 505/ 511)   4.8 E54-E42 S28-S25
     22  734  423 (S33E26 L= 75)   325     77        0 ( 698/ 408- 776/ 436)  -9.5 E28-E22 S34-S32
  

    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