Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  426 1668 (N16E66 L=123)  1581    179        1 ( 371/1630- 490/1701)  -9.1 E80-E55 N13-N18
      2 1443 1612 (N43W09 L=198)   575    194        0 (1380/1534-1496/1681) -28.3 W01-W14 N38-N46
      3  613 1331 (S00E32 L=157)   531    127        0 ( 587/1265- 650/1383) -26.6 E35-E27 S02-N02
      4 1551 1189 (N19W26 L=215)   881    223        0 (1479/1089-1618/1248) -19.7 W19-W33 N14-N20
      5  676 1193 (S06E24 L=165)   383     79        1 ( 655/1151- 710/1227)  76.0 E25-E22 S08-S04
      6 1614  874 (N03W39 L=228)   266     57        0 (1596/ 848-1634/ 906) -26.6 W37-W41 N02-N04
      7  746  726 (S31E08 L=181)   809    270        0 ( 631/ 678- 857/ 788)  45.0 E14-E02 S37-S23
      8 1692  763 (N00W49 L=238)   381     53        1 (1662/ 747-1720/ 784)   0.0 W46-W51 N00-N01
      9 1174  750 (S17W17 L=205)  1060    331        0 (1017/ 718-1326/ 777)  34.5 W08-W24 S22-S11
     10 1184  561 (S27W25 L=214)   852    233        0 (1121/ 491-1291/ 610)  65.6 W22-W29 S32-S20
     11 1253  469 (S30W34 L=223)   820    191        0 (1153/ 455-1336/ 486)  32.5 W27-W38 S33-S26
     12  476  410 (S63E29 L=159)   423     17        0 ( 458/ 388- 496/ 434) -90.0 E32-E26 S65-S60
     13  569  377 (S62E15 L=174)   398     54        0 ( 554/ 349- 588/ 410) -45.0 E16-E11 S64-S59
     14 1474  351 (S28W58 L=247)   440     38        0 (1456/ 326-1494/ 376)  -8.1 W54-W61 S29-S27
     15  938  186 (S61W42 L=231)   406     40        0 ( 927/ 160- 950/ 219) -22.6 W35-W48 S63-S58
  

    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