Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1661 1509 (N21W59 L=137)   571     49        1 (1632/1485-1690/1535)   6.3 W54-W63 N19-N22
      2 1294 1207 (N12W20 L= 98)   278     89        1 (1254/1191-1335/1224) -21.8 W17-W22 N11-N13
      3  210 1159 (N26E62 L= 16)   777    114        3 ( 171/1116- 253/1202) -18.4 E67-E55 N23-N28
      4 1738  978 (S11W46 L=124)   353    114        0 (1710/ 930-1751/1027)  63.4 W43-W47 S13-S07
      5 1792  936 (S15W51 L=129)   791     79        1 (1769/ 895-1825/ 980)  63.4 W48-W55 S17-S11
      6 1445  914 (S08W23 L=101)   313     62        1 (1405/ 887-1473/ 938) -53.1 W21-W25 S09-S05
      7 1474  833 (S13W24 L=102)   214     40        0 (1455/ 812-1498/ 847)  18.4 W22-W25 S14-S12
      8  838  825 (S02E15 L= 63)   201     76        0 ( 797/ 810- 878/ 842) -36.9 E16-E12 S03-N00
      9  459  600 (S10E46 L= 32)  1043    267        2 ( 399/ 533- 537/ 687) -65.6 E49-E41 S15-S04
     10  889  602 (S16E16 L= 62)   409    105        0 ( 874/ 549- 902/ 652)  63.4 E17-E14 S19-S13
     11 1599  581 (S33W32 L=110)  1032    111        2 (1540/ 555-1648/ 613)  -5.7 W27-W37 S36-S30
     12  305  529 (S14E66 L= 12)  3020    161        6 ( 264/ 462- 346/ 601)  48.0 E77-E58 S18-S08
     13  394  525 (S15E55 L= 23)   765     72        1 ( 368/ 482- 416/ 565)  71.6 E57-E52 S17-S11
     14 1177  511 (S28E00 L= 78)   420     95        0 (1150/ 469-1203/ 564)  63.4 E02-W02 S30-S24
  

    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