Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1638 1601 (N18W62 L=187)   534     33        0 (1621/1568-1658/1627)  36.9 W59-W65 N16-N19
      2 1732 1549 (N12W68 L=192)  1482    150        5 (1679/1486-1787/1614) -83.7 W64-W72 N07-N16
      3 1573 1554 (N18W53 L=178)   356     60        2 (1545/1534-1605/1575) -36.9 W50-W56 N16-N19
      4 1653 1394 (N07W50 L=175)   272     26        0 (1638/1373-1669/1417)  63.4 W48-W51 N06-N08
      5 1840 1368 (S01W67 L=192)   558     89        1 (1799/1345-1867/1391)   0.0 W61-W72 S01-N00
      6 1237 1357 (N18W22 L=146)   524    138        0 (1174/1340-1309/1375) -29.7 W17-W25 N15-N20
      7 1060 1277 (N19W09 L=134)   343    113        0 (1010/1241-1105/1310) -51.3 W06-W10 N15-N21
      8 1864 1125 (S14W59 L=184)  5939    360       10 (1792/1022-1956/1279)  78.7 W50-W79 S21-S04
      9  431 1045 (N22E36 L= 88)  1772    375        1 ( 310/ 910- 545/1178) -55.0 E45-E30 N12-N32
     10 1444  907 (S12W20 L=145)   737    360        1 (1406/ 764-1465/1097)  57.1 W14-W25 S18-S01
     11  691 1057 (N17E18 L=107)   426    173        0 ( 630/1033- 789/1088) -33.7 E21-E12 N13-N19
     12 1810  942 (S22W49 L=173)   448     94        1 (1779/ 923-1841/ 977) -15.9 W45-W52 S23-S19
     13 1563  654 (S31W23 L=148)  3371    551        4 (1433/ 459-1707/ 887)  31.8 W09-W38 S39-S21
     14 1350  782 (S16W12 L=136)   203     47        0 (1321/ 767-1379/ 795) -45.0 W10-W13 S17-S14
     15  954  775 (S05E10 L=114)   237     86        1 ( 906/ 761- 991/ 792) -21.8 E13-E08 S06-S04
     16  773  715 (S04E22 L=102)   331     94        1 ( 760/ 660- 793/ 758)  71.6 E23-E20 S07-S01
     17 1214  676 (S18W01 L=126)   329     86        1 (1193/ 630-1240/ 718)  59.0 W00-W03 S20-S15
     18  608  660 (S03E34 L= 91)   407    110        1 ( 564/ 621- 645/ 692) -63.4 E36-E31 S06-N00
     19  480  671 (N00E42 L= 82)   239     78        1 ( 459/ 645- 514/ 687)  11.3 E44-E39 S01-N01
     20  952  538 (S19E18 L=107)   924    337        2 ( 918/ 370-1004/ 674)  46.7 E26-E10 S29-S12
     21 1152  593 (S21E05 L=120)   239    116        0 (1139/ 545-1164/ 654)  63.4 E06-E03 S23-S17
     22  421  525 (S07E53 L= 71)   349     68        1 ( 392/ 494- 445/ 553) -76.0 E54-E51 S09-S05
     23  300  463 (S09E72 L= 52)   699     74        1 ( 276/ 420- 324/ 483)  45.0 E77-E67 S12-S07
  

    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