Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1455 1653 (N38W35 L=220)   401     58        1 (1431/1625-1480/1674)  45.0 W33-W37 N35-N39
      2  390 1578 (N35E49 L=136)   542     98        1 ( 348/1559- 427/1597)  15.9 E52-E45 N33-N36
      3  641 1571 (N33E27 L=158)   391    103        0 ( 589/1553- 697/1586)   7.1 E30-E22 N31-N33
      4 1613 1338 (N16W40 L=225)   553    159        0 (1538/1310-1674/1382) -21.8 W34-W44 N14-N18
      5  352 1303 (N16E46 L=140)   389     76        0 ( 323/1283- 389/1324) -18.4 E48-E42 N14-N17
      6  188 1221 (N12E62 L=124)   631    146        5 ( 164/1173- 220/1260)  90.0 E64-E57 N08-N14
      7  839 1203 (N08E11 L=174)   252     84        0 ( 800/1169- 885/1224)  21.8 E13-E08 N06-N09
      8  238 1179 (N09E55 L=130)   354     61        1 ( 222/1140- 253/1216)  90.0 E56-E53 N06-N11
      9  958 1154 (N05E04 L=181)   428     99        0 ( 916/1110- 996/1201) -45.0 E06-E01 N02-N07
     10  924  946 (S08E06 L=179)   623    195        1 ( 864/ 845- 996/1013)  48.0 E10-E01 S13-S03
     11 1530  930 (S09W32 L=217)   248     57        0 (1508/ 903-1558/ 961)  45.0 W30-W34 S10-S07
     12  168  776 (S15E67 L=118)  1139    263        3 ( 136/ 709- 195/ 861)  48.4 E73-E62 S18-S09
     13 1232  822 (S15W13 L=198)   454    188        2 (1164/ 781-1338/ 859)  20.0 W08-W19 S17-S13
     14 1437  784 (S18W26 L=212)   216     61        0 (1423/ 749-1456/ 816)  68.2 W25-W27 S20-S15
     15  578  777 (S17E30 L=156)   347     60        3 ( 555/ 747- 603/ 811)  63.4 E31-E27 S18-S14
     16  308  777 (S16E51 L=134)   640    159        2 ( 276/ 740- 335/ 808)  45.0 E54-E47 S18-S13
     17 1796  767 (S19W56 L=241)   619     79        1 (1764/ 730-1823/ 800)  38.7 W53-W58 S20-S16
     18 1805  653 (S26W59 L=245)   795    171        1 (1761/ 622-1857/ 673)   5.2 W54-W65 S27-S24
     19 1531  624 (S28W35 L=221)   246     70        1 (1493/ 603-1552/ 655)  36.9 W32-W36 S29-S26
     20  335  524 (S32E56 L=130)  1471    272        1 ( 316/ 432- 367/ 639)  63.4 E59-E50 S38-S24
     21 1191  519 (S35W11 L=196)   909    199        1 (1119/ 442-1273/ 604)  47.7 W06-W16 S40-S29
     22  609  444 (S39E34 L=151)  1460    255        3 ( 550/ 369- 658/ 533)  35.5 E42-E28 S44-S32
  

    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