Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  994 1599 (N26E20 L= 90)  1016    262        2 ( 936/1493-1059/1702) -32.0 E27-E11 N20-N32
      2  621 1526 (N12E39 L= 70)   327     98        2 ( 601/1483- 642/1581) -63.4 E40-E37 N09-N15
      3  876 1404 (N11E19 L= 91)   656    265        0 ( 756/1359- 984/1433)  15.9 E25-E11 N07-N13
      4 1261 1330 (N18W05 L=114)   412    119        1 (1212/1291-1305/1377)  60.3 W02-W06 N14-N21
      5 1496 1171 (N16W23 L=133)   367    156        0 (1425/1128-1547/1213)   0.0 W17-W27 N14-N17
      6 1423 1032 (N06W22 L=132)   320     76        0 (1408/ 992-1438/1072) -78.7 W20-W23 N03-N08
      7 1829  800 (N07W61 L=171)   597     75        1 (1801/ 774-1855/ 826)  33.7 W57-W64 N05-N09
      8  919  692 (S27W04 L=113)   539    136        0 ( 858/ 672- 999/ 714)  32.0 W00-W08 S29-S24
      9  411  581 (S50E35 L= 74)   466     76        0 ( 386/ 558- 447/ 615) -21.8 E38-E30 S51-S47
     10  953  504 (S38W13 L=123)   326     91        0 ( 919/ 467- 992/ 541)  71.6 W11-W14 S40-S34
     11 1116  478 (S34W25 L=134)   741    280        0 (1001/ 409-1238/ 529)  52.4 W20-W30 S41-S27
     12 1364  494 (S25W39 L=149)   301     61        1 (1327/ 482-1400/ 511)  36.9 W36-W41 S26-S23
     13 1358  408 (S30W44 L=154)   894    287        0 (1250/ 367-1480/ 489)  57.3 W38-W48 S34-S20
     14 1661  439 (S17W67 L=177)   439     41        0 (1634/ 421-1680/ 457)  45.0 W64-W69 S18-S15
  

    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