Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1158 1564 (N31W09 L=  2)   790    167        1 (1077/1498-1241/1619) -36.0 W03-W14 N26-N34
      2  382 1494 (N27E47 L=306)   396     82        0 ( 354/1465- 412/1520) -26.6 E49-E43 N24-N28
      3  398 1368 (N18E43 L=310)   641    113        0 ( 376/1313- 419/1424) -60.3 E45-E40 N14-N21
      4 1827 1324 (N17W59 L= 52)   543     88        0 (1791/1306-1856/1340)  -8.1 W55-W62 N15-N17
      5  265 1232 (N10E53 L=300)   510    117        0 ( 223/1217- 308/1249) -12.5 E57-E48 N09-N11
      6  537 1185 (N06E31 L=323)   322     72        0 ( 510/1139- 563/1227)  59.0 E32-E28 N03-N08
      7  851 1092 (N01E10 L=343)   341     60        1 ( 808/1064- 876/1119)   0.0 E12-E08 S01-N02
      8  838  908 (S10E11 L=342)   653    195        0 ( 803/ 802- 877/ 997)  70.0 E13-E08 S16-S05
      9 1269  970 (S06W15 L=  8)   197     41        0 (1233/ 956-1295/ 985)   0.0 W12-W16 S07-S05
     10 1266  837 (S15W15 L=  8)   186     62        0 (1226/ 820-1298/ 848) -21.8 W12-W17 S15-S13
     11 1749  802 (S15W51 L= 44)   461    138        0 (1696/ 786-1798/ 818)   0.0 W45-W55 S16-S14
     12  294  668 (S24E54 L=300)  1578    222        2 ( 254/ 595- 323/ 774)  54.0 E59-E50 S28-S17
     13  561  659 (S25E32 L=322)   558     87        1 ( 538/ 614- 585/ 710)  63.4 E33-E29 S28-S22
     14 1143  634 (S27W08 L=  1)   451     97        1 (1116/ 585-1162/ 681) -71.6 W06-W09 S30-S24
     15  501  482 (S37E41 L=312)   352     48        1 ( 474/ 460- 528/ 507) -26.6 E43-E39 S38-S35
  

    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