Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1013 1870 (N48E39 L=220)   683     87        1 ( 986/1836-1054/1893)  78.7 E41-E34 N44-N51
      2  921 1812 (N39E38 L=220)   792    104        0 ( 899/1755- 950/1859) -51.3 E42-E33 N34-N44
      3 1261 1567 (N33E03 L=256)   777    142        2 (1237/1495-1283/1637) -73.3 E04-W00 N28-N38
      4 1491 1477 (N35W16 L=274)  1524    401        3 (1372/1308-1587/1602) -27.6 W03-W26 N26-N41
      5 1638 1086 (N16W35 L=293)   442     65        1 (1607/1059-1664/1108)  36.9 W32-W37 N14-N17
      6 1674 1036 (N14W39 L=297)   383     68        1 (1636/1017-1705/1060)  31.0 W36-W41 N12-N16
      7 1575  838 (N00W38 L=296)   735    170        2 (1529/ 776-1633/ 907)  82.9 W35-W40 S03-N05
      8  831  871 (S20E07 L=252)   212     82        0 ( 800/ 845- 868/ 898) -11.3 E09-E04 S20-S18
      9  893  546 (S37W08 L=266)   725    272        2 ( 831/ 454- 928/ 668) -79.4 W04-W10 S44-S28
     10  712  622 (S38E07 L=251)   290     69        1 ( 686/ 597- 738/ 651)  68.2 E09-E05 S40-S35
     11  765  449 (S48W03 L=261)   326     78        1 ( 723/ 433- 807/ 472)  15.9 E01-W06 S48-S46
     12 1155  341 (S40W36 L=295)   455     84        0 (1117/ 320-1200/ 368)   7.1 W32-W40 S41-S39
     13 1408  334 (S31W54 L=313)   870     96        1 (1357/ 309-1456/ 360)  18.4 W48-W58 S32-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