Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  360 1659 (N19E68 L=357)  1781    194        3 ( 283/1588- 428/1726)  48.4 E74-E63 N13-N24
      2  648 1692 (N25E42 L= 23)   317     72        0 ( 620/1659- 665/1714) -31.0 E45-E40 N23-N26
      3  496 1630 (N19E51 L= 15)   499     62        0 ( 479/1594- 519/1667) -59.0 E52-E48 N16-N21
      4  613 1628 (N20E41 L= 24)   325     58        0 ( 587/1607- 637/1660)  76.0 E43-E39 N18-N22
      5  662 1598 (N19E37 L= 29)   398    107        1 ( 626/1567- 709/1623)  45.0 E38-E34 N17-N21
      6  793 1497 (N15E24 L= 41)   452    149        0 ( 758/1429- 833/1565)  90.0 E25-E23 N10-N20
      7  387 1365 (N01E48 L= 18)   816    197        1 ( 296/1345- 472/1384)  12.1 E55-E40 S01-N02
      8 1711 1274 (N24W39 L=104)   862    260        0 (1600/1202-1806/1337)  39.8 W30-W48 N16-N31
      9  357 1056 (S18E44 L= 22)   361     92        0 ( 316/1029- 384/1077)   0.0 E47-E41 S19-S16
     10 1344 1020 (S00W18 L= 84)   338    132        1 (1289/ 967-1373/1062) -26.6 W14-W20 S02-N01
     11 1670  988 (N06W40 L=106)   433     90        1 (1612/ 971-1712/1008)  14.0 W35-W43 N04-N07
     12 1223  944 (S07W13 L= 79)   234     82        0 (1213/ 898-1238/ 988) -78.7 W11-W14 S09-S04
     13  414  925 (S24E37 L= 28)   818    249        0 ( 325/ 854- 515/ 983)  36.3 E45-E30 S30-S19
     14  886  956 (S14E06 L= 59)   450    143        0 ( 814/ 930- 964/ 982)  12.5 E10-E01 S14-S12
     15 1908  895 (N09W66 L=132)   822     94        3 (1877/ 860-1932/ 935)  76.0 W62-W69 N06-N10
     16  137  786 (S36E73 L=352)   719     75        0 ( 106/ 755- 167/ 812)   5.7 E86-E66 S37-S34
     17 1574  774 (S08W39 L=105)   459    148        0 (1521/ 729-1641/ 806)  45.0 W36-W43 S11-S04
     18 1368  692 (S18W28 L= 94)   574    250        0 (1252/ 657-1473/ 719)  28.3 W22-W35 S22-S13
     19 1710  559 (S15W60 L=126)  1427    185        3 (1675/ 489-1768/ 622)  90.0 W55-W63 S19-S10
     20  353  593 (S47E46 L= 20)   417     55        1 ( 320/ 579- 386/ 609)   6.3 E50-E41 S48-S45
     21  800  544 (S40E03 L= 63)   400    133        0 ( 742/ 516- 863/ 585)  -5.7 E08-W02 S41-S38
     22 1451  452 (S29W45 L=111)   812    178        0 (1370/ 429-1536/ 486)  35.0 W40-W50 S31-S24
     23 1603  382 (S28W64 L=130)   653     64        2 (1573/ 356-1640/ 402)  23.2 W60-W67 S29-S25
  

    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