Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1687 1538 (N14W61 L=248)   550    100        0 (1634/1511-1726/1554) -29.7 W56-W65 N11-N16
      2  427 1203 (N30E34 L=153)   542    137        0 ( 367/1172- 498/1223) -28.6 E39-E28 N26-N32
      3 1876 1096 (S15W60 L=247)   446     85        1 (1865/1064-1891/1144) -78.7 W58-W61 S17-S12
      4  149  961 (N21E67 L=120)  1256    209        3 ( 102/ 892- 218/1043) -33.7 E75-E58 N16-N26
      5 1859  875 (S27W55 L=242)  1166    128        4 (1805/ 835-1906/ 926)   4.1 W47-W61 S29-S25
      6  816  803 (S01E17 L=170)   734    202        1 ( 721/ 783- 906/ 834) -26.6 E21-E11 S04-N02
      7  446  725 (N02E43 L=144)   547    153        1 ( 415/ 655- 477/ 799)  82.9 E43-E41 S01-N07
      8  375  703 (N03E49 L=138)   578    139        0 ( 343/ 659- 420/ 763) -71.6 E50-E46 N00-N06
      9 1196  567 (S25E02 L=184)   568    149        0 (1146/ 532-1247/ 628)  20.6 E06-W02 S26-S22
     10  326  516 (S08E63 L=124)   430     59        1 ( 308/ 492- 342/ 551)  53.1 E65-E60 S09-S05
     11  475  508 (S11E49 L=138)   965    133        2 ( 415/ 468- 527/ 536) -26.6 E53-E44 S13-S08
     12 1564  465 (S45W22 L=209)   422     59        1 (1539/ 437-1582/ 496)  26.6 W19-W23 S47-S42
     13  563  429 (S17E47 L=140)   308     87        0 ( 554/ 390- 579/ 479)  56.3 E49-E43 S20-S14
     14  449  422 (S16E57 L=130)  2305    343        4 ( 311/ 350- 550/ 477) -29.1 E70-E50 S20-S10
     15  800  245 (S36E43 L=144)   646    119        1 ( 764/ 211- 824/ 300)  26.6 E47-E37 S38-S31
  

    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