Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1505 1728 (N30W57 L=202)  2316    435        4 (1395/1664-1607/1763) -10.8 W46-W68 N24-N32
      2 1264 1587 (N30W32 L=177)   232     42        0 (1238/1569-1289/1601)   0.0 W30-W34 N28-N30
      3 1026 1047 (N06W01 L=145)   281    110        0 ( 987/ 990-1077/1096)  26.6 E02-W04 N03-N07
      4 1170 1028 (N01W08 L=153)   238     63        0 (1134/ 999-1205/1051) -45.0 W06-W09 S01-N02
      5 1831  893 (S25W51 L=195)   700    128        1 (1795/ 830-1863/ 958)  40.6 W46-W54 S28-S22
      6 1322  729 (S20W10 L=154)   685    243        0 (1222/ 659-1398/ 839)  23.2 W02-W16 S21-S15
      7  964  758 (S09E10 L=135)   184     72        0 ( 954/ 718- 978/ 796)  53.1 E11-E08 S10-S06
      8 1570  695 (S29W26 L=170)   614    152        1 (1519/ 614-1633/ 781)  36.0 W20-W31 S33-S25
      9 1159  502 (S29E06 L=139)   277     80        0 (1124/ 473-1188/ 540)  26.6 E09-E03 S30-S27
     10  455  469 (S14E53 L= 92)   506    148        0 ( 432/ 430- 508/ 495)   0.0 E56-E48 S16-S12
     11  560  432 (S19E47 L= 98)   304     36        1 ( 540/ 408- 580/ 452) -90.0 E48-E45 S20-S17
     12  642  332 (S27E47 L= 98)   647    186        0 ( 628/ 274- 658/ 402)  48.4 E50-E42 S31-S22
     13  498  305 (S26E60 L= 84)  1472    291        2 ( 473/ 245- 515/ 368)  45.0 E66-E54 S30-S21
  

    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