Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1097 1825 (N47E19 L= 60)   556     77        0 (1053/1796-1143/1850)  60.3 E21-E15 N43-N50
      2  498 1658 (N21E52 L= 26)  1204    110        5 ( 457/1609- 536/1718) -48.8 E57-E48 N17-N25
      3  378 1634 (N18E63 L= 16)  1083     99        3 ( 346/1596- 412/1678) -45.0 E67-E57 N15-N21
      4  634 1586 (N18E38 L= 41)   359     79        0 ( 606/1552- 666/1620)  78.7 E38-E36 N15-N20
      5 1631 1386 (N29W31 L=110)   384     77        0 (1600/1358-1675/1410)  29.7 W28-W35 N26-N31
      6  257 1388 (N01E61 L= 17)   900    143        0 ( 192/1365- 331/1406)   3.8 E69-E53 N00-N02
      7  260 1210 (S10E55 L= 24)   503     81        0 ( 229/1165- 293/1242)  51.3 E57-E52 S12-S07
      8 1073 1152 (N01W00 L= 79)   229     94        0 (1027/1118-1108/1187) -11.3 E03-W02 N00-N02
      9  495 1154 (S10E35 L= 44)   245     54        0 ( 477/1124- 519/1182)  63.4 E35-E33 S11-S07
     10  280 1129 (S14E52 L= 27)   473     60        1 ( 264/1090- 299/1168) -78.7 E53-E49 S16-S11
     11  234 1065 (S18E55 L= 23)   453     40        0 ( 216/1035- 250/1098) -76.0 E57-E53 S20-S16
     12 1503 1076 (N07W27 L=105)   245     68        0 (1467/1061-1543/1095)   0.0 W24-W29 N05-N07
     13  727 1017 (S13E17 L= 62)   212     51        0 ( 702/ 999- 756/1041)   0.0 E18-E15 S14-S12
     14  269  951 (S25E51 L= 28)  1105    275        1 ( 196/ 841- 368/1034)  37.9 E60-E42 S32-S18
     15 1230  802 (S15W17 L= 95)  1347    591        0 (1010/ 731-1483/ 888)  27.4 W03-W30 S21-S04
     16 1554  671 (S14W41 L=120)   552    146        2 (1473/ 643-1613/ 702)  29.1 W36-W45 S17-S11
     17  346  650 (S43E45 L= 33)   322     50        1 ( 318/ 632- 377/ 668)  15.9 E48-E41 S43-S41
     18 1303  525 (S29W31 L=110)   225     90        0 (1259/ 512-1345/ 549)  45.0 W28-W32 S30-S26
     19 1500  448 (S28W49 L=128)   372     42        1 (1468/ 424-1524/ 468)  26.6 W46-W51 S28-S26
  

    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