Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  917 1550 (N39W10 L=163)   687    177        1 ( 860/1474- 981/1602)  18.4 W04-W16 N34-N40
      2 1192 1529 (N29W26 L=179)   279     55        0 (1175/1499-1208/1562)  78.7 W24-W27 N26-N31
      3 1328 1499 (N23W33 L=185)   912    172        1 (1242/1461-1410/1527) -41.2 W27-W36 N18-N26
      4  282 1203 (N34E47 L=106)   303     87        0 ( 251/1181- 310/1219) -31.0 E49-E43 N32-N35
      5  441 1150 (N27E34 L=119)   558    142        2 ( 381/1127- 507/1172) -16.7 E38-E28 N25-N29
      6  663 1081 (N18E19 L=133)   496    117        0 ( 618/1059- 714/1121) -50.2 E21-E16 N15-N21
      7 1311 1045 (S01W16 L=169)   820    197        2 (1208/1002-1397/1078) -15.3 W10-W21 S04-N01
      8 1283  970 (S04W13 L=166)   278    105        0 (1237/ 944-1338/ 987)  -9.5 W09-W15 S06-S03
      9 1492  885 (S15W23 L=176)   464    107        1 (1448/ 864-1542/ 918)   0.0 W19-W27 S16-S13
     10 1208  728 (S16W02 L=155)   632    178        1 (1180/ 652-1246/ 824)  74.7 W01-W04 S21-S10
     11  891  585 (S16E20 L=133)   560    153        0 ( 794/ 554- 952/ 618) -45.0 E24-E16 S18-S11
     12  626  348 (S24E47 L=105)   573    109        1 ( 592/ 309- 660/ 389)  74.1 E49-E45 S27-S20
     13  906  164 (S46E44 L=109)   981    187        1 ( 863/ 129- 941/ 204)  22.6 E50-E38 S49-S42
  

    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