Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  498 1537 (N51E32 L=246)   341     65        1 ( 479/1508- 521/1560)  26.6 E34-E29 N48-N52
      2 1196 1532 (N33W25 L=303)  1909    615        3 ( 952/1502-1483/1555) -18.9 W07-W45 N24-N38
      3 1537 1450 (N19W45 L=323)   373     90        1 (1509/1419-1574/1488) -53.1 W42-W46 N16-N21
      4 1705 1384 (N10W55 L=334)   336     75        0 (1673/1363-1743/1395)  -8.1 W51-W59 N09-N11
      5 1888 1177 (S07W67 L=345)  1445    143        8 (1832/1135-1939/1223) -26.6 W60-W78 S10-S02
      6 1280 1171 (N10W18 L=296)   304    180        1 (1216/1113-1346/1214) -58.0 W15-W20 N05-N13
      7  847 1102 (N15E09 L=269)   609    243        2 ( 817/ 974- 877/1193)  85.9 E10-E06 N07-N21
      8  354 1052 (N21E45 L=233)   454     75        2 ( 332/1021- 383/1092) -45.0 E46-E42 N19-N23
      9  361  867 (N10E47 L=231)   424    202        1 ( 328/ 782- 400/ 964) -85.2 E48-E45 N04-N16
     10 1789  797 (S26W49 L=327)  1461    237        2 (1716/ 691-1851/ 888)  31.6 W41-W56 S31-S21
     11  440  698 (S01E45 L=234)   952    229        3 ( 409/ 600- 502/ 765)  36.0 E50-E38 S06-N02
     12  351  576 (S08E58 L=221)  3643    370       11 ( 262/ 444- 463/ 669) -69.4 E66-E50 S17-S01
     13  402  450 (S17E60 L=218)  2682    223        5 ( 357/ 367- 474/ 522)  85.2 E71-E55 S23-S11
     14 1321  408 (S39W05 L=283)   296     68        0 (1297/ 376-1348/ 435)  36.9 W02-W07 S41-S37
  

    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