Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1178 1797 (N49W27 L=336)   304     48        0 (1156/1776-1198/1818)  31.0 W24-W29 N47-N50
      2  194 1309 (N27E59 L=250)  3807    473       10 ( 134/1218- 246/1412) -85.6 E65-E52 N20-N33
      3  354 1283 (N23E43 L=266)   633    172        2 ( 284/1243- 409/1346)  26.6 E48-E38 N21-N26
      4 1763 1160 (S01W51 L=360)   749    182        3 (1724/1102-1811/1191)  20.6 W47-W56 S03-N01
      5 1232 1108 (N02W13 L=322)   200     33        0 (1213/1080-1248/1131)  71.6 W12-W14 N00-N03
      6 1573  881 (S15W33 L=342)   221     50        0 (1547/ 856-1599/ 912)  36.9 W31-W35 S16-S13
      7  203  852 (S01E61 L=248)   529     79        3 ( 178/ 825- 226/ 881)  63.4 E64-E58 S02-N00
      8  331  734 (S09E51 L=258)  1347    274        2 ( 252/ 666- 407/ 815) -42.0 E57-E44 S13-S03
      9  932  665 (S21E10 L=298)   989    235        2 ( 850/ 575- 987/ 770)  39.8 E17-E05 S25-S15
     10 1212  680 (S23W08 L=316)   327     80        0 (1173/ 649-1242/ 718)  36.9 W05-W09 S25-S21
     11  250  668 (S12E61 L=248)  1355    207        6 ( 208/ 621- 298/ 712)  56.3 E66-E55 S15-S09
     12 1462  634 (S30W25 L=333)   413     71        2 (1427/ 596-1494/ 668)  45.0 W22-W27 S31-S27
     13  303  624 (S16E57 L=252)   620    144        1 ( 260/ 598- 343/ 661)   0.0 E61-E52 S17-S13
     14 1689  604 (S35W44 L=353)   534     77        0 (1671/ 564-1704/ 647) -71.6 W42-W46 S37-S31
     15  362  525 (S23E55 L=253)   814    187        2 ( 336/ 452- 382/ 592)  52.1 E58-E51 S27-S18
  

    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