Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1345 1760 (N37W50 L=137)   353     56        1 (1317/1747-1382/1774) -45.0 W46-W51 N35-N38
      2 1477 1645 (N27W50 L=138)   854    169        2 (1432/1575-1545/1681)  12.1 W42-W56 N23-N28
      3 1639 1548 (N16W56 L=144)   978    124        1 (1610/1494-1673/1601)  50.2 W53-W61 N13-N19
      4 1253 1546 (N27W29 L=117)   495     90        1 (1198/1518-1300/1567) -38.7 W25-W31 N24-N29
      5 1132 1349 (N19W14 L=102)   976    353        2 (1034/1285-1269/1467) -59.0 W10-W20 N12-N27
      6  628 1341 (N31E17 L= 71)   811    232        0 ( 540/1288- 739/1375)  -7.6 E24-E09 N28-N32
      7 1874 1332 (S02W69 L=157)   658     93        1 (1850/1286-1899/1374) -90.0 W66-W71 S04-N00
      8  910 1301 (N22W00 L= 88)   967    305        2 ( 777/1210-1026/1345) -52.4 E07-W05 N14-N27
      9 1351 1316 (N12W26 L=114)   195     52        0 (1330/1299-1373/1338) -71.6 W24-W27 N10-N13
     10  662 1171 (N20E18 L= 70)   240     95        0 ( 619/1161- 716/1182) -18.4 E20-E14 N18-N21
     11 1881 1081 (S15W61 L=148)  1000    121        3 (1855/1020-1905/1145)  45.0 W56-W64 S18-S11
     12 1424 1047 (S05W23 L=111)   286     71        0 (1410/1005-1435/1087)  53.1 W21-W24 S06-S02
     13 1773  956 (S19W46 L=134)  1108    168        3 (1700/ 910-1845/ 990)   0.0 W39-W54 S20-S17
     14 1920  880 (S29W65 L=153)   914     89        1 (1875/ 858-1961/ 898)  -6.3 W57-W75 S30-S27
     15 1003  784 (S09E07 L= 81)   454    166        2 ( 964/ 732-1039/ 866)  49.4 E10-E03 S11-S04
     16 1745  767 (S30W42 L=130)   388    106        1 (1686/ 728-1777/ 798)   6.3 W36-W45 S31-S28
     17  586  559 (S12E38 L= 49)  5221    810       13 ( 382/ 373- 891/ 773) -49.6 E48-E23 S27-N03
     18  177  694 (N03E71 L= 17)  1364    132        1 ( 134/ 664- 234/ 735) -10.0 E80-E63 N00-N05
     19  348  487 (S12E62 L= 26)  1448    274        2 ( 281/ 437- 444/ 593) -59.7 E67-E54 S16-S04
     20  823  554 (S18E24 L= 64)   394    126        0 ( 760/ 538- 881/ 573) -14.0 E27-E19 S19-S16
     21  591  276 (S31E57 L= 31)  4195    255        6 ( 516/ 153- 664/ 375)  31.5 E83-E50 S41-S22
     22 1515  289 (S61W20 L=108)   539     68        2 (1489/ 260-1538/ 322) -48.0 W16-W26 S65-S55
  

    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