Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  665 1678 (N40E40 L=124)   611    104        1 ( 624/1634- 702/1718) -22.6 E47-E35 N37-N42
      2  444 1613 (N32E58 L=106)   612     82        0 ( 422/1573- 468/1656) -31.0 E63-E52 N29-N35
      3 1298 1581 (N41W15 L=179)   751    138        3 (1239/1543-1364/1622) -15.3 W09-W20 N38-N43
      4  667 1422 (N22E29 L=135)   585    130        2 ( 636/1364- 700/1481) -82.9 E30-E27 N18-N26
      5 1520 1219 (N18W31 L=195)   295    121        0 (1498/1165-1557/1269) -63.4 W29-W34 N15-N21
      6  314  876 (S15E49 L=115)  3876    522        8 ( 203/ 659- 430/1072)  43.1 E71-E39 S31-S02
      7 1652  707 (S12W47 L=211)   727    201        2 (1596/ 664-1698/ 790)  60.9 W42-W51 S15-S06
      8 1716  723 (S11W53 L=217)   532     77        0 (1700/ 678-1730/ 768) -80.5 W51-W54 S13-S07
      9 1274  743 (S14W19 L=183)   308     92        0 (1234/ 728-1323/ 762)   0.0 W16-W22 S14-S12
     10 1254  552 (S26W21 L=185)   329     86        1 (1212/ 526-1296/ 575)  45.0 W18-W23 S28-S24
     11 1638  500 (S26W56 L=220)  1563    170        2 (1559/ 462-1711/ 538)  21.0 W49-W63 S29-S23
     12  458  433 (S46E45 L=118)   483     53        2 ( 429/ 412- 490/ 459)  20.0 E51-E40 S47-S43
     13 1281  432 (S35W27 L=191)   735    131        0 (1216/ 413-1344/ 450)  11.3 W21-W31 S36-S32
  

    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