Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1226 1816 (N51E04 L=194)  1408    275        5 (1193/1736-1269/1876) -82.9 E08-W00 N43-N59
      2  354 1491 (N11E55 L=143)   788    114        2 ( 325/1437- 379/1542) -81.9 E58-E52 N07-N14
      3  532 1493 (N13E40 L=158)   329     98        1 ( 492/1466- 583/1509)  26.6 E42-E36 N11-N14
      4  555 1413 (N09E36 L=162)   418    117        0 ( 527/1355- 592/1481)  90.0 E37-E35 N04-N13
      5 1629 1328 (N24W33 L=232)   787    124        1 (1603/1260-1655/1389)  90.0 W31-W35 N19-N28
      6  910 1337 (N09E12 L=186)   324     68        1 ( 872/1308- 941/1365) -11.3 E14-E09 N08-N11
      7 1871 1235 (N25W56 L=255)  2084    241        3 (1809/1137-1914/1347) -47.7 W49-W61 N19-N30
      8 1020  920 (S13W02 L=200)  1163    352        0 ( 876/ 778-1104/1070)  71.6 E04-W04 S23-S02
      9 1773  983 (N07W50 L=248)   529    135        1 (1735/ 938-1822/1031) -16.7 W45-W55 N04-N08
     10  465  881 (S24E34 L=165)   601    214        0 ( 374/ 828- 538/ 948)  36.9 E40-E28 S28-S18
     11  732  817 (S24E14 L=184)   384     69        0 ( 708/ 774- 756/ 851)  68.2 E15-E12 S26-S21
     12  526  691 (S35E28 L=170)  1294    274        2 ( 415/ 648- 628/ 750)  26.6 E38-E20 S39-S29
     13 1589  577 (S20W47 L=246)  3908    826        2 (1279/ 487-1861/ 640)  23.2 W28-W77 S32-S11
     14 1115  487 (S37W18 L=217)   584    158        0 (1022/ 474-1189/ 504)  24.4 W12-W23 S39-S34
  

    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