Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  564 1657 (N61E18 L= 49)  2638    500       10 ( 389/1569- 789/1761)  -1.1 E44-W11 N57-N64
      2  609 1445 (N42E16 L= 50)   655    218        0 ( 578/1357- 661/1535) -81.9 E18-E13 N35-N49
      3  977 1358 (N26W07 L= 73)   517    187        0 ( 876/1338-1052/1373) -31.0 W00-W10 N23-N29
      4 1131 1274 (N17W13 L= 80)   272    118        0 (1085/1226-1172/1305) -71.6 W10-W14 N13-N19
      5  694 1121 (N20E17 L= 50)  1448    480        7 ( 560/ 990- 871/1245) -53.1 E24-E09 N08-N28
      6 1877 1227 (S09W67 L=133)   684     68        1 (1846/1208-1917/1244)  -8.1 W61-W75 S10-S07
      7  784 1128 (N18E11 L= 56)   540    180        2 ( 739/1075- 811/1203)  39.8 E14-E08 N15-N22
      8  709 1168 (N23E15 L= 52)   466    133        0 ( 669/1125- 739/1199) -90.0 E17-E12 N19-N24
      9  474 1028 (N20E34 L= 33)   497    150        0 ( 411/ 989- 544/1052) -33.7 E38-E29 N16-N22
     10 1687  842 (S23W37 L=103)  1094    338        1 (1567/ 757-1781/ 970)  12.8 W25-W47 S26-S18
     11 1424  722 (S22W15 L= 82)   562    208        0 (1361/ 653-1491/ 807)  26.6 W09-W21 S24-S18
     12  935  504 (S21E20 L= 46)   643    128        2 ( 880/ 460- 983/ 540)   7.1 E24-E16 S22-S19
     13  393  473 (S11E60 L=  6)   447     61        0 ( 375/ 441- 407/ 499)  76.0 E62-E58 S12-S08
     14  800  310 (S30E39 L= 28)   316    100        0 ( 750/ 290- 841/ 339)   6.3 E43-E34 S31-S29
  

    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