Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1207 1817 (N51E06 L=194)  1477    269        4 (1167/1742-1259/1877) -82.9 E09-E01 N43-N59
      2  338 1499 (N12E57 L=143)   909    142        4 ( 312/1445- 362/1556) -74.1 E61-E53 N08-N15
      3  484 1479 (N12E44 L=156)   429     93        0 ( 442/1429- 527/1511)  56.3 E45-E41 N08-N14
      4  518 1388 (N07E38 L=162)   297     53        2 ( 498/1355- 539/1420)  90.0 E39-E37 N04-N08
      5 1608 1343 (N24W32 L=232)   815    146        1 (1581/1271-1635/1402)  90.0 W29-W33 N19-N28
      6  884 1343 (N09E14 L=186)   384     78        0 ( 840/1310- 918/1371)   0.0 E16-E11 N07-N11
      7 1862 1230 (N24W55 L=255)  1777    206        2 (1824/1142-1901/1316) -56.3 W51-W60 N19-N29
      8  964 1164 (N00E06 L=194)   210     75        0 ( 924/1149- 999/1186)  26.6 E08-E04 S01-N02
      9 1006  939 (S12W00 L=200)  1057    304        2 ( 881/ 803-1076/1075)  71.6 E04-W02 S21-S03
     10 1758  990 (N07W48 L=248)   552    144        1 (1716/ 946-1806/1040) -16.7 W43-W53 N04-N08
     11  471  916 (S22E34 L=166)   917    265        3 ( 347/ 826- 566/1008)  36.9 E43-E27 S28-S15
     12  705  820 (S24E16 L=184)   420     60        1 ( 679/ 782- 730/ 855)  68.2 E17-E14 S26-S21
     13  501  698 (S35E30 L=170)  1176    242        2 ( 409/ 655- 601/ 739)  23.6 E38-E22 S38-S30
     14 1499  568 (S23W41 L=241)  4718   1054        3 (1064/ 479-1867/ 650)  22.9 W14-W78 S38-S10
  

    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