Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1263 1734 (N41W44 L=324)   503     67        1 (1224/1715-1295/1758) -53.1 W41-W47 N39-N43
      2  676 1687 (N59E07 L=273)   804    148        1 ( 601/1656- 740/1715)  -6.7 E16-W01 N55-N61
      3 1132 1585 (N36W25 L=304)  1204    283        2 (1023/1536-1279/1615) -14.7 W16-W35 N33-N39
      4  899 1549 (N41W07 L=287)   319     76        2 ( 861/1527- 932/1566) -11.3 W04-W09 N39-N42
      5  481 1090 (N23E33 L=247)   523    138        1 ( 434/1050- 533/1147) -53.1 E35-E29 N19-N27
      6 1491 1022 (S05W27 L=306)   884    249        0 (1464/ 908-1529/1128)  45.0 W22-W32 S10-N00
      7 1913 1087 (S15W67 L=346)   633     57        1 (1884/1065-1935/1105) -26.6 W62-W71 S17-S13
      8  448  995 (N18E37 L=243)   744    221        0 ( 364/ 937- 547/1025)   0.0 E44-E29 N15-N19
      9  447  885 (N12E39 L=241)   379     83        1 ( 426/ 845- 470/ 923)  45.0 E40-E36 N09-N13
     10 1718  696 (S32W39 L=319)  2741    370        6 (1597/ 569-1794/ 844)  31.0 W27-W47 S36-S24
     11  580  539 (S11E40 L=240)   373     91        0 ( 552/ 494- 603/ 578)  71.6 E41-E38 S14-S08
     12  370  424 (S15E66 L=213)  2431    175        6 ( 288/ 365- 427/ 460) -19.7 E78-E60 S19-S12
     13  701  327 (S28E43 L=237)  1492    203        5 ( 628/ 293- 801/ 364) -17.1 E47-E33 S30-S23
     14  966  222 (S43E32 L=248)  2495    373        4 ( 830/ 135-1109/ 322)  12.7 E55-E15 S49-S38
  

    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