Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1172 1793 (N46W46 L= 87)   515     90        0 (1150/1764-1203/1841)  36.9 W42-W52 N43-N49
      2  753 1748 (N61W08 L= 50)   398     36        1 ( 731/1721- 772/1773)  63.4 W05-W11 N57-N63
      3  571 1677 (N62E17 L= 25)   884    153        1 ( 518/1632- 645/1715)   3.2 E24-E06 N59-N65
      4  864 1561 (N42W07 L= 49)   737    208        0 ( 800/1491- 958/1618) -65.2 W03-W10 N34-N48
      5 1327 1509 (N24W34 L= 76)   730    251        0 (1218/1455-1439/1535) -45.0 W27-W38 N17-N28
      6  953 1324 (N25W04 L= 46)   942    251        5 ( 866/1242-1020/1383) -65.6 W00-W07 N18-N30
      7 1135 1266 (N17W13 L= 55)   242     80        1 (1111/1225-1150/1299)  63.4 W11-W14 N14-N18
      8  789 1170 (N21E10 L= 32)   442    224        0 ( 694/1142- 889/1197) -36.0 E15-E04 N16-N24
      9 1787 1026 (S16W49 L= 91)  1316    194        4 (1755/ 932-1825/1105)  78.7 W45-W54 S21-S11
     10 1881  945 (S25W60 L=101)  1339    193        2 (1822/ 892-1930/1035)   9.5 W51-W69 S27-S21
     11 1721  891 (S22W41 L= 82)   434    150        0 (1675/ 835-1761/ 954)  24.0 W35-W45 S23-S19
     12 1247  612 (S23W01 L= 43)   355     92        0 (1220/ 571-1279/ 646)  45.0 W00-W04 S25-S21
     13 1079  446 (S29E14 L= 28)   991    308        1 ( 948/ 378-1156/ 541)  12.5 E24-E06 S31-S24
     14 1092  287 (S41E21 L= 21)  1298    316        1 ( 985/ 201-1217/ 384)  12.1 E35-E07 S45-S37
  

    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