Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1136 1874 (N54E31 L=293)   624     57        1 (1109/1849-1166/1900)  90.0 E35-E26 N49-N56
      2  749 1588 (N18E34 L=289)  2646    569        2 ( 713/1361- 791/1853) -50.7 E54-E26 N04-N37
      3  552 1796 (N28E68 L=256)   953    130        0 ( 525/1745- 596/1837) -52.1 E72-E62 N23-N32
      4 1272 1506 (N29W00 L=323)   291     67        0 (1254/1470-1289/1546) -53.1 E02-W02 N26-N31
      5  180 1025 (S27E63 L=260)   927    164        2 ( 156/ 943- 207/1096) -66.0 E67-E58 S31-S22
      6  630  702 (S36E15 L=308)  1848    379        1 ( 463/ 668- 803/ 755)  31.0 E29-E04 S42-S27
      7  957  664 (S28W07 L=330)   347    146        0 ( 928/ 605- 985/ 718) -66.8 W05-W09 S31-S24
      8 1310  668 (S17W27 L=351)   490     97        1 (1275/ 623-1355/ 707)   0.0 W23-W30 S19-S15
      9 1133  579 (S27W21 L=344)   883    170        3 (1037/ 555-1212/ 607)  31.0 W14-W25 S30-S23
     10 1447  528 (S20W43 L=  6)   976    127        3 (1395/ 487-1507/ 572)  60.3 W39-W45 S23-S15
     11 1488  470 (S22W49 L= 12)   314     37        0 (1465/ 449-1513/ 487)  56.3 W47-W50 S23-S20
     12  631  342 (S63E05 L=318)  2035    264        5 ( 519/ 298- 764/ 388)  18.4 E23-W08 S68-S53
     13 1499  356 (S27W60 L= 23)   648    146        0 (1432/ 339-1571/ 380)  35.0 W54-W65 S30-S23
  

    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