Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1607 1531 (N26W47 L=  2)  1078    162        1 (1523/1494-1683/1559) -17.1 W40-W53 N23-N28
      2  427 1205 (N13E38 L=277)   285     60        1 ( 398/1187- 468/1220)   9.5 E40-E34 N12-N14
      3 1821  971 (S09W56 L= 11)   995    214        3 (1769/ 889-1882/1063)  42.3 W50-W63 S14-S04
      4 1484 1034 (S04W29 L=343)   203     69        0 (1456/1015-1519/1050)   0.0 W26-W30 S05-S03
      5  978  765 (S17E05 L=310)   327    148        1 ( 940/ 710-1023/ 834) -63.4 E06-E02 S20-S12
      6  757  761 (S16E19 L=296)   283    129        0 ( 735/ 704- 783/ 820)  66.8 E20-E16 S19-S12
      7  423  778 (S12E42 L=273)   271     78        1 ( 409/ 741- 439/ 818)  68.2 E42-E40 S14-S09
      8  441  712 (S16E42 L=273)   485    155        1 ( 394/ 653- 491/ 777)  35.0 E46-E36 S19-S12
      9  341  717 (S15E50 L=264)   287     39        2 ( 318/ 697- 367/ 734) -11.3 E52-E47 S16-S13
     10  447  625 (S22E44 L=271)   537    112        2 ( 415/ 575- 475/ 673)  36.9 E48-E40 S24-S18
     11 1599  623 (S30W39 L=354)   347     69        1 (1566/ 597-1633/ 651)  31.0 W36-W42 S31-S28
     12  798  531 (S31E20 L=295)   241     51        0 ( 774/ 512- 817/ 557)  26.6 E21-E17 S31-S29
     13  759  381 (S41E27 L=287)   380     52        1 ( 738/ 356- 784/ 412)  53.1 E29-E25 S43-S38
     14  686  274 (S49E42 L=273)   558     96        1 ( 646/ 235- 724/ 308)  14.9 E50-E35 S52-S46
  

    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