Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1555 1529 (N17W50 L=107)   550     88        1 (1510/1503-1607/1562) -45.0 W47-W52 N14-N20
      2 1307 1476 (N22W31 L= 88)  1735    445        3 (1110/1375-1474/1533) -51.7 W20-W37 N11-N30
      3 1779 1226 (S05W53 L=111)  1027    163        2 (1722/1160-1841/1278)  13.0 W47-W62 S07-S04
      4 1830  996 (S20W52 L=109)  2368    289        3 (1782/ 861-1868/1136)  49.4 W45-W59 S26-S12
      5 1589 1107 (S06W35 L= 92)   223     30        1 (1570/1086-1608/1132)  63.4 W33-W35 S06-S04
      6  262  812 (N12E56 L=  1)  2317    338        9 ( 187/ 703- 305/ 958)  47.1 E69-E50 N06-N20
      7  213  829 (N14E61 L=356)   384     51        3 ( 191/ 803- 233/ 852) -71.6 E63-E59 N12-N15
      8 1145  702 (S15E02 L= 55)   717    324        0 (1073/ 633-1197/ 830)  41.6 E07-W03 S18-S08
      9 1050  688 (S13E08 L= 50)   432    147        0 (1031/ 609-1075/ 749)  77.5 E09-E05 S18-S09
     10  907  583 (S15E19 L= 38)   827    316        2 ( 784/ 473- 973/ 695) -80.0 E22-E17 S23-S06
     11  381  521 (S07E57 L=  0)  2310    315        4 ( 339/ 400- 434/ 670)  35.0 E66-E45 S14-N00
     12  747  535 (S14E30 L= 27)   554    207        1 ( 672/ 486- 792/ 616)  40.6 E34-E25 S16-S10
     13  950  227 (S41E35 L= 22)  1665    305        4 ( 912/ 126- 986/ 387)  34.6 E51-E22 S49-S29
  

    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