Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  766 1601 (N25E27 L=232)   245     50        0 ( 741/1585- 795/1619) -11.3 E29-E24 N24-N26
      2 1579 1475 (N32W31 L=291)   356     82        0 (1550/1436-1605/1511) -45.0 W28-W33 N29-N33
      3 1762 1250 (N21W47 L=307)   649    146        0 (1716/1186-1786/1306) -45.0 W42-W49 N17-N23
      4  204 1164 (S07E61 L=198)   635     59        2 ( 180/1133- 227/1198) -53.1 E63-E58 S09-S05
      5  530 1075 (S10E31 L=228)   621    150        0 ( 492/1017- 595/1135)  53.1 E33-E27 S13-S05
      6  221  929 (S21E58 L=202)   812    153        0 ( 199/ 854- 238/ 992)  76.0 E60-E55 S25-S17
      7 1148  869 (S13W10 L=269)   238     77        0 (1114/ 846-1189/ 891)  53.1 W07-W12 S15-S11
      8  771  714 (S28E11 L=248)  1504    454        3 ( 609/ 620- 984/ 764)  28.4 E23-W01 S36-S22
      9 1312  747 (S18W22 L=282)   219    107        0 (1259/ 735-1359/ 759)   8.1 W18-W25 S18-S16
     10 1719  657 (S15W56 L=315)   470     49        0 (1692/ 628-1741/ 679)  -8.1 W52-W59 S15-S13
     11 1519  615 (S21W41 L=300)   565    157        1 (1443/ 599-1588/ 642)  21.8 W35-W45 S23-S18
     12 1683  437 (S28W68 L=327)  2011    250        3 (1590/ 384-1781/ 521)  45.0 W60-W74 S32-S20
     13  951  232 (S61W16 L=276)  1029    115        3 ( 918/ 178- 985/ 286) -37.6 W09-W22 S66-S56
  

    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