Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1034 1669 (N31E19 L=139)  1444    336        0 ( 970/1549-1129/1727)  90.0 E23-E12 N22-N37
      2 1390 1639 (N41W06 L=164)   909    231        1 (1300/1555-1474/1702) -18.4 E02-W14 N37-N43
      3  426 1630 (N15E60 L= 98)   983    122        2 ( 404/1559- 451/1683) -45.0 E65-E55 N10-N18
      4  570 1630 (N17E47 L=111)   641    175        0 ( 483/1599- 636/1651)   9.5 E53-E40 N14-N19
      5 1055 1108 (S02E00 L=157)   419    162        0 (1022/1026-1086/1190) -54.5 E03-W03 S05-N02
      6  654 1064 (S14E22 L=135)   192     72        0 ( 617/1044- 692/1083)  36.9 E24-E20 S15-S12
      7 1790  986 (N13W50 L=208)   476     89        0 (1760/ 961-1822/1027) -15.9 W46-W53 N11-N14
      8 1822  873 (N08W57 L=215)   598     52        1 (1798/ 844-1851/ 907) -45.0 W54-W59 N06-N09
      9 1007  822 (S19W04 L=162)   230     72        0 ( 972/ 799-1038/ 846) -11.3 W01-W06 S19-S17
     10  396  770 (S37E38 L=120)   886    141        1 ( 333/ 737- 451/ 827)  33.7 E44-E32 S40-S32
     11 1829  728 (N01W64 L=222)   463     41        0 (1807/ 708-1849/ 749)  45.0 W61-W67 N00-N02
     12 1718  660 (S07W56 L=214)   793    104        1 (1687/ 625-1752/ 705)  -6.3 W51-W60 S08-S05
     13 1381  661 (S17W31 L=189)   315    119        0 (1329/ 620-1410/ 682)   0.0 W28-W34 S18-S15
     14 1474  380 (S29W55 L=212)  1312    286        1 (1337/ 353-1600/ 406)  26.6 W42-W64 S33-S23
     15  748  272 (S64W09 L=167)  1545    145        3 ( 697/ 229- 810/ 333)  -6.3 W00-W18 S67-S59
  

    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