Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1369 1759 (N45W52 L=352)  1756    218        3 (1313/1675-1433/1811)  18.4 W43-W64 N39-N47
      2  727 1728 (N60E11 L=288)   442     65        1 ( 709/1695- 752/1755)  63.4 E13-E07 N56-N62
      3 1239 1494 (N31W24 L=323)  1551    171        8 (1096/1437-1428/1552) -33.0 W15-W35 N23-N37
      4  373 1406 (N40E46 L=253)   896    181        3 ( 302/1365- 462/1453) -15.9 E56-E35 N36-N43
      5  868 1065 (N12E09 L=290)   199     87        1 ( 843/1022- 902/1093) -68.2 E09-E07 N08-N13
      6  236  974 (N14E57 L=242)   835    170        1 ( 211/ 890- 255/1050) -84.3 E59-E55 N08-N18
      7  300  973 (N13E51 L=249)   371    152        1 ( 267/ 901- 329/1037) -66.0 E53-E48 N08-N17
      8 1759  981 (S10W48 L=347)   457     92        0 (1746/ 932-1774/1030)  56.3 W46-W50 S13-S07
      9  664  865 (N03E24 L=275)   204     65        1 ( 635/ 841- 693/ 887) -56.3 E26-E22 N01-N04
     10 1292  794 (S12W12 L=311)   349    188        0 (1262/ 717-1348/ 839)  49.4 W09-W16 S16-S09
     11 1431  528 (S32W19 L=318)  1312    278        4 (1319/ 473-1533/ 628)  17.4 W09-W26 S35-S27
     12  340  484 (S18E64 L=235)  1454    257        2 ( 270/ 384- 427/ 569) -77.9 E67-E60 S25-S11
     13 1209  411 (S36W01 L=300)   251     38        1 (1188/ 395-1233/ 435)   0.0 W00-W02 S37-S33
     14  769  207 (S45E44 L=255)  2875    276        6 ( 657/ 160- 888/ 249)   3.4 E67-E30 S49-S41
  

    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