Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  553 1487 (N38E25 L=110)   288     43        2 ( 526/1464- 580/1504)   0.0 E26-E22 N36-N39
      2  987 1474 (N29W06 L=141)   296     71        2 ( 955/1450-1023/1504) -53.1 W04-W08 N26-N30
      3 1699 1435 (N13W54 L=189)   665    104        1 (1653/1400-1741/1473) -45.0 W51-W57 N10-N15
      4 1095 1404 (N22W11 L=147)   505    101        1 (1060/1364-1149/1430)   9.5 W08-W14 N20-N24
      5 1017 1212 (N12W03 L=138)   493    186        2 ( 928/1166-1120/1264) -41.6 E01-W08 N08-N16
      6 1216  951 (S06W10 L=145)   570    241        1 (1166/ 845-1251/1077)  57.5 W05-W12 S11-N00
      7  162  950 (N11E63 L= 72)   822    248        2 ( 110/ 925- 218/ 964) -13.0 E70-E57 N09-N12
      8  250  900 (N07E55 L= 81)   321     62        1 ( 233/ 873- 275/ 919)  26.6 E56-E51 N05-N08
      9  318  827 (N02E50 L= 85)   384     71        2 ( 293/ 793- 342/ 856) -71.6 E51-E47 N00-N03
     10 1473  730 (S24W23 L=158)   887    295        1 (1323/ 689-1572/ 810)   3.2 W12-W30 S25-S20
     11 1517  625 (S32W26 L=161)  1497    261        1 (1391/ 529-1630/ 718)  20.2 W15-W35 S36-S27
     12 1817  670 (S36W53 L=188)   547    131        2 (1786/ 654-1852/ 697)  -8.1 W50-W57 S37-S33
     13  854  677 (S16E17 L=119)   252    124        1 ( 801/ 641- 897/ 693) -18.4 E19-E13 S18-S14
     14  514  470 (S23E46 L= 89)   493    163        1 ( 485/ 411- 546/ 528)  45.0 E51-E43 S26-S18
  

    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