Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1274 1681 (N37W32 L=238)   317     28        0 (1253/1659-1299/1699)  11.3 W29-W34 N35-N38
      2  576 1583 (N43E25 L=181)   367     80        1 ( 540/1557- 619/1605)   8.1 E28-E20 N41-N44
      3  829 1442 (N29E06 L=201)  1624    439        2 ( 669/1368-1012/1501)   4.8 E17-W07 N26-N30
      4  439 1357 (N30E35 L=171)  1629    424        2 ( 279/1312- 640/1410) -19.4 E53-E19 N24-N36
      5 1876 1071 (S10W62 L=268)  1574    256        9 (1797/ 996-1931/1152)  17.5 W52-W71 S13-S05
      6 1836  954 (S16W56 L=262)   442     45        2 (1810/ 930-1857/ 977) -45.0 W53-W58 S17-S14
      7 1755  804 (S24W48 L=254)  1296    278        0 (1675/ 718-1815/ 931)  37.6 W40-W53 S28-S17
      8 1491  879 (S15W26 L=233)   251     51        0 (1462/ 858-1524/ 897)  14.0 W24-W28 S16-S14
      9  964  852 (S09E06 L=200)   444    131        0 ( 926/ 801-1020/ 884)  15.9 E09-E02 S11-S06
     10 1643  802 (S22W37 L=244)   339     79        1 (1629/ 768-1664/ 846) -90.0 W36-W39 S24-S19
     11  586  568 (S20E37 L=170)   812    277        0 ( 478/ 508- 644/ 668)  21.3 E47-E29 S22-S14
     12  269  623 (S12E62 L=144)   518     39        2 ( 251/ 599- 290/ 648)  18.4 E65-E58 S13-S10
     13  326  468 (S22E67 L=140)  2480    147        2 ( 277/ 400- 371/ 538)  32.7 E76-E60 S26-S17
     14  429  492 (S22E53 L=153)   475    118        1 ( 407/ 435- 454/ 535)  56.3 E55-E48 S25-S19
     15  858  467 (S31E21 L=185)   245     36        0 ( 840/ 445- 878/ 494)  45.0 E23-E19 S31-S28
  

    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