Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1517 1679 (N27W59 L=240)  1478    289        2 (1402/1642-1633/1714) -32.9 W51-W70 N21-N32
      2 1153 1681 (N40W33 L=214)   284     70        1 (1124/1657-1191/1702)   0.0 W30-W36 N38-N40
      3 1663 1553 (N15W62 L=243)   391     65        1 (1629/1536-1699/1571) -26.6 W58-W64 N13-N16
      4 1291 1458 (N22W29 L=210)   702    213        1 (1195/1426-1392/1492) -15.9 W22-W36 N20-N24
      5  406 1202 (N32E37 L=145)   343    119        0 ( 385/1150- 424/1250)  80.5 E38-E34 N28-N34
      6  681 1089 (N18E18 L=163)   661    279        1 ( 580/1054- 821/1114) -21.8 E24-E09 N15-N21
      7 1178  946 (S02W06 L=188)   267    121        1 (1108/ 925-1228/ 964) -33.7 W02-W08 S04-N00
      8 1296  889 (S09W12 L=193)   293     93        0 (1270/ 853-1314/ 926)  78.7 W09-W12 S10-S05
      9  237  861 (N15E59 L=123)   345     60        2 ( 217/ 832- 264/ 895) -45.0 E60-E55 N13-N16
     10  660  810 (N03E26 L=155)   542    145        0 ( 624/ 743- 689/ 878) -90.0 E27-E25 S01-N07
     11  190  778 (N11E67 L=114)  2135    154        3 ( 157/ 704- 222/ 852)  58.0 E72-E63 N06-N14
     12  481  820 (N08E38 L=143)   330     69        1 ( 449/ 797- 514/ 835) -21.8 E40-E35 N06-N08
     13  625  332 (S25E50 L=131)  1452    220        2 ( 587/ 232- 665/ 439)  50.9 E58-E44 S33-S17
     14 1499  371 (S51W14 L=196)  1273    140        2 (1428/ 340-1564/ 416) -12.1 W07-W22 S54-S47
     15  477  290 (S25E71 L=110)   796     75        1 ( 462/ 255- 501/ 322)  24.8 E79-E64 S28-S22
  

    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