Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  874 1784 (N60W19 L=297)   324     27        1 ( 854/1759- 889/1805)  45.0 W17-W22 N57-N61
      2 1276 1744 (N41W46 L=324)   584     62        0 (1234/1721-1307/1770) -53.1 W43-W48 N39-N43
      3  712 1701 (N59E03 L=275)   471     53        0 ( 678/1682- 744/1718)  -8.1 E06-W01 N57-N60
      4 1137 1590 (N37W25 L=303)  1038    234        3 (1039/1548-1248/1626) -14.9 W18-W33 N33-N39
      5  915 1558 (N41W09 L=287)   339     64        1 ( 877/1537- 950/1574)  -9.5 W05-W11 N39-N42
      6  507 1094 (N23E31 L=247)   523    149        0 ( 460/1059- 570/1149) -45.0 E33-E26 N19-N26
      7 1515 1042 (S04W29 L=307)   797    223        0 (1493/ 937-1550/1135)  48.4 W25-W33 S09-N00
      8  480 1005 (N18E34 L=244)   594    245        0 ( 395/ 959- 572/1030) -12.1 E41-E27 N13-N19
      9 1736  707 (S32W41 L=319)  2714    371        3 (1621/ 585-1808/ 855)  33.7 W29-W49 S36-S23
     10  593  552 (S11E38 L=239)   344     71        0 ( 563/ 518- 618/ 587) -80.5 E39-E37 S13-S07
     11  462  470 (S13E53 L=225)  1115    212        5 ( 399/ 403- 531/ 537) -68.2 E55-E50 S18-S08
     12  399  409 (S17E64 L=214)  2123    216        4 ( 311/ 332- 463/ 453) -48.4 E73-E57 S22-S13
     13  718  332 (S28E41 L=237)  1454    203        1 ( 648/ 299- 817/ 373)  -8.1 E46-E32 S30-S23
     14  982  229 (S43E30 L=248)  2458    391        2 ( 841/ 134-1134/ 325)  11.0 E54-E13 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