Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1732 1394 (N24W48 L= 36)   336     54        1 (1705/1370-1752/1418) -33.7 W45-W50 N22-N25
      2 1713 1216 (N12W45 L= 33)   273     39        2 (1692/1194-1734/1240)  71.6 W43-W46 N10-N13
      3 1627 1200 (N10W38 L= 26)   242     90        1 (1581/1174-1663/1227)  -9.5 W34-W40 N08-N11
      4 1814 1098 (N06W55 L= 42)   344    124        1 (1778/1068-1848/1160) -26.6 W50-W58 N04-N09
      5 1655 1067 (N03W40 L= 28)   394    131        0 (1602/1040-1698/1112)  35.5 W36-W43 N00-N05
      6 1081 1056 (S02W03 L=351)   226     55        1 (1060/1020-1101/1089) -76.0 W02-W04 S04-N00
      7  639  896 (S14E23 L=324)   207     70        0 ( 624/ 857- 653/ 936) -78.7 E24-E22 S16-S11
      8 1429  882 (S10W26 L= 14)   553    248        1 (1313/ 836-1541/ 915)  23.2 W19-W33 S13-S07
      9  128  815 (S19E69 L=278)  2479    197        1 ( 102/ 746- 151/ 890)  83.7 E73-E66 S23-S14
     10  304  776 (S22E50 L=298)  1015    281        3 ( 269/ 659- 348/ 879)  60.3 E54-E45 S29-S15
     11  845  844 (S16E10 L=338)   378    138        0 ( 770/ 820- 914/ 869)  24.0 E14-E05 S18-S14
     12 1576  743 (S17W39 L= 26)   362    106        1 (1542/ 699-1622/ 774)  45.0 W36-W42 S20-S15
     13  644  659 (S29E24 L=324)   288     91        1 ( 618/ 626- 678/ 699)  51.3 E25-E21 S31-S26
     14 1271  642 (S26W19 L=  7)   288     93        0 (1222/ 603-1317/ 684)  45.0 W16-W21 S28-S23
     15 1457  537 (S31W35 L= 23)  3003    498        6 (1165/ 420-1718/ 664)  28.4 W15-W52 S41-S20
  

    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