Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  583 1666 (N36E37 L= 86)  3350    612        6 ( 425/1588- 738/1752) -18.9 E58-E22 N30-N44
      2 1554 1637 (N39W39 L=162)   322     84        0 (1519/1625-1583/1651)  15.9 W35-W42 N37-N40
      3  553 1416 (N18E33 L= 91)   448    152        1 ( 510/1368- 601/1469) -36.9 E36-E28 N15-N21
      4  484 1401 (N17E37 L= 86)   301     51        1 ( 469/1372- 500/1435)  76.0 E38-E36 N15-N19
      5  412 1307 (N12E42 L= 82)   719    235        2 ( 394/1224- 429/1393) -73.3 E43-E39 N06-N16
      6 1207 1229 (N09W10 L=133)   421    114        0 (1169/1167-1250/1290) -60.3 W07-W12 N05-N12
      7  740 1056 (S03E17 L=106)   316     67        1 ( 721/1019- 761/1095)  78.7 E18-E16 S05-N00
      8 1839  720 (S17W62 L=186)  1431    287        0 (1748/ 616-1910/ 844)  50.9 W55-W69 S24-S08
      9 1764  785 (S14W53 L=176)  1050    227        3 (1676/ 750-1828/ 827)  21.0 W45-W58 S16-S10
     10 1247  700 (S23W16 L=139)   405    105        1 (1196/ 670-1301/ 743)  39.8 W12-W18 S24-S19
     11  509  615 (S31E35 L= 88)  1200    376        1 ( 435/ 485- 621/ 729)  40.1 E44-E25 S39-S23
     12  965  569 (S33E02 L=121)   417     99        2 ( 914/ 542-1020/ 590)  26.6 E05-W01 S34-S31
     13  606  322 (S52E37 L= 86)   385     58        0 ( 588/ 298- 626/ 347)  33.7 E40-E34 S54-S50
  

    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