Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  782 1622 (N38E25 L=308)  5721    837        9 ( 471/1537-1133/1773)  -7.0 E79-W03 N32-N46
      2 1235 1442 (N30W11 L=344)   532    147        0 (1189/1379-1273/1500) -53.1 W07-W13 N25-N33
      3  229 1261 (N09E62 L=271)  3527    442        2 ( 184/1073- 310/1465) -80.5 E66-E58 S02-N22
      4 1053 1385 (N24E01 L=332)   313    132        0 (1037/1324-1070/1451)  90.0 E01-W00 N20-N28
      5  947 1366 (N22E08 L=325)   568    177        0 ( 920/1297- 988/1447) -60.9 E10-E04 N18-N27
      6 1657 1371 (N28W45 L= 18)   356     90        0 (1616/1341-1694/1391) -15.9 W40-W48 N26-N29
      7 1814 1196 (N17W58 L= 31)  1485    243        3 (1751/1141-1854/1277)  48.8 W51-W63 N13-N22
      8 1806  957 (N03W57 L= 29)   700    112        0 (1768/ 909-1856/ 985)  24.0 W52-W62 N00-N04
      9 1424  930 (S01W26 L=359)   214     47        0 (1403/ 906-1444/ 956) -45.0 W24-W27 S02-N00
     10  390  809 (S17E42 L=291)   446    130        0 ( 349/ 777- 440/ 857) -35.5 E45-E37 S18-S13
     11 1129  674 (S19W09 L=342)   990    266        0 (1023/ 635-1259/ 716)  26.6 W02-W17 S22-S15
     12  807  528 (S32E11 L=322)  1100    238        3 ( 698/ 467- 912/ 566)  26.6 E19-E03 S37-S28
     13  558  394 (S45E36 L=297)   444     54        1 ( 525/ 374- 590/ 415)  -9.5 E38-E32 S46-S43
  

    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