Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  523 1493 (N33E32 L= 12)  4468    603        8 ( 314/1264- 705/1649) -27.8 E72-E17 N16-N47
      2 1736 1504 (N23W61 L=105)   817     95        1 (1689/1479-1779/1526) -16.7 W55-W65 N20-N24
      3  321 1390 (N28E50 L=355)   648    133        3 ( 291/1341- 354/1433) -33.7 E54-E45 N24-N30
      4  240 1220 (N18E55 L=349)  2397    327        6 ( 166/1118- 297/1365)  78.7 E64-E49 N11-N26
      5  949 1337 (N18E02 L= 43)   222    100        0 ( 896/1316- 995/1347)   0.0 E05-W00 N17-N18
      6  336 1252 (N19E46 L=359)   299     42        0 ( 317/1227- 362/1275)  33.7 E47-E43 N17-N19
      7  337 1140 (N12E45 L=359)   430    154        2 ( 301/1091- 399/1178)  18.4 E48-E39 N09-N13
      8  200 1084 (N10E59 L=346)   712    106        3 ( 168/1060- 254/1119) -21.8 E62-E52 N07-N12
      9 1739 1006 (S08W48 L= 92)   807    106        1 (1690/ 975-1789/1044)  24.0 W43-W52 S09-S05
     10  573  625 (S21E34 L= 10)  2022    570        2 ( 472/ 399- 729/ 841)  37.1 E53-E19 S35-S08
     11 1491  772 (S20W28 L= 73)   450    125        1 (1439/ 739-1554/ 797)  12.5 W24-W33 S21-S19
     12 1310  696 (S24W16 L= 60)   692    203        2 (1240/ 664-1408/ 755) -28.6 W11-W22 S26-S19
     13  375  596 (S21E52 L=353)   741    130        1 ( 354/ 536- 396/ 661)  69.4 E54-E48 S25-S17
     14 1592  469 (S42W43 L= 87)   379     41        0 (1561/ 450-1622/ 486)  -8.1 W39-W46 S43-S40
  

    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