Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1221 1818 (N52E04 L=194)  1454    224        3 (1182/1740-1264/1874)  86.4 E08-E01 N43-N59
      2  349 1492 (N11E56 L=143)   796    113        2 ( 320/1435- 375/1542) -81.9 E59-E52 N07-N14
      3  509 1488 (N13E42 L=157)   290     69        0 ( 474/1459- 545/1510)  45.0 E43-E39 N10-N14
      4  546 1411 (N08E37 L=162)   453    115        0 ( 514/1353- 584/1480)  83.7 E38-E35 N04-N13
      5 1622 1333 (N24W33 L=232)   749    119        1 (1599/1265-1649/1392)  90.0 W30-W34 N19-N28
      6  904 1337 (N09E13 L=186)   377     81        0 ( 861/1308- 936/1366)   0.0 E15-E10 N07-N11
      7 1872 1225 (N24W56 L=255)  1941    204        2 (1831/1139-1910/1320) -51.3 W51-W61 N19-N29
      8 1013  926 (S13W01 L=200)  1191    338        1 ( 867/ 775-1100/1076)  71.6 E05-W03 S23-S02
      9 1769  985 (N07W49 L=248)   548    141        0 (1729/ 941-1814/1032) -18.4 W44-W54 N04-N08
     10  455  883 (S24E34 L=164)   683    253        1 ( 363/ 821- 532/ 970)  42.5 E41-E29 S28-S17
     11  724  817 (S24E15 L=184)   417     80        1 ( 692/ 774- 751/ 853)  59.0 E16-E13 S26-S21
     12  508  689 (S35E30 L=169)  1173    270        2 ( 405/ 650- 616/ 737)  27.9 E38-E21 S39-S30
     13 1484  559 (S24W40 L=239)  4846   1055        3 (1017/ 474-1861/ 644)  23.0 W11-W77 S39-S11
     14 1659  529 (S21W55 L=254)   325     50        1 (1642/ 499-1682/ 551)   0.0 W53-W56 S23-S19
  

    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