Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  961 1768 (N42E18 L=166)   284     48        0 ( 938/1747- 986/1784)   0.0 E20-E16 N40-N43
      2  556 1718 (N33E49 L=135)   468     52        1 ( 528/1687- 579/1744) -59.0 E52-E46 N30-N35
      3  433 1516 (N18E48 L=136)  1513    223        5 ( 359/1436- 484/1604)  70.0 E52-E44 N12-N24
      4 1301 1465 (N25W12 L=196)   809    146        2 (1260/1427-1346/1540)  76.0 W09-W14 N22-N30
      5  478 1367 (N09E40 L=145)   278     55        1 ( 456/1353- 513/1389) -11.3 E42-E37 N07-N09
      6 1866 1284 (N24W61 L=246)  1827    211        3 (1763/1214-1938/1347)  -7.1 W48-W74 N21-N26
      7 1369 1304 (N16W17 L=202)   343     84        0 (1329/1282-1412/1331)  -9.5 W14-W20 N14-N16
      8  689 1221 (N02E23 L=162)   517    208        1 ( 613/1188- 775/1252)  11.3 E27-E17 N00-N03
      9 1159 1153 (N03W06 L=191)   378    137        1 (1109/1094-1190/1198) -39.8 W02-W08 N00-N05
     10  803 1041 (S08E13 L=171)   330    116        0 ( 778/ 988- 830/1082) -78.7 E14-E11 S10-S05
     11 1583  862 (S07W38 L=222)   540     87        2 (1543/ 834-1629/ 885)  18.4 W35-W41 S08-S05
     12  864  774 (S23E07 L=178)   629    189        1 ( 795/ 749- 951/ 812)   5.7 E11-E01 S24-S20
     13 1477  700 (S18W34 L=219)   777    282        1 (1350/ 650-1598/ 737)  26.6 W26-W42 S22-S14
  

    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