Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1471 1543 (N41W24 L=193)   406     88        1 (1441/1494-1500/1578) -71.6 W21-W26 N37-N43
      2  411 1514 (N18E55 L=114)   495     41        0 ( 391/1483- 429/1539) -23.2 E58-E51 N16-N20
      3  367 1432 (N12E55 L=114)   615    117        1 ( 328/1381- 410/1460) -16.7 E58-E48 N10-N14
      4  587 1384 (N13E35 L=134)   233    133        0 ( 540/1354- 626/1433)  56.3 E37-E33 N10-N16
      5  506 1326 (N08E39 L=130)   306     69        1 ( 490/1291- 531/1353) -71.6 E40-E37 N06-N09
      6 1774 1308 (N31W53 L=222)   587     47        1 (1747/1282-1795/1336) -56.3 W49-W56 N28-N32
      7  227 1097 (S10E59 L=110)  2149    362        7 ( 130/1004- 344/1196) -29.4 E73-E45 S13-S04
      8  329  902 (S20E46 L=123)   464     89        2 ( 306/ 861- 349/ 955) -80.5 E48-E44 S22-S16
      9  237  847 (S25E57 L=113)   398     88        0 ( 202/ 824- 267/ 882) -14.0 E61-E53 S26-S23
     10  838  677 (S25E06 L=164)  1993    515        4 ( 644/ 563-1055/ 817)  43.7 E18-W05 S36-S12
     11 1336  635 (S19W27 L=197)   233     68        1 (1297/ 621-1364/ 649)  21.8 W24-W29 S19-S17
     12 1222  180 (S55W52 L=221)   523     45        1 (1199/ 160-1243/ 209) -21.0 W45-W58 S56-S51
     13 1007  187 (S61W29 L=198)   601     79        0 ( 975/ 169-1047/ 203)  14.0 W23-W32 S63-S58
  

    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