Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  942 1634 (N30E24 L= 30)  1041    219        2 ( 904/1562- 997/1721) -36.9 E29-E17 N24-N35
      2  821 1349 (N09E20 L= 33)   740    166        3 ( 773/1280- 862/1429) -84.8 E21-E18 N03-N14
      3 1136 1392 (N20E03 L= 50)   279     69        1 (1105/1355-1170/1421) -21.8 E05-W00 N18-N21
      4  756 1190 (S02E19 L= 34)   458    163        0 ( 712/1151- 825/1249)   0.0 E22-E14 S03-N01
      5 1745 1011 (N15W46 L=100)  1825    279        4 (1701/ 863-1769/1125) -51.8 W40-W52 N06-N21
      6  241 1005 (S24E53 L=  1)  1048    213        0 ( 179/ 948- 286/1092)  55.0 E58-E49 S28-S18
      7  561 1038 (S15E28 L= 26)   641    205        0 ( 479/1002- 667/1074)  32.5 E32-E21 S18-S11
      8 1189  820 (S11W15 L= 68)   235     48        0 (1164/ 790-1219/ 842)  76.0 W13-W16 S13-S09
      9  313  752 (S38E44 L= 10)  1574    228        3 ( 239/ 669- 370/ 821) -30.3 E51-E38 S42-S34
     10 1142  752 (S16W14 L= 68)   230     83        1 (1126/ 712-1164/ 795) -51.3 W12-W16 S18-S13
     11  463  688 (S39E30 L= 24)   811    170        1 ( 396/ 662- 525/ 719)  20.0 E35-E24 S42-S36
     12  985  700 (S23W07 L= 60)   575    200        0 ( 882/ 679-1088/ 718)  17.1 W00-W13 S26-S21
     13  552  687 (S36E22 L= 31)   238     34        0 ( 536/ 659- 565/ 711) -71.6 E23-E20 S37-S34
     14 1468  469 (S23W46 L=100)  1708    456        0 (1253/ 387-1637/ 607)  55.2 W35-W53 S33-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