Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  541 1715 (N27E53 L= 35)   590     42        0 ( 519/1686- 566/1742)  90.0 E56-E50 N24-N29
      2  815 1723 (N32E32 L= 56)   299     19        0 ( 790/1708- 836/1739)  45.0 E33-E29 N31-N33
      3  996 1616 (N28E15 L= 73)  1000    339        0 ( 909/1464-1127/1702) -27.6 E24-E03 N21-N32
      4  548 1629 (N21E47 L= 41)  1329    249        6 ( 508/1503- 604/1696) -60.3 E52-E39 N12-N26
      5  375 1625 (N19E64 L= 24)   530     70        3 ( 355/1597- 394/1662) -32.0 E68-E59 N16-N21
      6 1308 1593 (N34W06 L= 94)   882    168        2 (1262/1509-1348/1651) -48.8 W02-W09 N29-N38
      7  899 1523 (N20E18 L= 70)   249     87        0 ( 872/1486- 931/1561)  80.5 E19-E17 N17-N23
      8 1518 1323 (N21W24 L=112)   572    161        1 (1460/1282-1572/1368) -12.5 W19-W28 N19-N22
      9 1318 1172 (N08W14 L=102)  1223    476        3 (1276/ 992-1414/1360) -50.2 W08-W23 N00-N18
     10  220 1330 (S02E64 L= 24)   404     47        0 ( 199/1307- 249/1347)  26.6 E67-E61 S02-N00
     11  276 1306 (S03E57 L= 31)   325     67        1 ( 253/1272- 297/1340) -38.7 E59-E53 S04-N00
     12 1888 1228 (N27W62 L=149)  1123    100        3 (1861/1175-1912/1279) -71.6 W57-W65 N23-N29
     13 1624 1231 (N18W33 L=121)   452     99        1 (1590/1188-1652/1268) -68.2 W30-W35 N15-N20
     14 1549 1201 (N15W28 L=116)   345     78        1 (1513/1177-1581/1236) -11.3 W25-W30 N13-N16
     15 1438  765 (S13W31 L=119)   267    118        0 (1388/ 716-1480/ 793)  63.4 W28-W33 S16-S10
     16 1508  724 (S13W37 L=124)   266     45        3 (1489/ 698-1529/ 755) -56.3 W35-W38 S14-S11
     17 1614  704 (S12W45 L=133)   765    135        0 (1566/ 662-1678/ 744)  49.4 W42-W48 S14-S07
     18 1147  655 (S25W16 L=104)   482    122        2 (1099/ 605-1193/ 700) -20.6 W12-W20 S27-S23
     19 1720  644 (S12W57 L=145)   366     48        1 (1692/ 627-1746/ 666)  21.8 W54-W59 S12-S10
     20 1416  467 (S30W42 L=130)  1251    353        2 (1298/ 387-1552/ 588)  68.7 W37-W45 S37-S19
     21 1633  529 (S20W55 L=143)   415    128        1 (1570/ 499-1682/ 567)  40.6 W51-W58 S23-S17
     22 1590  364 (S30W66 L=154)   838    127        1 (1534/ 346-1664/ 377)  13.2 W58-W75 S32-S27
     23  898  170 (S69W28 L=116)   724     83        1 ( 869/ 136- 926/ 203) -14.7 W20-W39 S72-S65
  

    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