Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  834 1688 (N27E34 L= 89)   330     74        0 ( 815/1647- 851/1721) -39.8 E37-E31 N24-N29
      2  763 1481 (N12E28 L= 94)   805    199        1 ( 664/1420- 826/1514)  10.3 E35-E23 N09-N14
      3  559 1471 (N07E41 L= 82)   297     69        0 ( 519/1459- 594/1486)  21.8 E43-E38 N05-N07
      4 1040 1392 (N15E09 L=113)   261     79        0 (1018/1357-1071/1421)  78.7 E10-E08 N12-N17
      5 1705 1306 (N31W37 L=159)   293     68        0 (1677/1272-1731/1336) -18.4 W33-W39 N29-N32
      6 1219 1165 (N07W07 L=129)   411    160        0 (1205/1089-1236/1240) -63.4 W04-W09 N02-N11
      7 1390 1096 (N08W18 L=141)   285     86        2 (1374/1053-1402/1143) -68.2 W17-W19 N05-N10
      8  769  787 (S26E08 L=114)   206     49        1 ( 740/ 776- 796/ 802)  56.3 E10-E06 S27-S24
      9 1397  619 (S17W35 L=157)   253     59        0 (1372/ 601-1427/ 645)  63.4 W33-W35 S18-S14
     10 1581  523 (S16W53 L=175)   585    110        1 (1535/ 487-1623/ 571)  63.4 W49-W54 S18-S12
     11  918  530 (S37W10 L=132)   284    107        0 ( 873/ 491- 960/ 564)  76.0 W08-W11 S41-S33
     12 1182  458 (S33W30 L=152)   389    105        1 (1129/ 439-1234/ 478)  23.2 W25-W32 S34-S30
     13 1592  403 (S21W63 L=186)   990    173        0 (1501/ 369-1672/ 440)  42.3 W56-W68 S26-S16
  

    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