Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  714 1394 (N20E25 L=170)   678    236        1 ( 687/1286- 746/1497) -72.9 E27-E21 N13-N26
      2 1611 1412 (N32W39 L=234)   369    137        2 (1588/1376-1638/1441)  38.7 W36-W41 N29-N34
      3 1693 1387 (N32W46 L=241)   452     47        2 (1668/1360-1718/1410) -11.3 W43-W48 N29-N33
      4 1581 1219 (N19W35 L=230)   301     84        0 (1551/1187-1616/1260) -38.7 W32-W37 N17-N21
      5 1753 1156 (N17W50 L=245)   323     53        1 (1730/1126-1770/1188) -36.9 W47-W51 N15-N19
      6 1554 1007 (N06W34 L=230)   529    218        3 (1500/ 908-1613/1087) -42.0 W29-W39 N00-N10
      7  276  876 (S18E52 L=144)  1276    291        5 ( 206/ 783- 333/ 970) -50.7 E59-E46 S23-S12
      8 1717  636 (S15W56 L=251)  5301    933       15 (1592/ 457-1817/ 818)  85.4 W47-W65 S28-S03
      9  399  776 (S22E40 L=155)   381     76        1 ( 372/ 743- 417/ 797) -63.4 E42-E38 S24-S20
     10  494  758 (S22E33 L=163)   251    106        1 ( 462/ 730- 520/ 786)  51.3 E35-E30 S24-S19
     11 1036  687 (S20W05 L=200)   263    156        0 ( 982/ 667-1118/ 724)  -6.3 W01-W10 S20-S18
     12 1388  562 (S24W31 L=226)   842    199        6 (1321/ 504-1468/ 625)  52.1 W27-W35 S28-S18
     13  770  493 (S37E11 L=184)   482     87        0 ( 729/ 472- 808/ 520)  33.7 E14-E08 S38-S34
     14 1312  300 (S44W37 L=233)   354     49        0 (1286/ 284-1335/ 318)   0.0 W34-W39 S45-S42
  

    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