Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1438 1778 (N38W65 L=326)  1211    103        1 (1408/1727-1476/1814)  10.0 W55-W72 N36-N40
      2 1565 1491 (N19W49 L=310)   379     76        1 (1551/1447-1583/1529)  45.0 W47-W52 N16-N20
      3 1052 1441 (N30W13 L=274)   534    102        1 ( 988/1422-1105/1460) -14.0 W08-W16 N28-N31
      4 1727 1402 (N09W58 L=319)   563     82        1 (1687/1383-1757/1424) -14.0 W54-W62 N07-N10
      5  211  982 (N20E60 L=200)   431     76        0 ( 181/ 957- 244/1008)  14.0 E64-E56 N19-N21
      6 1674  957 (S14W39 L=299)   268     40        0 (1650/ 935-1696/ 981)  11.3 W36-W41 S14-S12
      7 1760  789 (S27W45 L=305)   356     42        1 (1737/ 765-1783/ 808)  11.3 W42-W47 S27-S25
      8  726  747 (S02E24 L=237)   391     84        2 ( 684/ 716- 767/ 776) -31.0 E26-E21 S03-N00
      9  319  638 (S02E58 L=203)  1193    188        2 ( 283/ 553- 366/ 723)  78.7 E60-E54 S07-N03
     10  885  514 (S20E21 L=239)   385    118        0 ( 846/ 470- 935/ 552)  20.6 E25-E17 S21-S18
     11  576  523 (S13E41 L=219)   278     33        0 ( 555/ 498- 596/ 549) -76.0 E42-E40 S14-S10
     12  965  433 (S27E20 L=241)   531    138        0 ( 946/ 367- 980/ 495)  48.8 E23-E16 S31-S22
     13  389  402 (S18E67 L=193)  2076    132        2 ( 366/ 330- 417/ 459)  34.5 E80-E61 S24-S13
     14  631  348 (S26E47 L=214)   447    113        0 ( 597/ 309- 654/ 398)  26.6 E53-E42 S27-S22
     15 1010  270 (S41E25 L=236)   434     54        0 ( 979/ 248-1040/ 298) -78.7 E26-E22 S43-S37
  

    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