Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1157 1643 (N44W07 L=263)   581     99        2 (1110/1607-1206/1668)  14.0 W03-W11 N41-N46
      2 1435 1607 (N43W32 L=287)  1653    281        3 (1292/1581-1549/1635)  -2.3 W18-W44 N40-N45
      3  425 1465 (N26E48 L=207)   885    171        0 ( 370/1397- 479/1532)  68.2 E51-E45 N21-N31
      4 1876 1311 (N23W73 L=328)  1158    109        1 (1843/1263-1897/1352) -63.4 W68-W77 N19-N25
      5 1367 1138 (N11W21 L=277)  1847    399        4 (1305/ 954-1406/1326) -77.2 W17-W23 N00-N22
      6 1825 1256 (N19W62 L=317)   438     28        1 (1803/1239-1848/1275)   9.5 W58-W64 N18-N20
      7  636 1099 (N05E25 L=231)  1309    384        2 ( 582/ 955- 682/1272) -74.5 E30-E21 S03-N15
      8  908 1239 (N15E08 L=247)   199     82        0 ( 871/1219- 940/1267)  36.9 E10-E06 N13-N16
      9  811 1167 (N10E14 L=242)   300     87        2 ( 790/1130- 831/1210) -78.7 E15-E12 N07-N12
     10  277  909 (S09E52 L=203)   823    141        0 ( 255/ 840- 303/ 981) -71.6 E54-E50 S13-S04
     11  895  755 (S15E07 L=249)  1184    410        0 ( 812/ 616- 944/ 934)  71.6 E12-E03 S24-S03
     12 1524  634 (S20W37 L=292)   320     81        0 (1495/ 614-1569/ 661)  -8.1 W33-W40 S21-S18
     13  830  533 (S30E11 L=245)   351     73        1 ( 814/ 497- 850/ 578) -80.5 E12-E09 S32-S26
     14 1238  295 (S47W25 L=280)   312     30        0 (1218/ 272-1259/ 319)  76.0 W22-W26 S48-S44
     15  680  261 (S55E32 L=224)  1579    154        2 ( 615/ 226- 755/ 291)  -3.6 E41-E21 S59-S51
  

    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