Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1106 1755 (N47E18 L=155)   313     81        0 (1077/1724-1135/1786) -20.6 E21-E13 N44-N48
      2  420 1620 (N20E63 L=110)  2850    231        5 ( 319/1560- 526/1686)  29.4 E73-E53 N14-N25
      3 1618 1665 (N59W41 L=213)   717     76        1 (1597/1625-1649/1686)  31.0 W36-W51 N53-N62
      4  392 1550 (N14E60 L=113)  1989    332        2 ( 274/1493- 488/1622)  34.5 E71-E54 N09-N20
      5 1675 1319 (N31W38 L=211)   800    151        2 (1637/1255-1722/1381) -36.9 W34-W43 N27-N34
      6  386  863 (S26E40 L=133)   287     38        1 ( 369/ 839- 403/ 886) -45.0 E41-E38 S27-S25
      7  815  739 (S24E06 L=167)   314     96        0 ( 793/ 704- 840/ 784) -78.7 E07-E04 S26-S21
      8  724  689 (S29E11 L=162)   259    111        0 ( 665/ 674- 770/ 703)  20.6 E15-E07 S31-S28
      9 1256  644 (S19W24 L=196)   211     54        0 (1242/ 612-1268/ 671) -56.3 W22-W25 S20-S17
     10  297  595 (S47E55 L=118)  1173    157        0 ( 240/ 574- 358/ 636)   2.9 E66-E44 S49-S44
     11  739  423 (S48E04 L=169)   550    132        1 ( 703/ 390- 772/ 474)  90.0 E07-W00 S51-S43
     12 1105  415 (S37W24 L=196)   288     32        1 (1079/ 401-1131/ 432)  11.3 W21-W26 S38-S35
     13 1509  373 (S29W57 L=230)  1011    108        5 (1467/ 339-1567/ 407)  56.3 W52-W61 S31-S25
     14  775  291 (S59W05 L=177)   550     82        1 ( 744/ 263- 819/ 320)  54.5 W01-W07 S61-S54
  

    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